Changeset 142

Timestamp:

01/28/05 14:04:55 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Wrap connectDB() function in a "module" so we don't get headaches
tracking password changes (if and when). This change *may* get
merged back to IPDB.pm, but it may not so as to allow the HTTP
username to be the user authenticated at the database level.

Location:

trunk/cgi-bin

Files:

• MyIPDB.pm (added)
• consistency-check.pl (modified) (1 diff)
• freespace.pl (modified) (1 diff)
• main.cgi (modified) (2 diffs)
• newcity.cgi (modified) (2 diffs)

trunk/cgi-bin/consistency-check.pl

@@ -11 +11 @@
 
 use DBI;
-use IPDB 2.0 qw(:ALL);
+use MyIPDB;
 use NetAddr::IP;
 
-($dbh,$errstr) = connectDB("ipdb", "ipdb", "ipdbpwd");
+($dbh,$errstr) = connectDB_My;
 
 # Schlep up the masters

trunk/cgi-bin/freespace.pl

@@ -11 +11 @@
 
 use DBI;
-use IPDB 2.0 qw(:ALL);
+use MyIPDB;
 use NetAddr::IP;
 
-($dbh,errstr) = connectDB("ipdb", "ipdb", "ipdbpwd");
+($dbh,$errstr) = connectDB_My;
 
 print "Content-type: text/plain\n\n";

trunk/cgi-bin/main.cgi

@@ -14 +14 @@
 use DBI;
 use CommonWeb qw(:ALL);
-use IPDB 2.0 qw(:ALL);
+use MyIPDB;
 use POSIX qw(ceil);
 use NetAddr::IP;
@@ -37 +37 @@
 my $sth;
 my $errstr;
-($ip_dbh,$errstr) = connectDB("ipdb", "ipdb", "ipdbpwd");
+($ip_dbh,$errstr) = connectDB_My;
 if (!$ip_dbh) {
   printAndExit("Failed to connect to database: $errstr\n");

trunk/cgi-bin/newcity.cgi

@@ -15 +15 @@
 use DBI;
 use CommonWeb qw(:ALL);
-use IPDB 2.0 qw(:ALL);
+use MyIPDB;
 #use POSIX qw(ceil);
 use NetAddr::IP;
@@ -34 +34 @@
 cleanInput(\%webvar);
 
-my ($dbh,$errstr) = connectDB("ipdb", "ipdb", "ipdbpwd");
+my ($dbh,$errstr) = connectDB_My;
 my $sth;