loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.96, 2001/01/11 11:08:37	version 1.97, 2001/01/11 11:11:27
Line 248 sub appenv {	Line 248 sub appenv {

my $lockfh;	my $lockfh;
unless ($lockfh=Apache::File->new("$ENV{'user.environment'}")) {	unless ($lockfh=Apache::File->new("$ENV{'user.environment'}")) {
return 'error';	return 'error: '.$!;
}	}
unless (flock($lockfh,LOCK_EX)) {	unless (flock($lockfh,LOCK_EX)) {
&logthis("<font color=blue>WARNING: ".	&logthis("<font color=blue>WARNING: ".
Line 261 sub appenv {	Line 261 sub appenv {
{	{
my $fh;	my $fh;
unless ($fh=Apache::File->new("$ENV{'user.environment'}")) {	unless ($fh=Apache::File->new("$ENV{'user.environment'}")) {
return 'error';	return 'error: '.$!;
}	}
@oldenv=<$fh>;	@oldenv=<$fh>;
$fh->close();	$fh->close();