version 1.52, 2003/07/25 01:16:29
|
version 1.53, 2003/07/31 21:32:44
|
Line 759 sub openremote {
|
Line 759 sub openremote {
|
|
|
sleep 5; |
sleep 5; |
&status("Ponging $conserver"); |
&status("Ponging $conserver"); |
print $remotesock "pong\n"; |
$answer= londtransaction($remotesock,"pong",60); |
$answer=<$remotesock>; |
|
chomp($answer); |
chomp($answer); |
if ($answer!~/^$conserver/) { |
if ($answer!~/^$conserver/) { |
&logthis("Pong reply: >$answer<"); |
&logthis("Pong reply: >$answer<"); |
Line 768 sub openremote {
|
Line 767 sub openremote {
|
# ----------------------------------------------------------- Initialize cipher |
# ----------------------------------------------------------- Initialize cipher |
|
|
&status("Initialize cipher"); |
&status("Initialize cipher"); |
print $remotesock "ekey\n"; |
my $buildkey=londtransaction($remotesock,"ekey",60); |
my $buildkey=<$remotesock>; |
|
my $key=$conserver.$perlvar{'lonHostID'}; |
my $key=$conserver.$perlvar{'lonHostID'}; |
$key=~tr/a-z/A-Z/; |
$key=~tr/a-z/A-Z/; |
$key=~tr/G-P/0-9/; |
$key=~tr/G-P/0-9/; |