Re^2: built-in socket functions

[tenny1204]

in reply to Re: built-in socket functions
in thread built-in socket functions

I tried errorchecking but no error, doesn't even seem to matter what i write after pack().I have something like:

$port=80;
$proto=getprotobyname('tcp');
socket(SOCKET,AF_INET,SOCK_STREAM,$proto) or die "no socket";
setsockopt(SOCKET,SOL_SOCKET,SO_RCVTIMEO,pack("LL",1,0));
$iadr = inet_aton("127.0.0.1");
$padr=sockaddr_in($port,$iadr);
if(connect(SOCKET,$padr)){
print "connection ok";}
else{print "$!\n";}

It should correspond to something like:

$conn = IO::Socket::INET->new(
    PeerAddr=>"127.0.0.1",
    PeerPort=>80,
    Proto=>'tcp',
    Timeout=> 1, 
        Blocking=>1    );

So: a blocking socket with a 1 second timeout because now the standardtimeout is something like 10 seconds,making my applications run slower iso faster which was the general idea.

[BrowserUk]

See Re: how to set socket recv timeout in architecture independent manner?

[tenny1204]

I allready looked at that, says on windows SO_RCVTIMEO is considered to be a DWORD, but i cannot find any documentation on how to pack a DWORD, so i keep getting stuck. I thought maybe it would be something simple, cause it doesn't take much effort if you're using the IO::Socket module. But nevermind, I'll work something out. Thank you.