--- Coro/myhttpd/netgeo.pl	2001/08/28 02:43:02	1.5
+++ Coro/myhttpd/netgeo.pl	2001/08/30 03:35:56	1.6
@@ -8,6 +8,7 @@
 use Coro;
 use Coro::Event;
 use Coro::Semaphore;
+use Coro::SemaphoreSet;
 use Coro::Socket;
 
 $Event::DIED = sub {
@@ -220,9 +221,13 @@
 $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;