loncom/auth/checkauthen.pm - diff

Return to checkauthen.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.6, 2006/08/30 21:35:08	version 1.13, 2012/04/18 18:55:06
Line 36 use Apache::lonnet;	Line 36 use Apache::lonnet;
sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;

if ($r->auth_type() eq 'Basic') {	if (&Apache::lonnet::is_domainimage($r->uri)) {
	return OK;
	}

	if ($r->auth_type() ne 'LONCAPA') {
return DECLINED;	return DECLINED;
}	}
my $fail = FORBIDDEN;	my $fail = FORBIDDEN;
Line 57 sub handler {	Line 61 sub handler {
}	}
}	}

my %cookies=CGI::Cookie->parse($r->header_in('Cookie'));	my $handle = &Apache::lonnet::check_for_valid_session($r);
my $lonid=$cookies{'lonID'};	if ($handle eq '') {
my $cookie;	$handle = $env{'user.environment'};
if ($lonid) {	}
my $handle=$lonid->value;
$handle=~s/\W//g;	if ($handle ne '') {
my $lonidsdir=$r->dir_config('lonIDsDir');	return OK;
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) {	}
return OK;	if (($fail == FORBIDDEN) && ($r->uri eq '/adm/email')) {
}	$env{'form.firsturl'} = $r->uri;
}	}
return $fail;	return $fail;
}	}