--- Coro/myhttpd/tbf.pl	2002/05/20 04:08:04	1.2
+++ Coro/myhttpd/tbf.pl	2002/05/22 00:33:26	1.3
@@ -2,7 +2,7 @@
 
 # kind of token-bucket-filter
 
-my $max_per_client = 1e5;
+my $max_per_client = 64000;
 
 sub new {
    my $class = shift;
@@ -49,15 +49,14 @@
             }
          }
 
-      } else {
-         if ($self->{maxbucket} < $self->{bucket}) {
-            ::unused_bandwidth ($self->{bucket} - $self->{maxbucket});
-            $self->{bucket} = $self->{maxbucket};
-         }
       }
-
       last;
    }
+
+   if ($self->{maxbucket} < $self->{bucket}) {
+      ::unused_bandwidth ($self->{bucket} - $self->{maxbucket});
+      $self->{bucket} = $self->{maxbucket};
+   }
 }
 
 my $_tbf_id;