[ViewVC] Diff of: cvs/Coro/myhttpd/httpd.pl

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.19 by root, Thu Aug 16 16:40:07 2001 UTC vs.
Revision 1.20 by root, Thu Aug 16 21:55:35 2001 UTC

 sub err_blocked {
    my $self = shift;
    my $ip = $self->{remote_addr};
    my $time = time2str $blocked{$ip} = $::NOW + $::BLOCKTIME;
-   Coro::Event::do_timer(after => 15);
+   Coro::Event::do_timer(after => 20*rand);
    $self->err(401, "too many connections",
               {
                  "Content-Type" => "text/html",
-                 "Retry-After" => $::BLOCKTIME
+                 "Retry-After" => $::BLOCKTIME,
+                 "Warning" => "Please do NOT retry, you have been blocked",
+                 "WWW-Authenticate" => "Basic realm=\"Please do NOT retry, you have been blocked\"",
               },
               <<EOF);
 <html><p>
 You have been blocked because you opened too many connections. You
 may retry at</p>
       $self->{method} = $1;
       $self->{uri} = $2;
       $self->{version} = $3;
-      $3 eq "1.0" or $3 eq "1.1"
+      $3 =~ /^1\./
          or $self->err(506, "http protocol version $3 not supported");
       # parse headers
       {
          my (%hdr, $h, $v);
             goto ignore;
          }
          goto satisfiable if $l >= 0 && $l < $length && $h >= 0 && $h > $l;
       }
       $hdr->{"Content-Range"} = "bytes */$length";
+      $self->slog(9, "not satisfiable($self->{h}{range}|".$self->{h}{"user-agent"}.")");
       $self->err(416, "not satisfiable", $hdr);
 satisfiable:
       # check for segmented downloads
       if ($l && $::NO_SEGMENTED) {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines