X-Git-Url: https://git.sesse.net/?p=pr0n;a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FCommon.pm;h=0b2fa2488f1df4e7e3e463e015d6db0a13a4663e;hp=be4385ae712ec60de351bbccb68976d35601ec8c;hb=97587692088c0aebc302164e335817f5dfedc49f;hpb=57eab1fc20fd2c7f972a12631b2cca978fb9f8cb diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm index be4385a..0b2fa24 100644 --- a/perl/Sesse/pr0n/Common.pm +++ b/perl/Sesse/pr0n/Common.pm @@ -31,7 +31,7 @@ BEGIN { require Sesse::pr0n::Config_local; }; - $VERSION = "v2.05"; + $VERSION = "v2.10"; @ISA = qw(Exporter); @EXPORT = qw(&error &dberror); %EXPORT_TAGS = qw(); @@ -145,7 +145,7 @@ sub get_dbh { # Try to reconnect Apache2::ServerUtil->server->log_error("Lost contact with PostgreSQL server, trying to reconnect..."); unless ($dbh = DBI->connect("dbi:Pg:dbname=pr0n;host=" . $Sesse::pr0n::Config::db_host, - $Sesse::pr0n::Config::db_user, $Sesse::pr0n::Config::db_password)) { + $Sesse::pr0n::Config::db_username, $Sesse::pr0n::Config::db_password)) { $dbh = undef; die "Couldn't connect to PostgreSQL database"; }