version 1.70, 2005/11/29 21:12:03
|
version 1.75, 2006/04/07 22:42:00
|
Line 38 use Apache::lonlocal;
|
Line 38 use Apache::lonlocal;
|
use CGI::Cookie(); |
use CGI::Cookie(); |
use Fcntl qw(:flock); |
use Fcntl qw(:flock); |
|
|
|
sub cleanup { |
|
my ($r)=@_; |
|
if (! $r->is_initial_req()) { return DECLINED; } |
|
&Apache::lonnet::save_cache(); |
|
return OK; |
|
} |
|
|
|
sub goodbye { |
|
my ($r)=@_; |
|
&Apache::lonnet::goodbye(); |
|
return DONE; |
|
} |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
my $requrl=$r->uri; |
my $requrl=$r->uri; |
Line 128 sub handler {
|
Line 141 sub handler {
|
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
($requrl=~/^\/adm\/.*\/(aboutme|navmaps|smppg|bulletinboard)(\?|$)/) || |
($requrl=~/^\/adm\/.*\/(aboutme|navmaps|smppg|bulletinboard)(\?|$)/) || |
($requrl=~/^\/adm\/wrapper\//) || |
($requrl=~/^\/adm\/wrapper\//) || |
|
($requrl=~m|^/adm/coursedocs/showdoc/|) || |
($requrl=~m|\.problem/smpedit$|) || |
($requrl=~m|\.problem/smpedit$|) || |
($requrl=~/^\/public\/.*\/syllabus$/)) { |
($requrl=~/^\/public\/.*\/syllabus$/)) { |
# ------------------------------------- This is serious stuff, get symb and log |
# ------------------------------------- This is serious stuff, get symb and log |
Line 138 sub handler {
|
Line 152 sub handler {
|
} |
} |
if ($env{'form.symb'}) { |
if ($env{'form.symb'}) { |
$symb=&Apache::lonnet::symbclean($env{'form.symb'}); |
$symb=&Apache::lonnet::symbclean($env{'form.symb'}); |
if ($requrl =~ m|^/adm/wrapper/|) { |
if ($requrl =~ m|^/adm/wrapper/| |
|
|| $requrl =~ m|^/adm/coursedocs/showdoc/|) { |
my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); |
my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); |
&Apache::lonnet::symblist($map,$murl => [$murl,$mid], |
&Apache::lonnet::symblist($map,$murl => [$murl,$mid], |
'last_known' =>[$murl,$mid]); |
'last_known' =>[$murl,$mid]); |
Line 146 sub handler {
|
Line 161 sub handler {
|
(($requrl=~m|(.*)/smpedit$|) && |
(($requrl=~m|(.*)/smpedit$|) && |
&Apache::lonnet::symbverify($symb,$1))) { |
&Apache::lonnet::symbverify($symb,$1))) { |
my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); |
my ($map,$mid,$murl)=&Apache::lonnet::decode_symb($symb); |
&Apache::lonnet::symblist($map,$murl => [$murl,$mid], |
&Apache::lonnet::symblist($map,$murl => [$murl,$mid], |
'last_known' =>[$murl,$mid]); |
'last_known' =>[$murl,$mid]); |
} else { |
} else { |
$r->log_reason('Invalid symb for '.$requrl.': '. |
$r->log_reason('Invalid symb for '.$requrl.': '. |
Line 180 sub handler {
|
Line 195 sub handler {
|
} |
} |
return OK; |
return OK; |
} else { |
} else { |
$r->log_reason("Cookie $handle not valid", $r->filename) |
$r->log_reason("Cookie $handle not valid", $r->filename); |
}; |
} |
} |
} |
|
|
# -------------------------------------------- See if this is a public resource |
# -------------------------------------------- See if this is a public resource |
if ($requrl=~m|^/public/| |
if ($requrl=~m|^/public/| |
|| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) { |
|| (&Apache::lonnet::metadata($requrl,'copyright') eq 'public')) { |
&Apache::lonnet::logthis('Granting public access: '.$requrl); |
&Apache::lonnet::logthis('Granting public access: '.$requrl); |
|
&Apache::lonlocal::get_language_handle($r); |
my $cookie= |
my $cookie= |
&Apache::lonauth::success($r,'public','public','public'); |
&Apache::lonauth::success($r,'public','public','public'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |