version 1.184, 2020/12/18 15:23:03
|
version 1.185, 2020/12/22 22:23:37
|
Line 616 sub handler {
|
Line 616 sub handler {
|
} |
} |
# ---------------------------------------------------------------- Check access |
# ---------------------------------------------------------------- Check access |
my $now = time; |
my $now = time; |
my $check_symb; |
my ($check_symb,$check_access); |
if ($requrl !~ m{^/(?:adm|public|(?:prt|zip)spool)/} |
if ($requrl !~ m{^/(?:adm|public|(?:prt|zip)spool)/} |
|| $requrl =~ /^\/adm\/.*\/(smppg|bulletinboard)(\?|$ )/x) { |
|| $requrl =~ /^\/adm\/.*\/(smppg|bulletinboard)(\?|$ )/x) { |
my ($access,$poss_symb); |
$check_access = 1; |
if (($env{'request.course.id'}) && (!$suppext)) { |
} |
$requrl=~/\.(\w+)$/; |
if (($env{'request.course.id'}) && (!$suppext)) { |
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
$requrl=~/\.(\w+)$/; |
($requrl=~/^\/adm\/.*\/(aboutme|smppg|bulletinboard)(\?|$ )/x) || |
if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') || |
($requrl=~/^\/adm\/wrapper\//) || |
($requrl=~/^\/adm\/.*\/(aboutme|smppg|bulletinboard)(\?|$ )/x) || |
($requrl=~m|^/adm/coursedocs/showdoc/|) || |
($requrl=~/^\/adm\/wrapper\//) || |
($requrl=~m|\.problem/smpedit$|) || |
($requrl=~m|^/adm/coursedocs/showdoc/|) || |
($requrl=~/^\/public\/.*\/syllabus$/) || |
($requrl=~m|\.problem/smpedit$|) || |
($requrl=~/^\/adm\/(viewclasslist|navmaps)$/) || |
($requrl=~/^\/public\/.*\/syllabus$/) || |
($requrl=~/^\/adm\/.*\/aboutme\/portfolio(\?|$)/) || |
($requrl=~/^\/adm\/(viewclasslist|navmaps)$/) || |
($requrl=~m{^/adm/$cdom/$cnum/\d+/ext\.tool$})) { |
($requrl=~/^\/adm\/.*\/aboutme\/portfolio(\?|$)/) || |
$check_symb = 1; |
($requrl=~m{^/adm/$cdom/$cnum/\d+/ext\.tool$})) { |
} |
$check_symb = 1; |
} |
} |
|
} |
|
if ($check_access) { |
|
my ($access,$poss_symb); |
if ($check_symb) { |
if ($check_symb) { |
if ($env{'form.symb'}) { |
if ($env{'form.symb'}) { |
$poss_symb=&Apache::lonnet::symbclean($env{'form.symb'}); |
$poss_symb=&Apache::lonnet::symbclean($env{'form.symb'}); |