![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.853, 2007/03/28 20:28:31 | version 1.855, 2007/03/30 18:18:43 |
|---|---|
| Line 150 sub create_connection { | Line 150 sub create_connection { |
| Type => SOCK_STREAM, | Type => SOCK_STREAM, |
| Timeout => 10); | Timeout => 10); |
| return 0 if (!$client); | return 0 if (!$client); |
| print $client ("$hostname:$lonid\n"); | print $client (join(':',$hostname,$lonid,&machine_ids($lonid))."\n"); |
| my $result = <$client>; | my $result = <$client>; |
| chomp($result); | chomp($result); |
| return 1 if ($result eq 'done'); | return 1 if ($result eq 'done'); |