aboutsummaryrefslogtreecommitdiff
path: root/lib/MasterServer/Database/Pg/dbCore.pm
diff options
context:
space:
mode:
authorDarkelarious <darkelarious@333networks.com>2015-02-11 21:12:44 +0100
committerDarkelarious <darkelarious@333networks.com>2015-02-11 21:12:44 +0100
commit534626943a0a5e251e5465376f3de3fb71b25e91 (patch)
treeb5b4550c1cdb69c6933aa571244881eaacc72ffe /lib/MasterServer/Database/Pg/dbCore.pm
parente0ada80f8582cf3b28e70b8f18de10aa505159ae (diff)
downloadMasterServer-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-xlib/MasterServer/Database/Pg/dbCore.pm6
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;
}