Changeset 213 for branches

Timestamp:

04/05/05 13:39:53 (20 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Fix minor SQL buglets in consistency-check.pl that would include
the wrong records in some checks, causing false errors.

File:

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

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

@@ -177 +177 @@
         "from allocations where cidr <<= '$container' and type like '_r') ".
         "union (select network(cidr) as net, broadcast(cidr) as bcast ".
-        "from freeblocks where cidr <<= '$container' and routed='w') order by net");
+        "from freeblocks where cidr <<= '$container' and not (routed='y' or routed='n')) ".
+        "order by net");
     $sth->execute;
 
@@ -217 +218 @@
 print "Checking 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 = $dbh->prepare("select cidr,type,custid from allocations where not (type='cn' or type like '_r') order by cidr");
 $sth->execute;
 while (@data = $sth->fetchrow_array) {