loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.329, 2006/05/18 17:55:49	version 1.330, 2006/05/18 19:57:59
Line 2312 sub token_auth_user_file_handler {	Line 2312 sub token_auth_user_file_handler {
if (open(ENVIN,$perlvar{'lonIDsDir'}.'/'.	if (open(ENVIN,$perlvar{'lonIDsDir'}.'/'.
$session.'.id')) {	$session.'.id')) {
while (my $line=<ENVIN>) {	while (my $line=<ENVIN>) {
if ($line=~ m\|userfile\.\Q$fname\E\=\|) { $reply="ok\n"; }	my ($envname)=split(/=/,$line,2);
	$envname=&unescape($envname);
	if ($envname=~ m\|^userfile\.\Q$fname\E\|) { $reply="ok\n"; }
}	}
close(ENVIN);	close(ENVIN);
&Reply($client, $reply, "$cmd:$tail");	&Reply($client, $reply, "$cmd:$tail");