version 1.331, 2006/05/30 15:39:56
|
version 1.332, 2006/05/31 14:47:56
|
Line 2126 sub token_auth_user_file_handler {
|
Line 2126 sub token_auth_user_file_handler {
|
my $reply="non_auth\n"; |
my $reply="non_auth\n"; |
if (open(ENVIN,$perlvar{'lonIDsDir'}.'/'. |
if (open(ENVIN,$perlvar{'lonIDsDir'}.'/'. |
$session.'.id')) { |
$session.'.id')) { |
|
flock(ENVIN,LOCK_SH); |
while (my $line=<ENVIN>) { |
while (my $line=<ENVIN>) { |
my ($envname)=split(/=/,$line,2); |
my ($envname)=split(/=/,$line,2); |
$envname=&unescape($envname); |
$envname=&unescape($envname); |