Changeset 128 for branches

Timestamp:

01/18/05 14:56:09 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Fixed checkcusts.pl to work with new IPDB.pm interface.

File:

• branches/stable/cgi-bin/checkcusts.pl (modified) (2 diffs)

branches/stable/cgi-bin/checkcusts.pl

@@ -10 +10 @@
 
 use DBI;
-use IPDB qw(:ALL);
+use IPDB 2.0 qw(:ALL);
 
 # We'll be hosing the server with several thousand queries.  We
@@ -25 +25 @@
 print "Content-type: text/plain\n\n";
 
-$dbh = connectDB;
+($dbh,$errstr) = connectDB("ipdb", "ipdb", "ipdbpwd");
 $IDH = DBI->connect ("DBI:Pg:host=billing;dbname=custids", "cidcheck", "c1dch4ck");
 $sth = $dbh->prepare("select cidr,custid from searchme where not (custid='6750400') ".