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

Comparing Coro/myhttpd/netgeo.pl (file contents):
Revision 1.16 by root, Sat Sep 17 20:21:11 2005 UTC vs.
Revision 1.18 by root, Sat Dec 8 21:01:16 2007 UTC

 use Socket;
 use Fcntl;
 use Coro;
-use Coro::Event;
+use Coro::EV;
 use Coro::Semaphore;
 use Coro::SemaphoreSet;
 use Coro::Socket;
 use Coro::Timer;
 use BerkeleyDB;
-$Event::DIED = sub {
-   Event::verbose_exception_handler(@_);
-   #Event::unloop_all();
-};
 tie %netgeo::whois, BerkeleyDB::Btree,
     -Env => $db_env,
     -Filename => "whois",
     -Flags => DB_CREATE,
     -Flags => DB_CREATE,
        or die "unable to create/open iprange table";
 package Whois;
-use Coro::Event;
+use Coro::EV;
 sub new {
    my $class = shift;
    my $name = shift;
    my $ip = shift;
    my ($self, $ip) = @_;
    my $whois = $self->whois_request($ip);
    return if $whois =~ /^No match/;
-   return if $whois =~ /^\*de: This network range is not allocated to /; # APINIC e.g. 24.0.0.0
    if ($whois =~ /^To single out one record/m) {
       my $handle;
       while ($whois =~ /\G\S.*\(([A-Z0-9\-]+)\).*\n/mg) {
          $handle = $1;
    }gex;
    $whois =~ /^\*in: 0\.0\.0\.0 - 255\.255\.255\.255/
       and return;
+   $whois =~ /^\*de: This network range is not allocated to /m # APINIC e.g. 24.0.0.0
+      and return;
    $whois =~ /^\*ac: XXX0/m # 192.0.0.0
       and return;
    $whois =~ /^\*st: (?:ALLOCATED )?UNSPECIFIED/m
       and return;

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