--- Coro/myhttpd/shell.pl	2001/08/15 03:06:22	1.12
+++ Coro/myhttpd/shell.pl	2001/08/15 03:13:36	1.13
@@ -22,9 +22,10 @@
       s/\015?\012$//;
       if (s/^(\S+)\s*// && (my $cmd = $complete{$1})) {
          if ($cmd eq "quit") {
-            print "bye bye.\n";#d#
+            print $fh "bye bye.\n";#d#
             last;
          } elsif ($cmd eq "squit") {
+            print $fh "server quit.\n";#d#
             Event::unloop;
             last;
          } elsif ($cmd eq "print") {