Changeset 339 for branches/stable

Timestamp:

05/24/06 10:45:42 (19 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Addons, fixes, and minor updates for consistency-check.pl

File:

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

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

@@ -224 +224 @@
         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";