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

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.71 by root, Mon Jul 29 21:41:54 2002 UTC vs.
Revision 1.74 by root, Fri Oct 25 13:51:39 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 => 100000;
+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]");
 }

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