version 1.76, 2004/04/23 23:01:35
|
version 1.78, 2004/05/11 06:28:23
|
Line 162 sub loadmap {
|
Line 162 sub loadmap {
|
} elsif ($turi=~/^\/*uploaded\//) { # uploaded |
} elsif ($turi=~/^\/*uploaded\//) { # uploaded |
if (($embstyle eq 'img') || ($embstyle eq 'emb')) { |
if (($embstyle eq 'img') || ($embstyle eq 'emb')) { |
$turi='/adm/wrapper'.$turi; |
$turi='/adm/wrapper'.$turi; |
} elsif ($turi!~/\.(sequence|page)$/) { |
} elsif ($embstyle eq 'ssi') { |
|
#do nothing with these |
|
} elsif ($turi!~/\.(sequence|page)$/) { |
$turi='/adm/coursedocs/showdoc'.$turi; |
$turi='/adm/coursedocs/showdoc'.$turi; |
} |
} |
} elsif ($turi=~/\S/) { # normal non-empty internal resource |
} elsif ($turi=~/\S/) { # normal non-empty internal resource |
Line 329 sub simplify {
|
Line 331 sub simplify {
|
# -------------------------------------------------------- Build condition hash |
# -------------------------------------------------------- Build condition hash |
|
|
sub traceroute { |
sub traceroute { |
my ($sofar,$rid,$beenhere)=@_; |
my ($sofar,$rid,$beenhere,$encflag,$hdnflag)=@_; |
$sofar=simplify($sofar); |
$sofar=simplify($sofar); |
unless ($beenhere=~/\&$rid\&/) { |
unless ($beenhere=~/\&$rid\&/) { |
$beenhere.=$rid.'&'; |
$beenhere.=$rid.'&'; |
|
if ($hdnflag) { |
|
$hiddenurl{$rid}=1; |
|
} |
|
if ($encflag) { |
|
$encurl{$rid}=1; |
|
} |
if (($retfurl eq '') && ($hash{'src_'.$rid}) |
if (($retfurl eq '') && ($hash{'src_'.$rid}) |
&& ($hash{'src_'.$rid}!~/\.sequence$/)) { |
&& ($hash{'src_'.$rid}!~/\.sequence$/)) { |
my ($mapid,$resid)=split(/\./,$rid); |
my ($mapid,$resid)=split(/\./,$rid); |
Line 351 sub traceroute {
|
Line 359 sub traceroute {
|
} |
} |
if (defined($hash{'is_map_'.$rid})) { |
if (defined($hash{'is_map_'.$rid})) { |
if (defined($hash{'map_start_'.$hash{'src_'.$rid}})) { |
if (defined($hash{'map_start_'.$hash{'src_'.$rid}})) { |
&traceroute($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},'&'); |
&traceroute($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},'&', |
|
$encflag || $encurl{$rid}, |
|
$hdnflag || $hiddenurl{$rid}); |
if (defined($hash{'map_finish_'.$hash{'src_'.$rid}})) { |
if (defined($hash{'map_finish_'.$hash{'src_'.$rid}})) { |
$sofar= |
$sofar= |
$hash{'conditions_'.$hash{'map_finish_'.$hash{'src_'.$rid}}}; |
$hash{'conditions_'.$hash{'map_finish_'.$hash{'src_'.$rid}}}; |
Line 370 sub traceroute {
|
Line 380 sub traceroute {
|
.$hash{'undercond_'.$_}.'. '; |
.$hash{'undercond_'.$_}.'. '; |
} |
} |
} |
} |
&traceroute($further,$hash{'goesto_'.$_},$beenhere); |
&traceroute($further,$hash{'goesto_'.$_},$beenhere,$encflag,$hdnflag); |
} |
} |
} |
} |
} |
} |
Line 439 sub accinit {
|
Line 449 sub accinit {
|
/(\&\Q$urifile\E\:[^\&]*)/) { |
/(\&\Q$urifile\E\:[^\&]*)/) { |
my $replace=$1; |
my $replace=$1; |
my $regexp=$replace; |
my $regexp=$replace; |
$regexp=~s/\|/\\\|/g; |
#$regexp=~s/\|/\\\|/g; |
$acchash{'acc.res.'.$short.'.'.$uripath} |
$acchash{'acc.res.'.$short.'.'.$uripath} |
=~s/$regexp/$replace\|$uricond/; |
=~s/\Q$regexp\E/$replace\|$uricond/; |
} else { |
} else { |
$acchash{'acc.res.'.$short.'.'.$uripath}.= |
$acchash{'acc.res.'.$short.'.'.$uripath}.= |
$urifile.':'.$uricond.'&'; |
$urifile.':'.$uricond.'&'; |