--- Coro/myhttpd/httpd.pl 2001/08/19 23:57:52 1.27 +++ 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", }, < @@ -214,7 +216,7 @@

$time.

Until then, each new access will renew the block. You might want to have a -look at the FAQ.

+look at the FAQ.

EOF @@ -461,7 +463,20 @@ # check for segmented downloads if ($l && $::NO_SEGMENTED) { if (%{$uri{$self->{remote_addr}}{$self->{uri}}} > 1) { - $self->err(400, "segmented downloads are not allowed"); + $self->err(400, "segmented downloads are not allowed", + { "Content-Type" => "text/html", Connection => "close" }, < + +Segmented downloads are not allowed + + + +

Segmented downloads are not allowed on this server. Please refer to the +FAQ.

+ + +EOF +EOF } }