![[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.1398, 2018/12/27 20:10:56 | version 1.1399, 2018/12/29 16:41:24 |
|---|---|
| Line 184 sub create_connection { | Line 184 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($hostname))."\n"); | print $client (join(':',$hostname,$lonid,&machine_ids($hostname),$loncaparevs{$lonid})."\n"); |
| my $result = <$client>; | my $result = <$client>; |
| chomp($result); | chomp($result); |
| return 1 if ($result eq 'done'); | return 1 if ($result eq 'done'); |