[ViewVC] Diff of: cvs/Coro/myhttpd/netgeo.pl

Comparing Coro/myhttpd/netgeo.pl (file contents):
Revision 1.18 by root, Sat Dec 8 21:01:16 2007 UTC vs.
Revision 1.19 by root, Sat Jan 23 21:27:51 2010 UTC

 $netgeo::iprange = new BerkeleyDB::Btree
     -Env => $db_env,
     -Filename => "iprange",
     -Flags => DB_CREATE,
        or die "unable to create/open iprange table";
+sub clear_cache() {
+   %netgeo::whois = ();
+   $netgeo::iprange->truncate (my $dummy);
+}
 package Whois;
 use Coro::EV;
       and return;
    $whois =~ /^\*de: This network range is not allocated to /m # APINIC e.g. 24.0.0.0
       and return;
+   $whois =~ /^\*de: Not allocated by APNIC/m # APINIC e.g. 189.47.24.97
+      and return;
    $whois =~ /^\*ac: XXX0/m # 192.0.0.0
       and return;
    $whois =~ /^\*st: (?:ALLOCATED )?UNSPECIFIED/m
       and return;
    my ($arin, $ripe, $apnic);
    $whois = $WHOIS{RIPE}->ip_request($ip)
          || $WHOIS{APNIC} ->ip_request($ip)
          || $WHOIS{ARIN} ->ip_request($ip)
-#         || $WHOIS{LACNIC}->ip_request($ip)
+         || $WHOIS{LACNIC}->ip_request($ip)
          ;
    $whois =~ /^\*in: ([0-9.]+)\s+-\s+([0-9.]+)\s*$/mi
       or do { warn "$whois($ip): no addresses found\n", last };

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines