--- Coro/myhttpd/access.pl	2001/08/14 04:33:58	1.4
+++ Coro/myhttpd/access.pl	2001/08/16 16:40:07	1.5
@@ -29,6 +29,9 @@
 
 read_blocklist;
 
+use Tie::Cache;
+tie %whois_cache, Tie::Cache::, $MAX_CONNECTS * 1.5;
+
 sub conn::access_check {
    my $self = shift;
 
@@ -41,7 +44,8 @@
       }
    }
    
-   my $whois = ::ip_request($self->{remote_addr});
+   my $whois = $whois_cache{$self->{remote_addr}}
+               ||= ::ip_request($self->{remote_addr});
 
    my $country = "XX";