cvs commit: p5ee/App-Context/lib/App/Context NetServer.pm

cvsuser     06/02/28 19:32:37

  Modified:    App-Context/lib/App/Context NetServer.pm
  Log:
  marginally tweaked
  
  Revision  Changes    Path
  1.7       +7 -2      p5ee/App-Context/lib/App/Context/NetServer.pm
  
  Index: NetServer.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Context/lib/App/Context/NetServer.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- NetServer.pm	2 Sep 2004 20:56:51 -0000	1.6
  +++ NetServer.pm	1 Mar 2006 03:32:36 -0000	1.7
  @@ -187,10 +187,15 @@
       eval {
           local $SIG{ALRM} = sub { die "Timed Out!\n" };
           my $timeout = 10; # give the user 30 seconds to type a line
  +        #my $header_sent = 0;
   
           my $previous_alarm = alarm($timeout);
  -        while( <STDIN> ){
  +        while (<STDIN>) {
               s/\r?\n$//;
  +            #if (!$header_sent) {
  +            #    print "Content-type: text/plain\n\n";
  +            #    $header_sent = 1;
  +            #}
               print "You said \"$_\"\r\n";
               alarm($timeout);
           }