--- cvsroot/Coro/myhttpd/httpd.pl 2001/08/19 23:57:52 1.27
+++ cvsroot/Coro/myhttpd/httpd.pl 2001/08/20 16:58:19 1.28
@@ -152,7 +152,8 @@
my ($self, $code, $msg, $hdr, $content) = @_;
my $res = "HTTP/1.1 $code $msg\015\012";
- #$res .= "Connection: close\015\012";
+ $self->{h}{connection} ||= $hdr->{Connection};
+
$res .= "Date: ".(time2str $::NOW)."\015\012"; # slow? nah. :(
while (my ($h, $v) = each %$hdr) {
@@ -200,6 +201,7 @@
"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",
},
<$time.
Until then, each new access will renew the block. You might want to have a -look at the FAQ.
+look at the FAQ.