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

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.68 by root, Mon May 20 04:08:03 2002 UTC vs.
Revision 1.72 by root, Tue Sep 10 03:08:03 2002 UTC

 our $httpevent   = new Coro::Signal;
 our $queue_file  = new transferqueue $MAX_TRANSFERS;
 our $queue_index = new transferqueue 10;
-our $tbf_top     = new tbf rate => 200000;
+our $tbf_top     = new tbf rate => $TBF_RATE || 100000;
 my $unused_bytes = 0;
 my $unused_last  = time;
 sub unused_bandwidth {
          if (@pool) {
             (pop @pool)->ready;
          } else {
             async \&handler;
          }
       }
    };
 }
 my $http_port = new Coro::Socket
       $hdr->{"Content-Length"} = length $content;
       $GZ = sprintf "GZ%02d", 100 - 100*((length $content) / $orig);
    }
    $res .= "Date: $HTTP_NOW\015\012";
+   $res .= "Server: $::NAME\015\012";
    while (my ($h, $v) = each %$hdr) {
       $res .= "$h: $v\015\012"
    }
    $res .= "\015\012";
    $self->response(@code, $hdr, "");
    if ($self->{method} eq "GET") {
       $self->{time} = $::NOW;
+      $self->{written} = 0;
       my $current = $Coro::current;
       my ($fh, $buf, $r);
       while ($h > 0) {
          unless ($locked) {
             if ($locked ||= $transfer->try($::WAIT_INTERVAL)) {
                $bufsize = $::BUFSIZE;
                $self->{time} = $::NOW;
+               $self->{written} = 0;
             }
          }
          if ($blocked{$self->{remote_id}}) {
             $self->{h}{connection} = "close";

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