diff options
| author | Darkelarious <darkelarious@333networks.com> | 2015-02-11 21:12:44 +0100 |
|---|---|---|
| committer | Darkelarious <darkelarious@333networks.com> | 2015-02-11 21:12:44 +0100 |
| commit | 534626943a0a5e251e5465376f3de3fb71b25e91 (patch) | |
| tree | b5b4550c1cdb69c6933aa571244881eaacc72ffe /lib/MasterServer/Database/Pg/dbCore.pm | |
| parent | e0ada80f8582cf3b28e70b8f18de10aa505159ae (diff) | |
| download | MasterServer-Perl-534626943a0a5e251e5465376f3de3fb71b25e91.tar.gz MasterServer-Perl-534626943a0a5e251e5465376f3de3fb71b25e91.zip | |
ability to query UCC applets (Pg only)
Diffstat (limited to 'lib/MasterServer/Database/Pg/dbCore.pm')
| -rwxr-xr-x | lib/MasterServer/Database/Pg/dbCore.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/MasterServer/Database/Pg/dbCore.pm b/lib/MasterServer/Database/Pg/dbCore.pm index f89cc68..8f55ebb 100755 --- a/lib/MasterServer/Database/Pg/dbCore.pm +++ b/lib/MasterServer/Database/Pg/dbCore.pm @@ -8,9 +8,8 @@ use Exporter 'import'; our @EXPORT = qw| database_login |; ################################################################################ -## database_login ## login to the database with credentials provided in the config file. -## returns dbh object +## returns dbh object or quits application on error. ################################################################################ sub database_login { my $self = shift; @@ -20,6 +19,7 @@ sub database_login { # verify that the database connected if (defined $dbh) { + # log the event $self->log("load","Connected to the Postgres database."); @@ -37,7 +37,7 @@ sub database_login { $self->halt(); } - # unreachable + # return empty element return undef; } |
