loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

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);