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

Timestamp:

02/22/05 14:30:36 (19 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Port forward enhanced "default CustID" feature from /trunk r167

File:

• branches/stable/cgi-bin/consistency-check.pl (modified) (3 diffs)

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

@@ -14 +14 @@
 
 ($dbh,$errstr) = connectDB_My;
-
-# Schlep up the masters
-$sth = $dbh->prepare("select * from masterblocks order by cidr");
-$sth->execute;
-for ($i=0; @data = $sth->fetchrow_array; $i++) {
-  $masterblocks[$i] = new NetAddr::IP $data[0];
-}
+# May as well.  We need a number of globals.
+initIPDBGlobals($dbh);
 
 print "First check:  All blocks must be within one of the master blocks\n";
@@ -54 +49 @@
 # Next:  free blocks
 print "Checking freeblocks: ";
-$sth = $dbh->prepare("select cidr from freeblocks");
+$sth = $dbh->prepare("select cidr from freeblocks order by cidr");
 $sth->execute;
 FREEBLOCK: while (@data = $sth->fetchrow_array) {
@@ -138 +133 @@
   print "done $master.\n";
 }
+
+print "Done checking block alignment.\n\nChecking for correctness on 'defined' CustIDs:\n";
+# New check:  Make sure "defined" CustIDs are correct.
+$sth = $dbh->prepare("select cidr,type,custid from allocations where not type='cn' order by cidr");
+$sth->execute;
+while (@data = $sth->fetchrow_array) {
+  print "$data[0] ($disp_alloctypes{$data[1]}) has incorrect CustID $data[2]\n"
+        if $data[2] ne $def_custids{$data[1]};
+}
+
+print "Done CustID correctness check.\n";