loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.6, 1999/11/23 15:43:34	version 1.7, 1999/12/22 17:18:04
Line 2	Line 2
# TCP networking package	# TCP networking package
# 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,	# 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,
# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,	# 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,
# 11/8,11/16,11/18,11/22,11/23 Gerd Kortemeyer	# 11/8,11/16,11/18,11/22,11/23,12/22 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 101 sub critical {	Line 101 sub critical {
{	{
my $dfh;	my $dfh;
if ($dfh=Apache::File->new(">$dfilename")) {	if ($dfh=Apache::File->new(">$dfilename")) {
print $dfh "$server:$cmd\n";	print $dfh "$cmd\n";
}	}
}	}
sleep 2;	sleep 2;
Line 113 sub critical {	Line 113 sub critical {
}	}
}	}
chomp($wcmd);	chomp($wcmd);
if ($wcmd eq "$server:$cmd") {	if ($wcmd eq $cmd) {
&logthis("Connection buffer $dfilename: $cmd");	&logthis("Connection buffer $dfilename: $cmd");
&logperm("D:$server:$cmd");	&logperm("D:$server:$cmd");
return 'con_delayed';	return 'con_delayed';