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);
}
