loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.778, 2006/09/05 20:42:15	version 1.779, 2006/09/15 07:14:04
Line 344 sub appenv {	Line 344 sub appenv {
$env{$key}=$newenv{$key};	$env{$key}=$newenv{$key};
}	}
}	}
	foreach my $key (keys(%newenv)) {
	my $value = &escape($newenv{$key});
	delete($newenv{$key});
	$newenv{&escape($key)}=$value;
	}

my $lockfh;	my $lockfh;
unless (open($lockfh,"$env{'user.environment'}")) {	unless (open($lockfh,"$env{'user.environment'}")) {
Line 369 sub appenv {	Line 374 sub appenv {
chomp($oldenv[$i]);	chomp($oldenv[$i]);
if ($oldenv[$i] ne '') {	if ($oldenv[$i] ne '') {
my ($name,$value)=split(/=/,$oldenv[$i],2);	my ($name,$value)=split(/=/,$oldenv[$i],2);
$name=&unescape($name);
$value=&unescape($value);
unless (defined($newenv{$name})) {	unless (defined($newenv{$name})) {
$newenv{$name}=$value;	$newenv{$name}=$value;
}	}
Line 383 sub appenv {	Line 386 sub appenv {
}	}
my $newname;	my $newname;
foreach $newname (keys %newenv) {	foreach $newname (keys %newenv) {
print $fh &escape($newname).'='.&escape($newenv{$newname})."\n";	print $fh $newname.'='.$newenv{$newname}."\n";
}	}
close($fh);	close($fh);
}	}