Hi All,
I have an issue when something goes wrong with the client that's trying
to connect.
9 out of 10 times this works fine, but there are odd situations where
$clientip doesn't get filled in, which leaves me with a connection I
can't do anything with...
I tried to use close($client) to just terminate these odd connections
when $clientip is empty but that doesn't work..
The program keeps running but these 'zombie' connections will eventually
fill up my system.
Just a small snip of the program...
#!/usr/bin/perl -w
use strict;
use IO::Socket qw(:DEFAULT :crlf);
my $server = IO::Socket::INET->new(Proto=>"tcp", LocalPort=>$port,
Listen=>$maxconn, Reuse=>1, Timeout=>300)
or die "Can't setup server\n";
while ( $client = $server->accept()) {
$clientip = $client->peerhost();
$clienthost = gethostbyaddr($client->peeraddr,AF_INET);
# Some other stuff
}
Thanks for any tips!
-
Marco van Kammen
Springer Science+Business Media
System Manager & Postmaster
-
van Godewijckstraat 30 | 3311 GX
Office Number: 05E21
Dordrecht | The Netherlands
-
tel
+31(78)6576446
fax
+31(78)6576302
-
www.springeronline.com <http://www.springeronline.com>
www.springer.com <http://www.springer.com/>
-
