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

Comparing Coro/myhttpd/shell.pl (file contents):
Revision 1.7 by root, Sat Aug 11 16:53:59 2001 UTC vs.
Revision 1.8 by root, Sat Aug 11 19:59:20 2001 UTC

 use Coro;
 use Coro::Handle;
 use Coro::Socket;
 use Event;
+use Time::HiRes 'time';
+my $last_ts = time;
 sub shell {
    my $fh = shift;
    while (defined (print $fh "cmd> "), $_ = <$fh>) {
       s/\015?\012$//;
       chomp;
       if (/^q/) {
          Event::unloop;
       } elsif (/^i/) {
+         $::NOW = time+1e-6;
          my @data;
          for (values %conn::conn) {
             for (values %$_) {
                next unless $_;
+               my $rate = sprintf "%.1f", $_->{written} / ($::NOW - $_->{time});
-               push @data, "$_->{country}/$_->{remote_addr} $_->{method} $_->{uri}\n";
+               push @data, "$_->{country}/$_->{remote_addr} $_->{written} $rate $_->{method} $_->{uri}\n";
             }
          }
          print $fh sort @data;
          print $fh scalar@data, " connections\n";#d#
+         print $fh "$::written bytes written in the last ",$::NOW - $last_ts, " seconds\n";
+         printf $fh "(%.1f bytes/s)\n", $::written / ($::NOW - $last_ts);
+         ($last_ts, $::written) = ($::NOW, 0);
       } elsif (/^ref/) {
          read_blocklist;
       } elsif (/^r/) {
          $::RESTART = 1;
          unloop;
          print $fh "bye bye.\n";
          last;
+      } elsif (/^co\S*\s+(\S+)/) {
+         print $fh ip_request($1), "\n";
       } else {
          print $fh "try quit, info, restart, refresh\n";
       }
    }
 }

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