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

Comparing Coro/myhttpd/access.pl (file contents):
Revision 1.26 by root, Tue Dec 4 15:57:59 2001 UTC vs.
Revision 1.28 by root, Thu Jan 3 01:20:17 2002 UTC

 package transferqueue;
 my @reserve = (
-      [  1_200_000, 1],
+      [  1_200_000, 2],
-      [  3_000_000, 1],
+      [  8_000_000, 1],
       [ 75_000_000, 1],
 );
 sub new {
    my $class = shift;
    my $self = bless {
-      slots   => $_[0],
+      slots   => 1,
+      maxsize => 0,
       lastspb => 0,
       avgspb  => 0,
+      @_,
    }, $class;
    $self->{reschedule} = Event->timer(
          after => 10,
          interval => 3,
          cb => sub { $self->wake_next },
 sub start_transfer {
    my $self = shift;
    my $size = $_[0];
+   if ($self->{maxsize} && $self->{maxsize} < $size) {
+      $size = $self->{maxsize};
+   }
    my $transfer = bless {
       queue   => $self,
       time    => $::NOW,
       size    => $size,
       coro    => $Coro::current,
          $min += $_->[1];
       }
       last unless $self->{slots} > $min;
       my $transfer = shift @{$self->{wait}};
       $self->{lastspb} = $transfer->{spb};
-      $self->{avgspb} ||= $transfer->{spb};
-      $self->{avgspb} = $self->{avgspb} * 0.95 + $transfer->{spb} * 0.05;
+      $self->{avgspb} = $self->{avgspb} * 0.99 + $transfer->{spb} * 0.01;
       $self->{started}++;
       $transfer->wake;
       last;
    }
 }

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