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

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.62 by root, Sun Jan 6 05:29:39 2002 UTC vs.
Revision 1.63 by root, Wed Jan 23 03:07:05 2002 UTC

 use Coro::Socket;
 use Coro::Signal;
 use HTTP::Date;
 use POSIX ();
+use Compress::Zlib ();
 no utf8;
 use bytes;
 # at least on my machine, this thingy serves files
 }
 our $connections = new Coro::Semaphore $MAX_CONNECTS || 250;
 our $httpevent   = new Coro::Signal;
-our $queue_file  = new transferqueue slots => $MAX_TRANSFERS, maxsize => 250_000_000;
+our $queue_file  = new transferqueue $MAX_TRANSFERS;
-our $queue_index = new transferqueue slots => 10;
+our $queue_index = new transferqueue 10;
-our $requests;
 my @newcons;
 my @pool;
 # one "execution thread"
 }
 sub response {
    my ($self, $code, $msg, $hdr, $content) = @_;
    my $res = "HTTP/1.1 $code $msg\015\012";
+   my $GZ = "";
    if (exists $hdr->{Connection}) {
       if ($hdr->{Connection} =~ /close/) {
          $self->{h}{connection} = "close"
       }
             $self->{h}{connection} = "close"
          }
       }
    }
+   if ($self->{method} ne "HEAD"
+       && $self->{h}{"accept-encoding"} =~ /\bgzip\b/
+       && $hdr->{"Content-Length"} == length $content
+       && !exists $hdr->{"Content-Encoding"}
+   ) {
+      my $orig = length $content;
+      $hdr->{"Content-Encoding"} = "gzip";
+      $content = Compress::Zlib::memGzip(\$content);
+      $hdr->{"Content-Length"} = length $content;
+      $GZ = sprintf "GZ%02d", 100 - 100*((length $content) / $orig);
+   }
    $res .= "Date: $HTTP_NOW\015\012";
    while (my ($h, $v) = each %$hdr) {
       $res .= "$h: $v\015\012"
    }
    $res .= "\015\012";
    $res .= $content if defined $content and $self->{method} ne "HEAD";
    my $log = (POSIX::strftime "%Y-%m-%d %H:%M:%S", gmtime $NOW).
-             " $self->{remote_id} \"$self->{uri}\" $code ".$hdr->{"Content-Length"}.
+             " $self->{remote_id} \"$self->{uri}\" $code ".$hdr->{"Content-Length"}.$GZ.
              " \"$self->{h}{referer}\"\n";
    print $accesslog $log if $accesslog;
    print STDERR $log;
          my (%hdr, $h, $v);
          $hdr{lc $1} .= ",$2"
             while $req =~ /\G
                   ([^:\000-\040]+):
-                  [\008\040]*
+                  [\010\040]*
-                  ((?: [^\015\012]+ | \015\012[\008\040] )*)
+                  ((?: [^\015\012]+ | \015\012[\010\040] )*)
                   \015\012
                /gxc;
          $req =~ /\G\015\012$/
             or $self->err(400, "bad request");
          $self->{h}{$h} = substr $v, 1
             while ($h, $v) = each %hdr;
       }
-      $requests++;
       # remote id should be unique per user
       my $id = $self->{remote_addr};
       if (exists $self->{h}{"client-ip"}) {

Diff Legend

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

Comparing Coro/myhttpd/httpd.pl (file contents): Revision 1.62 by root, Sun Jan 6 05:29:39 2002 UTC vs. Revision 1.63 by root, Wed Jan 23 03:07:05 2002 UTC

Diff Legend

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.62 by root, Sun Jan 6 05:29:39 2002 UTC vs.
Revision 1.63 by root, Wed Jan 23 03:07:05 2002 UTC