version 1.17, 2001/05/28 22:29:17
|
version 1.21, 2001/09/26 14:07:45
|
Line 3
|
Line 3
|
# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, |
# 5/21/99,5/22,5/29,5/31,6/15,16/11,22/11, |
# 01/06,01/13,05/31,06/01,09/06,09/25,09/28,10/30,11/6, |
# 01/06,01/13,05/31,06/01,09/06,09/25,09/28,10/30,11/6, |
# 12/25,12/26, |
# 12/25,12/26, |
# 01/06/01,05/28 Gerd Kortemeyer |
# 01/06/01,05/28,8/11,9/26 Gerd Kortemeyer |
|
|
package Apache::lonacc; |
package Apache::lonacc; |
|
|
Line 42 sub handler {
|
Line 42 sub handler {
|
$ENV{$envname} = $envvalue; |
$ENV{$envname} = $envvalue; |
} |
} |
$ENV{'user.environment'} = "$lonidsdir/$handle.id"; |
$ENV{'user.environment'} = "$lonidsdir/$handle.id"; |
if ($requrl=~/^\/res\/) { |
if ($requrl=~/^\/res\//) { |
$ENV{'request.state'} = "published"; |
$ENV{'request.state'} = "published"; |
} else { |
} else { |
$ENV{'request.state'} = 'unknown'; |
$ENV{'request.state'} = 'unknown'; |
} |
} |
$ENV{'request.filename'} = $r->filename; |
$ENV{'request.filename'} = $r->filename; |
|
|
# --------------------- Figure out referer, first from HTTP_REFERER, then cache |
|
|
|
my $referer=''; |
|
if ($referer=$r->header_in('Referer')) { |
|
$ENV{'HTTP_REFERER'}=$referer; |
|
} else { |
|
$ENV{'HTTP_REFERER'}=$ENV{'httpref.'.$requrl}; |
|
} |
|
|
|
# -------------------------------------------------------- Load POST parameters |
# -------------------------------------------------------- Load POST parameters |
|
|
|
|
Line 146 sub handler {
|
Line 137 sub handler {
|
}; |
}; |
} |
} |
|
|
|
# -------------------------------------------- See if this is a public resource |
|
if (&Apache::lonnet::metadata($requrl,'copyright') eq 'public') { |
|
&Apache::lonnet::logthis('Granting public access: '.$requrl); |
|
$ENV{'user.name'}='public'; |
|
$ENV{'user.domain'}='public'; |
|
$ENV{'request.state'} = "published"; |
|
$ENV{'request.publicaccess'} = 1; |
|
$ENV{'request.filename'} = $r->filename; |
|
return OK; |
|
} |
# ----------------------------------------------- Store where they wanted to go |
# ----------------------------------------------- Store where they wanted to go |
|
|
$ENV{'request.firsturl'}=$requrl; |
$ENV{'request.firsturl'}=$requrl; |
return FORBIDDEN; |
return FORBIDDEN; |
} |
} |