dwatson06 has asked for the wisdom of the Perl Monks concerning the following question:
Any suggestions would be greatly appreciated. I have hit complete discombobulation mode.use IO::Socket; $local = IO::Socket::INET->new( Proto => 'tcp', LocalAddr => '192.168.150.131:80', Reuse => 1 ) or die "$!"; $local->listen(); print "Awaiting client...\n"; my $addr; while ($addr = $local->accept() ) { $addr->autoflush(1); print "Connecting from: ", $addr->peerhost(); print " Port: ", $addr->peerport(), "\n"; while (<$addr>) { # Should a catch go here upon the \r\n\r\n and close conn # or a call to accept continuation? # Everything is coming into the computer # The server just stops print "Client: $_"; } close $addr; # close client print "Idle...\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Socket stops at Header not handling Continuation
by kidongrok (Acolyte) on May 07, 2004 at 21:09 UTC | |
by dwatson06 (Friar) on May 07, 2004 at 21:37 UTC | |
|
Re: Socket stops at Header not handling Continuation
by Duco (Sexton) on May 07, 2004 at 22:31 UTC | |
by dwatson06 (Friar) on May 10, 2004 at 14:06 UTC |