loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.90, 2001/01/09 22:12:28	version 1.91, 2001/01/09 22:27:07
Line 256 sub appenv {	Line 256 sub appenv {
$fh->close();	$fh->close();
return 'error: '.$!;	return 'error: '.$!;
}	}
	&logthis("<font color=green>appenv LOCK_SH gotten");
@oldenv=<$fh>;	@oldenv=<$fh>;
$in=$#oldenv+1;	$in=$#oldenv+1;
	&logthis("<font color=green>appenv LOCK_SH to be closed");
$fh->close();	$fh->close();
}	}
&logthis("<font color=green>Number of elements read appenv: ".$in."from".join(" ",caller));	&logthis("<font color=green>Number of elements read appenv: ".$in."from".join(" ",caller));
Line 282 sub appenv {	Line 284 sub appenv {
$fh->close();	$fh->close();
return 'error: '.$!;	return 'error: '.$!;
}	}
	&logthis("<font color=green>appenv LOCK_EX gotten");
$out=0;	$out=0;
foreach $newname (sort keys %newenv) {	foreach $newname (sort keys %newenv) {
print $fh "$newname=$newenv{$newname}\n";	print $fh "$newname=$newenv{$newname}\n";
$out++;	$out++;
}	}
	&logthis("<font color=green>appenv LOCK_EX to be closed");
$fh->close();	$fh->close();
}	}
&logthis("<font color=green>Number of elements read appenv: ".$in." number out:".$out."from".join(" ",caller));	&logthis("<font color=green>Number of elements read appenv: ".$in." number out:".$out."from".join(" ",caller));