loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.87, 2001/01/05 20:45:09	version 1.88, 2001/01/06 16:08:24
Line 83	Line 83
# 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/01 Guy Albertelli
# 05/01 Gerd Kortemeyer	# 05/01,06/01 Gerd Kortemeyer

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

Line 97 use IO::Socket;	Line 97 use IO::Socket;
use GDBM_File;	use GDBM_File;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use HTML::TokeParser;	use HTML::TokeParser;
	use Fcntl qw(:flock);

# --------------------------------------------------------------------- Logging	# --------------------------------------------------------------------- Logging

Line 260 sub appenv {	Line 261 sub appenv {
return 'error';	return 'error';
}	}
my $newname;	my $newname;
flock($fh,'LOCK_EX');	flock($fh,LOCK_EX);
foreach $newname (keys %newenv) {	foreach $newname (keys %newenv) {
print $fh "$newname=$newenv{$newname}\n";	print $fh "$newname=$newenv{$newname}\n";
}	}
Line 291 sub delenv {	Line 292 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');	flock($fh,LOCK_EX);
map {	map {
unless ($_=~/^$delthis/) { print $fh $_; }	unless ($_=~/^$delthis/) { print $fh $_; }
} @oldenv;	} @oldenv;