Changeset 62 for trunk/cgi-bin

Timestamp:

11/11/04 16:27:28 (20 years ago)

Author:

Kris Deugau

Message:

/trunk

Updated consistency check script to check for anomalies in IP pools:

• make sure all IPs are within a pool
• make sure all pools are listed in allocations table

File:

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

trunk/cgi-bin/consistency-check.pl

@@ -65 +65 @@
 print " done.\n";
 
-print "Done checking master containment.\n\nChecking block-alignment consistency:\n";
+print "Done checking master containment.\n\nChecking pool containment:\n";
+
+$sth = $dbh->prepare("select pool,ip from poolips order by ip");
+$sth->execute;
+while (@data = $sth->fetchrow_array) {
+  $pool = new NetAddr::IP $data[0];
+  $ip = new NetAddr::IP $data[1];
+  print "IP $ip listed with incorrect pool $pool\n"
+    if !$pool->contains($ip);
+}
+$sth = $dbh->prepare("select distinct pool from poolips order by pool");
+$sth->execute;
+while (@data = $sth->fetchrow_array) {
+  $sth2 = $dbh->prepare("select cidr from allocations where cidr='$data[0]'");
+  $sth2->execute;
+  print "Pool $data[0] does not exist in allocations table\n"
+    if (($sth2->fetchrow_array)[0] eq '');
+}
+
+print "Done checking pool containment.\n\nChecking block-alignment consistency:\n";
 
 # Block alignment consistency:  All allocated+free blocks within a master