loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.161, 2001/10/05 17:54:36	version 1.162, 2001/10/06 20:57:45
Line 153 sub logthis {	Line 153 sub logthis {
my $execdir=$perlvar{'lonDaemons'};	my $execdir=$perlvar{'lonDaemons'};
my $now=time;	my $now=time;
my $local=localtime($now);	my $local=localtime($now);
my $fh;	my $fh=Apache::File->new(">>$execdir/logs/lonnet.log");
$fh=Apache::File->new(">>$execdir/logs/lonnet.log") and	print $fh "$local ($$): $message\n";
print $fh "$local ($$): $message\n";
return 1;	return 1;
}	}

Line 164 sub logperm {	Line 163 sub logperm {
my $execdir=$perlvar{'lonDaemons'};	my $execdir=$perlvar{'lonDaemons'};
my $now=time;	my $now=time;
my $local=localtime($now);	my $local=localtime($now);
my $fh;	my $fh=Apache::File->new(">>$execdir/logs/lonnet.perm.log");
$fh=Apache::File->new(">>$execdir/logs/lonnet.perm.log") and	print $fh "$now:$message:$local\n";
print $fh "$now:$message:$local\n";
return 1;	return 1;
}	}