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

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.63 by root, Wed Jan 23 03:07:05 2002 UTC vs.
Revision 1.68 by root, Mon May 20 04:08:03 2002 UTC

 our $connections = new Coro::Semaphore $MAX_CONNECTS || 250;
 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;
+my $unused_bytes = 0;
+my $unused_last  = time;
+sub unused_bandwidth {
+   $unused_bytes += $_[0];
+   if ($unused_last < $NOW - 30 && $unused_bytes / ($NOW - $unused_last) > 50000) {
+      $unused_last = $NOW;
+      $unused_bytes = 0;
+      $queue_file->force_wake_next;
+      slog 1, "forced filetransfer due to unused bandwidth";
+   }
+}
 my @newcons;
 my @pool;
 # one "execution thread"
       }
    }
    if ($self->{method} ne "HEAD"
        && $self->{h}{"accept-encoding"} =~ /\bgzip\b/
+       && 400 < length $content
        && $hdr->{"Content-Length"} == length $content
        && !exists $hdr->{"Content-Encoding"}
    ) {
       my $orig = length $content;
       $hdr->{"Content-Encoding"} = "gzip";
    }
    $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).
+   my $log = (POSIX::strftime "%Y-%m-%d %H:%M:%S", gmtime $::NOW).
              " $self->{remote_id} \"$self->{uri}\" $code ".$hdr->{"Content-Length"}.$GZ.
              " \"$self->{h}{referer}\"\n";
-   print $accesslog $log if $accesslog;
+   print $::accesslog $log if $::accesslog;
    print STDERR $log;
-   $self->{written} +=
+   $tbf_top->request(length $res, 1e6);
-      print {$self->{fh}} $res;
+   $self->{written} += print {$self->{fh}} $res;
 }
 sub err {
    my $self = shift;
    my ($code, $msg, $hdr, $content) = @_;
          my (%hdr, $h, $v);
          $hdr{lc $1} .= ",$2"
             while $req =~ /\G
                   ([^:\000-\040]+):
-                  [\010\040]*
+                  [\011\040]*
-                  ((?: [^\015\012]+ | \015\012[\010\040] )*)
+                  ((?: [^\015\012]+ | \015\012[\011\040] )*)
                   \015\012
                /gxc;
          $req =~ /\G\015\012$/
             or $self->err(400, "bad request");
                or $self->err(304, "not modified");
             if (-r "$path/index.html") {
                # replace directory "size" by index.html filesize
                $self->{stat} = [stat ($self->{path} .= "/index.html")];
-               $self->handle_file($queue_index);
+               $self->handle_file($queue_index, $tbf_top);
             } else {
                $self->handle_dir;
             }
          }
       } elsif (-f _ && -r _) {
                   $httpevent->wait;
                }
             }
          }
-         $self->handle_file($queue_file);
+         $self->handle_file($queue_file, $tbf_top);
       } else {
          $self->err(404, "not found");
       }
    }
 }
          },
          $idx);
 }
 sub handle_file {
-   my ($self, $queue) = @_;
+   my ($self, $queue, $tbf) = @_;
    my $length = $self->{stat}[7];
    my $hdr = {
       "Last-Modified"  => time2str ((stat _)[9]),
    };
                         Coro::ready($current);
                      });
             &Coro::schedule;
             last unless $r;
          }
+         $tbf->request(length $buf);
          my $w = syswrite $self->{fh}, $buf
             or last;
          $::written += $w;
          $self->{written} += $w;
          $l += $r;

Diff Legend

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

Comparing Coro/myhttpd/httpd.pl (file contents): Revision 1.63 by root, Wed Jan 23 03:07:05 2002 UTC vs. Revision 1.68 by root, Mon May 20 04:08:03 2002 UTC

Diff Legend

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.63 by root, Wed Jan 23 03:07:05 2002 UTC vs.
Revision 1.68 by root, Mon May 20 04:08:03 2002 UTC