loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.342, 2006/09/05 15:35:14	version 1.343, 2006/10/11 19:15:47
Line 2123 sub token_auth_user_file_handler {	Line 2123 sub token_auth_user_file_handler {

chomp($session);	chomp($session);
my $reply="non_auth\n";	my $reply="non_auth\n";
if (open(ENVIN,$perlvar{'lonIDsDir'}.'/'.	my $file = $perlvar{'lonIDsDir'}.'/'.$session.'.id';
$session.'.id')) {	if (open(ENVIN,"$file")) {
flock(ENVIN,LOCK_SH);	flock(ENVIN,LOCK_SH);
while (my $line=<ENVIN>) {	tie(my %disk_env,'GDBM_File',"$file",&GDBM_READER(),0640);
my ($envname)=split(/=/,$line,2);	if (exists($disk_env{"userfile.$fname"})) {
$envname=&unescape($envname);	$reply="ok\n";
if ($envname=~ m\|^userfile\.\Q$fname\E\|) { $reply="ok\n"; }	} else {
	foreach my $envname (keys(%disk_env)) {
	if ($envname=~ m\|^userfile\.\Q$fname\E\|) {
	$reply="ok\n";
	last;
	}
	}
}	}
	untie(%disk_env);
close(ENVIN);	close(ENVIN);
&Reply($client, $reply, "$cmd:$tail");	&Reply($client, $reply, "$cmd:$tail");
} else {	} else {