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

Comparing Coro/myhttpd/netgeo.pl (file contents):
Revision 1.4 by root, Tue Aug 28 02:30:49 2001 UTC vs.
Revision 1.6 by root, Thu Aug 30 03:35:56 2001 UTC

 use Fcntl;
 use Coro;
 use Coro::Event;
 use Coro::Semaphore;
+use Coro::SemaphoreSet;
 use Coro::Socket;
 $Event::DIED = sub {
    Event::verbose_exception_handler(@_);
    #Event::unloop_all();
 $WHOIS{ARIN}  = new Whois::ARIN ARIN  => "whois.arin.net",  maxjobs => 12;
 $WHOIS{RIPE}  = new Whois::RIPE RIPE  => "whois.ripe.net",  maxjobs => 20;
 $WHOIS{APNIC} = new Whois::RIPE APNIC => "whois.apnic.net", maxjobs => 20;
+$whoislock = new Coro::SemaphoreSet;
 sub ip_request {
    my $ip = $_[0];
+   my $guard = $whoislock->guard($ip);
    my $c = $iprange->db_cursor;
    my $v;
    if (!$c->c_get((inet_aton $ip), $v, DB_SET_RANGE)) {
       my ($ip0, $ip1, $whois) = split /\x0/, $v;
       my $_ip = ip2int $ip;
-      print "looked for $_ip, found $ip0, $ip1 ", length($v),"\n";
       if ($ip0 <= $_ip && $_ip <= $ip1) {
          return $whois;
       }
    }
-   print "looked for $ip, ONLY found $v->[0], $v->[1]\n";
    my ($arin, $ripe, $apnic);
    $whois = $WHOIS{APNIC}->ip_request($ip)
          || $WHOIS{RIPE} ->ip_request($ip)
          || $WHOIS{ARIN} ->ip_request($ip);
       $_ip  = $_ip & 0xffffff00;
       $_ip0 = $_ip       if $_ip0 < $_ip;
       $_ip1 = $_ip + 255 if $_ip1 > $_ip + 255;
    }
-   print "setting entry ($_ip0, $_ip, $_ip1)\n";
    $iprange->db_put((pack "N", $_ip1), (join "\x0", $_ip0, $_ip1, $whois));
    (tied %whois)->db_sync;
    $iprange->db_sync;
    $whois;

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