version 1.7, 2006/09/07 17:07:26
|
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 (&Apache::lonnet::is_domainimage($r->uri)) { |
|
return OK; |
|
} |
|
|
if ($r->auth_type() ne 'LONCAPA') { |
if ($r->auth_type() ne 'LONCAPA') { |
return DECLINED; |
return DECLINED; |
} |
} |
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; |
} |
} |