loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

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/;