Changeset 352


Ignore:
Timestamp:
10/06/06 12:24:32 (18 years ago)
Author:
Kris Deugau
Message:

/trunk

Backport semicosmetic bugfixery to consistency-check.pl
from /branches/stable r339

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cgi-bin/consistency-check.pl

    r214 r352  
    226226        if $data[2] ne $def_custids{$data[1]};
    227227}
    228 
    229 print "Done CustID correctness check.\n";
     228print "Done predefined CustID correctness check.\n\n";
     229
     230print "Checking for customer blocks with 'bad' CustIDs:\n";
     231# Make sure cn-type ("customer netblock") blocks have "real" CustIDs.
     232$sth = $dbh->prepare("select cidr,type,custid from allocations where type='cn' and (custid='6750400' or custid='STAFF') order by cidr");
     233$sth->execute;
     234while (@data = $sth->fetchrow_array) {
     235  print "cn block $data[0] has incorrect CustID $data[2]\n";
     236}
     237print "Done checking customer blocks\n";
Note: See TracChangeset for help on using the changeset viewer.