Changeset 445 for branches/stable/cgi-bin/consistency-check.pl

Timestamp:

07/26/10 17:00:00 (14 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Bring /branches/stable up to date with /trunk. See #13.

Location:

branches/stable

Files:

• . (modified) (2 props)
• cgi-bin/consistency-check.pl (modified) (2 diffs)

branches/stable

@@ -1 +1 @@
 local.css
+*.tar.gz

@@ -1 +1 @@
 local.css
+*.tar.gz

branches/stable/cgi-bin/consistency-check.pl

@@ -8 +8 @@
 # Last update by $Author$
 ###
-# Copyright (C) 2004 - Kris Deugau
+# Copyright (C) 2004-2010 - Kris Deugau
 
 use DBI;
+use NetAddr::IP;
+
+# don't remove!  required for GNU/FHS-ish install from tarball
+##uselib##
+
 use MyIPDB;
-use NetAddr::IP;
 
 print "Content-type: text/plain\n\n";
@@ -230 +234 @@
 print "Checking for customer blocks with 'bad' CustIDs:\n";
 # Make sure cn-type ("customer netblock") blocks have "real" CustIDs.
-$sth = $dbh->prepare("select cidr,type,custid from allocations where type='cn' and (custid='6750400' or custid='STAFF') order by cidr");
+$sth = $dbh->prepare("select cidr,type,custid from allocations where type='cn' and (custid='$IPDB::defcustid' or custid='STAFF') order by cidr");
 $sth->execute;
 while (@data = $sth->fetchrow_array) {

@@ -1 +1 @@
 local.css
+*.tar.gz