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.86, 2001/01/05 20:06:07
Line 258 sub appenv {	Line 258 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';
}	}