![[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.889, 2007/06/13 02:21:54 | version 1.890, 2007/06/13 03:00:59 |
|---|---|
| Line 149 sub create_connection { | Line 149 sub create_connection { |
| Type => SOCK_STREAM, | Type => SOCK_STREAM, |
| Timeout => 10); | Timeout => 10); |
| return 0 if (!$client); | return 0 if (!$client); |
| print $client (join(':',$hostname,$lonid,&machine_ids($lonid))."\n"); | print $client (join(':',$hostname,$lonid,&machine_ids($hostname))."\n"); |
| my $result = <$client>; | my $result = <$client>; |
| chomp($result); | chomp($result); |
| return 1 if ($result eq 'done'); | return 1 if ($result eq 'done'); |