perl & mysql

[npu3pak]

не пойму то-ли лыжи не едут, то ли я...

Код: Выделить всё

#!/usr/bin/perl

use strict;
use DBI;
use CGI;

print "Content-type: text/html\n\n";
print "";

my $cgi = new CGI;

my $description = $cgi->param('desc');
my $id = $cgi->param('payment_id');

my $drh = DBI->install_driver('mysql');
my $dbh = $drh->connect('test','123') or die "Could not connect to database";
my $query = "update payment_log set description='$description' where payment_log_id='$id'";
my $sth = $dbh->prepare($query);

$sth->execute();
print "success!";
$sth->finish();
$dbh->disconnect();

и ничего...
в httpd-errors такое

Код: Выделить всё

Can't use an undefined value as a HASH reference at /usr/local/lib/perl5/site_perl/5.8.8/mach/DBD/mysql.pm line 115.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[npu3pak]

разобрался...
как обычно - лень было подумать немного.

Код: Выделить всё

#!/usr/bin/perl

use strict;
use DBI;
use DBD::mysql;
use CGI;

print "Content-type: text/html\n\n";
print "";

my $cgi = new CGI;

my $description = $cgi->param('desc');
my $id = $cgi->param('payment_id');

my $cgi = new CGI;

my $description = $cgi->param('desc');
my $id = $cgi->param('payment_id');

my $mdsn = 'DBI:mysql';
my $mdsn = 'DBI:mysql:test:127.0.0.1';
my $db_user_name = '';
my $db_password = '';
my $dbh = DBI->connect($mdsn, $db_user_name, $db_password);
if (!$dbh) {print "MySQL connection error!\n";exit;}
my $query = "update payment_log set description='$description' where payment_log_id='$id'";
my $sth = $dbh->prepare($query);

$sth->execute();
print "success!<br>";
$sth->finish();
$dbh->disconnect();