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

Comparing Coro/myhttpd/netgeo.pl (file contents):
Revision 1.5 by root, Tue Aug 28 02:43:02 2001 UTC vs.
Revision 1.8 by root, Fri Sep 28 16:35:00 2001 UTC

 use Fcntl;
 use Coro;
 use Coro::Event;
 use Coro::Semaphore;
+use Coro::SemaphoreSet;
 use Coro::Socket;
+use BerkeleyDB;
 $Event::DIED = sub {
    Event::verbose_exception_handler(@_);
    #Event::unloop_all();
 };
    $whois;
 }
 package netgeo;
+use Socket;
 use BerkeleyDB;
-use Socket;
 sub ip2int($) {
    unpack "N", inet_aton $_[0];
 }
 $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)) {

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