Changeset 341 for trunk/cgi-bin/extras


Ignore:
Timestamp:
07/06/06 18:03:10 (18 years ago)
Author:
Kris Deugau
Message:

/trunk

revert commit of unknown unremembered changes to db2rwhois.pl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cgi-bin/extras/db2rwhois.pl

    r340 r341  
    4242# Techically, we only need to exclude 204.138.172.0/24, as we "own" all of the other blocks.
    4343# However, 205.207.184.0/23 and 206.130.64.0/24 are, um, awkward.
    44 #  if ($data[0] =~ /^(192.168.0.0|172.16.0.0|10.0.0.0|20[456])/) {
    45 #    next GETMASTERS;
    46 #  }
     44  if ($data[0] =~ /^(192.168.0.0|172.16.0.0|10.0.0.0|20[456])/) {
     45    next GETMASTERS;
     46  }
    4747  $masterblocks[$i] = new NetAddr::IP $data[0];
    4848  my ($ctime,undef) = split /\s/, $data[1];
     
    9898$sth = $dbh->prepare("select cidr,custid,type,city,description,createstamp,modifystamp,swip ".
    9999        "from allocations where ".
    100 #       "not (cidr <<= '192.168.0.0/16') and ".
    101 #       "not (cidr <<= '172.16.0.0/12') and ".
    102 #       "not (cidr <<= '10.0.0.0/8') and ".
     100        "not (cidr <<= '192.168.0.0/16') and ".
     101        "not (cidr <<= '172.16.0.0/12') and ".
     102        "not (cidr <<= '10.0.0.0/8') and ".
    103103        "not (type = 'wr') and ".
    104104        "masklen(cidr) <=30");
Note: See TracChangeset for help on using the changeset viewer.