loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.85, 2000/12/29 22:40:33	version 1.87, 2001/01/05 20:45:09
Line 82	Line 82
# 10/30,10/31,	# 10/30,10/31,
# 11/2,11/14,11/15,11/16,11/20,11/21,11/22,11/25,11/27,	# 11/2,11/14,11/15,11/16,11/20,11/21,11/22,11/25,11/27,
# 12/02,12/12,12/13,12/14,12/28,12/29 Gerd Kortemeyer	# 12/02,12/12,12/13,12/14,12/28,12/29 Gerd Kortemeyer
	# 05/01/01 Guy Albertelli
	# 05/01 Gerd Kortemeyer

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

Line 258 sub appenv {	Line 260 sub appenv {
return 'error';	return 'error';
}	}
my $newname;	my $newname;
	flock($fh,'LOCK_EX');
foreach $newname (keys %newenv) {	foreach $newname (keys %newenv) {
print $fh "$newname=$newenv{$newname}\n";	print $fh "$newname=$newenv{$newname}\n";
}	}
	$fh->close();
}	}
return 'ok';	return 'ok';
}	}
Line 287 sub delenv {	Line 291 sub delenv {
unless ($fh=Apache::File->new(">$ENV{'user.environment'}")) {	unless ($fh=Apache::File->new(">$ENV{'user.environment'}")) {
return 'error';	return 'error';
}	}
	flock($fh,'LOCK_EX');
map {	map {
unless ($_=~/^$delthis/) { print $fh $_; }	unless ($_=~/^$delthis/) { print $fh $_; }
} @oldenv;	} @oldenv;
	$fh->close();
}	}
return 'ok';	return 'ok';
}	}