version 1.159.2.15, 2020/10/23 21:33:46
|
version 1.159.2.16, 2020/12/22 23:53:36
|
Line 589 sub handler {
|
Line 589 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)$/) || |
$check_symb = 1; |
($requrl=~/^\/adm\/.*\/aboutme\/portfolio(\?|$)/)) { |
} |
$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'}); |