version 1.26, 2001/12/17 00:57:59
|
version 1.28, 2002/06/17 16:40:24
|
Line 233 sub loadmap {
|
Line 233 sub loadmap {
|
} else { |
} else { |
$hash{'param_'.$referid}=''.$newparam; |
$hash{'param_'.$referid}=''.$newparam; |
} |
} |
|
if ($token->[2]->{'name'} eq 'mapalias') { |
|
$hash{'mapalias_'.$token->[2]->{'value'}}=$referid; |
|
} |
} |
} |
|
|
} |
} |
Line 370 sub accinit {
|
Line 372 sub accinit {
|
if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ |
if ($acchash{'acc.res.'.$short.'.'.$uripath}=~ |
/(\&$urifile\:[^\&]*)/) { |
/(\&$urifile\:[^\&]*)/) { |
my $replace=$1; |
my $replace=$1; |
|
my $regexp=$replace; |
|
$regexp=~s/\|/\\\|/g; |
$acchash{'acc.res.'.$short.'.'.$uripath} |
$acchash{'acc.res.'.$short.'.'.$uripath} |
=~s/$replace/$replace\|$uricond/; |
=~s/$regexp/$replace\|$uricond/; |
} else { |
} else { |
$acchash{'acc.res.'.$short.'.'.$uripath}.= |
$acchash{'acc.res.'.$short.'.'.$uripath}.= |
$urifile.':'.$uricond.'&'; |
$urifile.':'.$uricond.'&'; |