|
version 1.55, 2003/09/17 19:05:03
|
version 1.56, 2003/10/24 16:36:14
|
|
Line 711 sub openremote {
|
Line 711 sub openremote {
|
| my $st=120+int(rand(240)); # Sleep before opening: |
my $st=120+int(rand(240)); # Sleep before opening: |
| |
|
| unless ( |
unless ( |
| $remotesock = IO::Socket::INET->new(PeerAddr => $hostip{$conserver}, |
$remotesock = IO::Socket::INET->new(PeerAddr => $hostname{$conserver}, |
| PeerPort => $perlvar{'londPort'}, |
PeerPort => $perlvar{'londPort'}, |
| Proto => "tcp", |
Proto => "tcp", |
| Type => SOCK_STREAM) |
Type => SOCK_STREAM) |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonc CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom