loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

version 1.1.1.1, 1999/10/13 17:48:51	version 1.2, 1999/10/26 20:24:47
Line 10	Line 10
# HUP restarts	# HUP restarts
# USR1 tries to open connections again	# USR1 tries to open connections again

# 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19,10/8,10/9 Gerd Kortemeyer	# 6/4/99,6/5,6/7,6/8,6/9,6/10,6/11,6/12,7/14,7/19,
	# 10/8,10/9,10/15 Gerd Kortemeyer
# based on nonforker from Perl Cookbook	# based on nonforker from Perl Cookbook
# - server who multiplexes without forking	# - server who multiplexes without forking

Line 214 unless (	Line 215 unless (
exit;	exit;
};	};
# --------------------------------------- Send a ping to make other end do USR1	# --------------------------------------- Send a ping to make other end do USR1
print $remotesock "ping\n";	print $remotesock "init\n";
	$answer=<$remotesock>;
	print $remotesock "$answer";
$answer=<$remotesock>;	$answer=<$remotesock>;
chomp($answer);	chomp($answer);
&logthis("Ping reply for $conserver: >$answer<");	&logthis("Init reply for $conserver: >$answer<");
sleep 5;	sleep 5;
print $remotesock "pong\n";	print $remotesock "pong\n";
$answer=<$remotesock>;	$answer=<$remotesock>;