--- Coro/myhttpd/access.pl 2001/08/11 03:56:11 1.2 +++ Coro/myhttpd/access.pl 2001/08/11 16:34:46 1.3 @@ -51,8 +51,13 @@ $self->slog(9, "no country($whois)"); } + $self->{country} = $country; + if ($disallow{$country}) { $self->slog(6, "DISALLOW($uri,$country)"); + + Coro::Event::do_timer(after => 5); + $whois =~ s/&/&/g; $whois =~ s/err(403, "forbidden", { "Content-Type" => "text/html" }, <