Yup 8)
For example when I'm using PerlSvc
and my startup sub is
sub Startup {
while(ContinueRun($delay)) {
$server = IO::Socket::INET->new(LocalPort => $server_port,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10 ) # or SOMAXCONN
or die "Couldn't be a tcp server on port $server_port : $@\n";
while ($client = $server->accept()) {
# $client is the new connection
$client->autoflush(1);
while ( <$client>) {
$line=$_;
open OUTPUT, ">>$logfile" or die "Cannot open $logfile :$!";
print OUTPUT $line;
close OUTPUT;
next;
}
}
}
the service starts but doesn't bin the socket (while in a standalone .exe it does )
Thanks a lot
G.
|