loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.89, 2001/01/09 19:55:31	version 1.90, 2001/01/09 22:12:28
Line 234 sub critical {	Line 234 sub critical {

sub appenv {	sub appenv {
my %newenv=@_;	my %newenv=@_;
	my ($in,$out);
map {	map {
if (($newenv{$_}=~/^user\.role/) \|\| ($newenv{$_}=~/^user\.priv/)) {	if (($newenv{$_}=~/^user\.role/) \|\| ($newenv{$_}=~/^user\.priv/)) {
&logthis("<font color=blue>WARNING: ".	&logthis("<font color=blue>WARNING: ".
Line 256 sub appenv {	Line 257 sub appenv {
return 'error: '.$!;	return 'error: '.$!;
}	}
@oldenv=<$fh>;	@oldenv=<$fh>;
	$in=$#oldenv+1;
$fh->close();	$fh->close();
}	}
	&logthis("<font color=green>Number of elements read appenv: ".$in."from".join(" ",caller));
for (my $i=0; $i<=$#oldenv; $i++) {	for (my $i=0; $i<=$#oldenv; $i++) {
chomp($oldenv[$i]);	chomp($oldenv[$i]);
if ($oldenv[$i] ne '') {	if ($oldenv[$i] ne '') {
Line 279 sub appenv {	Line 282 sub appenv {
$fh->close();	$fh->close();
return 'error: '.$!;	return 'error: '.$!;
}	}
foreach $newname (keys %newenv) {	$out=0;
	foreach $newname (sort keys %newenv) {
print $fh "$newname=$newenv{$newname}\n";	print $fh "$newname=$newenv{$newname}\n";
	$out++;
}	}
$fh->close();	$fh->close();
}	}
	&logthis("<font color=green>Number of elements read appenv: ".$in." number out:".$out."from".join(" ",caller));
return 'ok';	return 'ok';
}	}
# ----------------------------------------------------- Delete from Environment	# ----------------------------------------------------- Delete from Environment