Index: trunk/cgi-bin/MyIPDB.pm
===================================================================
--- trunk/cgi-bin/MyIPDB.pm	(revision 142)
+++ trunk/cgi-bin/MyIPDB.pm	(revision 142)
@@ -0,0 +1,22 @@
+# ipdb/cgi-bin/MyIPDB.pm
+# Contains site-specific functions for IPDB
+# May override some functions from IPDB.pm, wraps others
+###
+# SVN revision info
+# $Date$
+# SVN revision $Rev$
+# Last update by $Author$
+###
+# Copyright (C) 2004,2005 - Kris Deugau
+
+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()
+
+# Keep Perl from complaining.
+1;
Index: trunk/cgi-bin/consistency-check.pl
===================================================================
--- trunk/cgi-bin/consistency-check.pl	(revision 141)
+++ trunk/cgi-bin/consistency-check.pl	(revision 142)
@@ -11,8 +11,8 @@
 
 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
Index: trunk/cgi-bin/freespace.pl
===================================================================
--- trunk/cgi-bin/freespace.pl	(revision 141)
+++ trunk/cgi-bin/freespace.pl	(revision 142)
@@ -11,8 +11,8 @@
 
 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";
Index: trunk/cgi-bin/main.cgi
===================================================================
--- trunk/cgi-bin/main.cgi	(revision 141)
+++ trunk/cgi-bin/main.cgi	(revision 142)
@@ -14,5 +14,5 @@
 use DBI;
 use CommonWeb qw(:ALL);
-use IPDB 2.0 qw(:ALL);
+use MyIPDB;
 use POSIX qw(ceil);
 use NetAddr::IP;
@@ -37,5 +37,5 @@
 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");
Index: trunk/cgi-bin/newcity.cgi
===================================================================
--- trunk/cgi-bin/newcity.cgi	(revision 141)
+++ trunk/cgi-bin/newcity.cgi	(revision 142)
@@ -15,5 +15,5 @@
 use DBI;
 use CommonWeb qw(:ALL);
-use IPDB 2.0 qw(:ALL);
+use MyIPDB;
 #use POSIX qw(ceil);
 use NetAddr::IP;
@@ -34,5 +34,5 @@
 cleanInput(\%webvar);
 
-my ($dbh,$errstr) = connectDB("ipdb", "ipdb", "ipdbpwd");
+my ($dbh,$errstr) = connectDB_My;
 my $sth;