socket detect client disconnect

[weasel669]

I'm working on a small test server that displays "hello world" on both the server screen and the client screen. my problem is when i disconnect the client "ctrl-c" the server doesn't know this. how do i detect that the client has disconnected so the server can reset itself and wait for a new connection?

#!/usr/bin/perl -w
use IO::Socket;

$PORT = 3334;

$server = IO::Socket::INET->new( Proto     => 'tcp',
                                 LocalPort => $PORT,
                                 Listen    => SOMAXCONN,
                                 Reuse     => 1)

	or die "can't setup server" unless $server;
	
print $server->sockport."\n";

while (my $client = $server->accept()) {
	$client->autoflush(1);
	
	while ($client) {
		$outstream = "Hello World";
		print $outstream ."\r\n";
		print $client $outstream ."\r\n";
	   	sleep 1;
	}
    $client->close;
}
$server->close;

 

[raztaboule]

I use that kind of syntax to set up a timeout, but i don't know if it's the "good" way to do it. ( i post my code there is two or three day hopping someone will comment it, but... )

perhaps in you case something like this should work :
eval {
local $SIG{ALRM} = sub {die "TIMEOUT" } ;
alarm 10 ;
while($clients)
{
alarm 0 ;
print .....
alarm 10 ;
}
};
if ( $@ )
{
print "TIMEOUT ERROR after 10 secondes waiting !" ;
}