Re: how to do a timeout of accept() in ActivePerl

[Bennett Haselton]

That works great, thanks!
        -Bennett
At 03:08 PM 8/20/2004 -0500, Dirk Bremer \(NISC\) wrote:
----- Original Message -----
From: "Bennett Haselton" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, August 20, 2004 14:52
Subject: how to do a timeout of accept() in ActivePerl
> However, I'm trying to do something similar in ActivePerl (v5.8.3 build
> 809) but the ActivePerl-Winfaq5.html file says that the alarm() 
function
is
> not implemented in ActivePerl.  So is there a way in ActivePerl to 
force a
> block of code to time out after a certain number of seconds?  This is 
the
> code that I'm trying to make time out:
>
> my $server = IO::Socket::INET->new( Proto     => 'tcp',
>                                   LocalPort => $PORT,
>                                    Listen    => SOMAXCONN,
>                                    Reuse     => 1);
> $server->accept();
>
> I tried seeing if the accept() function had its own timeout that I 
could
> use -- this is what the documentation says:
>
>  >>>
> accept([PKG])

Bennett,
I do soemthing similar by specifying the Timeout parameter like this:
    my $Socket = IO::Socket::INET->new(LocalHost => $SocketServer,
                                       Listen    => 5,
                                       LocalPort => $Port,
                                       Proto     => 'tcp',
                                       Reuse     => 1,
                                       Timeout   => $Interval);
The value of the variable I am using, i.e. $Interval, can be set to 
whatever
you desire, it represents the number of seconds that the socket will 
listen
for a connection.

Dirk Bremer - Systems Programmer II - ESS/AMS  - NISC St. Peters
USA Central Time Zone
636-922-9158 ext. 8652 fax 636-447-4471
[EMAIL PROTECTED]
www.nisc.cc
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs