Changeset 341 for trunk/cgi-bin
- Timestamp:
- 07/06/06 18:03:10 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/extras/db2rwhois.pl
r340 r341 42 42 # Techically, we only need to exclude 204.138.172.0/24, as we "own" all of the other blocks. 43 43 # 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 } 47 47 $masterblocks[$i] = new NetAddr::IP $data[0]; 48 48 my ($ctime,undef) = split /\s/, $data[1]; … … 98 98 $sth = $dbh->prepare("select cidr,custid,type,city,description,createstamp,modifystamp,swip ". 99 99 "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 ". 103 103 "not (type = 'wr') and ". 104 104 "masklen(cidr) <=30");
Note:
See TracChangeset
for help on using the changeset viewer.