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

Comparing Coro/myhttpd/shell.pl (file contents):
Revision 1.1 by root, Fri Aug 10 02:29:01 2001 UTC vs.
Revision 1.3 by root, Fri Aug 10 15:58:05 2001 UTC

 sub shell {
    my $fh = shift;
    while (defined (print $fh "cmd> "), $_ = <$fh>) {
+      s/\015?\012$//;
       chomp;
-      if (/quit/) {
+      if (/^q/) {
          Event::unloop;
-      } elsif (/info/) {
+      } elsif (/^i/) {
-         my @conn;
+         my @data;
-         push @conn, values %$_ for values %conn::conn;
          for (values %conn::conn) {
             for (values %$_) {
                next unless $_;
-               print "$_: $_->{remote_addr} $_->{uri}\n";
+               push @data, "$_: $_->{remote_addr} $_->{uri}\n";
             }
          }
+         print $fh sort @data;
+         print $fh scalar@data, " connections\n";#d#
+      } elsif (/^r/) {
+         $::RESTART = 1;
+         unloop;
+         print $fh "bye bye.\n";
+         last;
       } else {
-         print "try quit\n";
+         print $fh "try quit, info, restart\n";
       }
    }
 }
 # bind to tcp port
         LocalPort => $CMDSHELL_PORT,
         ReuseAddr => 1,
         Listen => 1,
    or die "unable to bind cmdshell port: $!";
+   push @listen_sockets, $port;
    async {
       async \&shell, $port->accept;
    };
 }

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