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

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.73 by root, Sat Oct 5 09:02:17 2002 UTC vs.
Revision 1.77 by root, Sat Sep 17 20:21:11 2005 UTC

 package conn;
 use Socket;
 use HTTP::Date;
 use Convert::Scalar 'weaken';
-use Linux::AIO;
+use IO::AIO;
-Linux::AIO::min_parallel $::AIO_PARALLEL;
+IO::AIO::min_parallel $::AIO_PARALLEL;
-Event->io(fd => Linux::AIO::poll_fileno,
+Event->io(fd => IO::AIO::poll_fileno,
           poll => 'r', async => 1,
-          cb => \&Linux::AIO::poll_cb);
+          cb => \&IO::AIO::poll_cb);
 our %conn; # $conn{ip}{self} => connobj
 our %uri;  # $uri{ip}{uri}{self}
 our %blocked;
 our %mimetype;
 sub prune_caches {
    prune_cache \%conn;
    prune_cache \%uri;
    for (keys %blocked) {
-      delete $blocked{$_} if $blocked{$_}[0] > $::NOW;
+      delete $blocked{$_} unless $blocked{$_}[0] > $::NOW;
    }
 }
 Event->timer(interval => 60, cb => \&prune_caches);
    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);

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