loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.86, 2006/10/12 18:18:01	version 1.87, 2006/11/23 01:49:41
Line 173 sub handler {	Line 173 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") && ($handle ne '')) {	if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {
# Indeed, a valid token is found	# Indeed, a valid token is found
Line 221 ENDFAILED	Line 220 ENDFAILED
# split user logging in and "su"-user	# split user logging in and "su"-user

($form{'uname'},$form{'suname'})=split(/\:/,$form{'uname'});	($form{'uname'},$form{'suname'})=split(/\:/,$form{'uname'});
$form{'uname'} =~ s/\W//g;	$form{'uname'} = &LONCAPA::clean_username($form{'uname'});
$form{'suname'} =~ s/\W//g;	$form{'suname'}= &LONCAPA::clean_username($form{'suname'});
$form{'udom'} =~ s/\W//g;	$form{'udom'} = &LONCAPA::clean_domain( $form{'udom'});

my $role = $r->dir_config('lonRole');	my $role = $r->dir_config('lonRole');
my $domain = $r->dir_config('lonDefDomain');	my $domain = $r->dir_config('lonDefDomain');