Changeset 352

Timestamp:

10/06/06 12:24:32 (18 years ago)

Author:

Kris Deugau

Message:

/trunk

Backport semicosmetic bugfixery to consistency-check.pl
from /branches/stable r339

File:

• trunk/cgi-bin/consistency-check.pl (modified) (1 diff)

trunk/cgi-bin/consistency-check.pl

@@ -226 +226 @@
         if $data[2] ne $def_custids{$data[1]};
 }
-
-print "Done CustID correctness check.\n";
+print "Done predefined CustID correctness check.\n\n";
+
+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->execute;
+while (@data = $sth->fetchrow_array) {
+  print "cn block $data[0] has incorrect CustID $data[2]\n";
+}
+print "Done checking customer blocks\n";