[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.76 by root, Wed Jul 13 13:58:51 2005 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
 sub DESTROY {
    #my $self = shift;
    $::conns--;
 }
+sub prune_cache {
+   my $hash = $_[0];
+   for (keys %$hash) {
+      if (ref $hash->{$_} eq HASH::) {
+         prune_cache($hash->{$_});
+         unless (scalar keys %{$hash->{$_}}) {
+            delete $hash->{$_};
+            $d2++;
+         }
+      }
+   }
+}
+sub prune_caches {
+   prune_cache \%conn;
+   prune_cache \%uri;
+   for (keys %blocked) {
+      delete $blocked{$_} unless $blocked{$_}[0] > $::NOW;
+   }
+}
+Event->timer(interval => 60, cb => \&prune_caches);
 sub slog {
    my $self = shift;
    main::slog($_[0], "$self->{remote_id}> $_[1]");
 }
       $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";
    my $self = shift;
    my $idx = $self->diridx;
    $self->response(200, "ok",
          {
-            "Content-Type"   => "text/html",
+            "Content-Type"   => "text/html; charset=utf-8",
             "Content-Length" => length $idx,
             "Last-Modified"  => time2str ($self->{stat}[9]),
          },
          $idx);
 }
 sub handle_file {
    my ($self, $queue, $tbf) = @_;
    my $length = $self->{stat}[7];
    my $hdr = {
-      "Last-Modified"  => time2str ((stat _)[9]),
+      "Last-Modified" => time2str ((stat _)[9]),
+      "Accept-Ranges" => "bytes",
    };
    my @code = (200, "ok");
    my ($l, $h);
    $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";

Diff Legend

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

Comparing Coro/myhttpd/httpd.pl (file contents): Revision 1.68 by root, Mon May 20 04:08:03 2002 UTC vs. Revision 1.76 by root, Wed Jul 13 13:58:51 2005 UTC

Diff Legend

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.68 by root, Mon May 20 04:08:03 2002 UTC vs.
Revision 1.76 by root, Wed Jul 13 13:58:51 2005 UTC