loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.84, 2006/11/15 00:53:48	version 1.85, 2006/12/05 02:55:56
Line 84 sub handler {	Line 84 sub handler {
my $lonid=$cookies{'lonID'};	my $lonid=$cookies{'lonID'};
my $cookie;	my $cookie;
if ($lonid) {	if ($lonid) {
my $handle=$lonid->value;	my $handle=&LONCAPA::clean_handle($lonid->value);
$handle=~s/\W//g;
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
if (-e "$lonidsdir/$handle.id") {	if (-e "$lonidsdir/$handle.id") {
# Is there an existing token file?	# Is there an existing token file?