loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.304, 2002/12/04 15:23:39	version 1.305, 2002/12/05 19:53:19
Line 202 sub critical {	Line 202 sub critical {
" Critical message to unknown server ($server)</font>");	" Critical message to unknown server ($server)</font>");
return 'no_such_host';	return 'no_such_host';
}	}
	sleep 2;
my $answer=reply($cmd,$server);	my $answer=reply($cmd,$server);
if ($answer eq 'con_lost') {	if ($answer eq 'con_lost') {
my $pingreply=reply('ping',$server);	my $pingreply=reply('ping',$server);
Line 215 sub critical {	Line 216 sub critical {
$middlename=substr($middlename,0,16);	$middlename=substr($middlename,0,16);
$middlename=~s/\W//g;	$middlename=~s/\W//g;
my $dfilename=	my $dfilename=
"$perlvar{'lonSockDir'}/delayed/$now.$middlename.$server";	"$perlvar{'lonSockDir'}/delayed/$now.$dumpcount.$$.$middlename.$server";
	$dumpcount++;
{	{
my $dfh;	my $dfh;
if ($dfh=Apache::File->new(">$dfilename")) {	if ($dfh=Apache::File->new(">$dfilename")) {