Changeset 340
- Timestamp:
- 07/06/06 18:00:55 (18 years ago)
- Location:
- trunk/cgi-bin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/admin.cgi
r331 r340 48 48 if ($IPDBacl{$authuser} !~ /A/) { 49 49 print "Content-Type: text/html\n\n". 50 "<html><head><title>Access denied</title></head><body>\n". 50 "<html><head><title>Access denied</title></head>". 51 qq(<body bgcolor="#ffff00" text="#000000" link="#000000" vlink="#000000" alink="#ff0000">\n). 51 52 'Access to this tool is restricted. Contact <a href="mailto:kdeugau@vianet.ca">Kris</a> '. 52 53 "for more information.</body></html>\n"; … … 60 61 "<html>\n<head>\n\t<title>TEST [IPDB admin tools] TEST</title>\n". 61 62 qq(\t<link rel="stylesheet" type="text/css" href="/ip/ipdb.css">\n). 62 "</head>\n<body>\n".63 qq(</head>\n<body bgcolor="#ffff00" text="#000000" link="#000000" vlink="#000000" alink="#ff0000">\n). 63 64 "<h2>IPDB - Administrative Tools</h2>\n<hr>\n"; 64 65 -
trunk/cgi-bin/extras/db2rwhois.pl
r328 r340 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.