version 1.52, 2003/07/25 01:16:29
|
version 1.54, 2003/08/29 18:25:01
|
Line 124 close(CONFIG);
|
Line 124 close(CONFIG);
|
%childatt = (); # number of attempts to start server |
%childatt = (); # number of attempts to start server |
# for ID |
# for ID |
|
|
$childmaxattempts=5; |
$childmaxattempts=15; |
|
|
# ---------------------------------------------------- Fork once and dissociate |
# ---------------------------------------------------- Fork once and dissociate |
&status("Fork and dissociate"); |
&status("Fork and dissociate"); |
Line 638 sub handle {
|
Line 638 sub handle {
|
$request="enc:$cmdlength:$encrequest"; |
$request="enc:$cmdlength:$encrequest"; |
} |
} |
# --------------------------------------------------------------- Main exchange |
# --------------------------------------------------------------- Main exchange |
$answer = londtransaction($remotesock, $request, 300); |
$answer = londtransaction($remotesock, $request, 60); |
|
|
if($DEBUG) { |
if($DEBUG) { |
&logthis("<font color=green> Request data exchange complete"); |
&logthis("<font color=green> Request data exchange complete"); |
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/; |