Changeset 432 for trunk/cgi-bin/MyIPDB.pm

Timestamp:

07/16/10 17:31:13 (14 years ago)

Author:

Kris Deugau

Message:

/trunk

Clarify, clean up, and make sane configuration for database
host, db name, user, and password. See #17.

File:

• trunk/cgi-bin/MyIPDB.pm (modified) (2 diffs)

trunk/cgi-bin/MyIPDB.pm

@@ -15 +15 @@
 use IPDB 2.0 qw(:ALL);
 
-## connectDB_My()
-# Wrapper for IPDB::connectDB
-# Takes no arguments, returns whatever IPDB::connectDB returns.
-sub connectDB_My {
-  return connectDB("ipdb", "ipdb", "ipdbpwd");
-} # end connectDB_My()
+
+# DSN, user, and password for database.  These **MUST** be set.
+my $dbname = 'ipdb';
+my $dbuser = 'ipdb';
+my $dbpass = 'ipdbpwd';
+# DB host is optional.
+my $dbhost = 'ipdb-db';
 
 # Set some globals declared in IPDB.pm.  Most of these only affect mailNotify().
@@ -44 +45 @@
 #$IPDB::syslog_facility = 'daemon';
 
+
+## connectDB_My()
+# Wrapper for IPDB::connectDB
+# Takes no arguments, returns whatever IPDB::connectDB returns.
+sub connectDB_My {
+  return connectDB($dbname, $dbuser, $dbpass, $dbhost);
+} # end connectDB_My()
+
 # Keep Perl from complaining.
 1;