version 1.305.2.6, 2006/05/18 19:58:36
|
version 1.305.2.7, 2006/05/31 14:46:48
|
Line 2290 sub token_auth_user_file_handler {
|
Line 2290 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); |