--- cvsroot/Coro/myhttpd/httpd.pl 2001/08/25 15:14:03 1.29
+++ cvsroot/Coro/myhttpd/httpd.pl 2001/08/26 14:55:46 1.30
@@ -190,40 +190,6 @@
die bless {}, err::;
}
-sub err_blocked {
- my $self = shift;
- my $ip = $self->{remote_addr};
- my $time = time2str $blocked{$ip} = $::NOW + $::BLOCKTIME;
-
- Coro::Event::do_timer(after => 20*rand);
-
- $self->err(401, "too many connections",
- {
- "Content-Type" => "text/html",
- "Retry-After" => $::BLOCKTIME,
- "Warning" => "Please do NOT retry, you have been blocked",
- "WWW-Authenticate" => "Basic realm=\"Please do NOT retry, you have been blocked\"",
- "Connection" => "close",
- },
- < You have been blocked because you opened too many connections. You
-may retry at$time.
Until then, each new access will renew the block. You might want to have a -look at the FAQ.
- -