version 1.15, 2000/12/26 19:50:25
|
version 1.21, 2001/09/26 14:07:45
|
Line 2
|
Line 2
|
# Cookie Based Access Handler |
# Cookie Based Access Handler |
# 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 Gerd Kortemeyer |
# 12/25,12/26, |
|
# 01/06/01,05/28,8/11,9/26 Gerd Kortemeyer |
|
|
package Apache::lonacc; |
package Apache::lonacc; |
|
|
Line 11 use Apache::Constants qw(:common :http :
|
Line 12 use Apache::Constants qw(:common :http :
|
use Apache::File; |
use Apache::File; |
use Apache::lonnet; |
use Apache::lonnet; |
use CGI::Cookie(); |
use CGI::Cookie(); |
|
use Fcntl qw(:flock); |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 29 sub handler {
|
Line 31 sub handler {
|
my @profile; |
my @profile; |
{ |
{ |
my $idf=Apache::File->new("$lonidsdir/$handle.id"); |
my $idf=Apache::File->new("$lonidsdir/$handle.id"); |
|
flock($idf,LOCK_SH); |
@profile=<$idf>; |
@profile=<$idf>; |
|
$idf->close(); |
} |
} |
my $envi; |
my $envi; |
for ($envi=0;$envi<=$#profile;$envi++) { |
for ($envi=0;$envi<=$#profile;$envi++) { |
Line 38 sub handler {
|
Line 42 sub handler {
|
$ENV{$envname} = $envvalue; |
$ENV{$envname} = $envvalue; |
} |
} |
$ENV{'user.environment'} = "$lonidsdir/$handle.id"; |
$ENV{'user.environment'} = "$lonidsdir/$handle.id"; |
$ENV{'request.state'} = "published"; |
if ($requrl=~/^\/res\//) { |
$ENV{'request.filename'} = $r->filename; |
$ENV{'request.state'} = "published"; |
|
|
# --------------------- Figure out referer, first from HTTP_REFERER, then cache |
|
|
|
my $referer=''; |
|
if ($referer=$r->header_in('Referer')) { |
|
$ENV{'HTTP_REFERER'}=$referer; |
|
} else { |
} else { |
$ENV{'HTTP_REFERER'}=$ENV{'httpref.'.$requrl}; |
$ENV{'request.state'} = 'unknown'; |
} |
} |
|
$ENV{'request.filename'} = $r->filename; |
|
|
# -------------------------------------------------------- Load POST parameters |
# -------------------------------------------------------- Load POST parameters |
|
|
Line 138 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; |
} |
} |