Index: trunk/cgi-bin/consistency-check.pl
===================================================================
--- trunk/cgi-bin/consistency-check.pl	(revision 351)
+++ trunk/cgi-bin/consistency-check.pl	(revision 352)
@@ -226,4 +226,12 @@
 	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";