Changeset 167 for trunk/cgi-bin/consistency-check.pl

Timestamp:

02/22/05 14:25:58 (19 years ago)

Author:

Kris Deugau

Message:

/trunk

New feature: Different "default" CustIDs depending on the allocation type
consistency-check.pl also updated to check this information.

File:

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

trunk/cgi-bin/consistency-check.pl

@@ -16 +16 @@
 ($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";
@@ -55 +51 @@
 # 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) {
@@ -139 +135 @@
   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";