version 1.68, 2005/08/30 21:14:20
|
version 1.69, 2005/11/23 20:46:04
|
Line 60 sub handler {
|
Line 60 sub handler {
|
my $handle=$lonid->value; |
my $handle=$lonid->value; |
$handle=~s/\W//g; |
$handle=~s/\W//g; |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '') && ($handle!~/^publicuser\_/)) { |
# Indeed, a valid token is found |
# Indeed, a valid token is found |
my $bodytag=&Apache::loncommon::bodytag('Already logged in'); |
my $bodytag=&Apache::loncommon::bodytag('Already logged in'); |
$r->print(<<ENDFAILED); |
$r->print(<<ENDFAILED); |