version 1.116, 2006/05/30 19:47:40
|
version 1.119.2.1, 2007/10/29 18:51:00
|
Line 234 sub loadmap {
|
Line 234 sub loadmap {
|
my $rid=$lpc.'.'.$token->[2]->{'id'}; |
my $rid=$lpc.'.'.$token->[2]->{'id'}; |
|
|
$hash{'kind_'.$rid}='cond'; |
$hash{'kind_'.$rid}='cond'; |
$cond[$#cond+1]=$token->[2]->{'value'}; |
my $condition = $token->[2]->{'value'}; |
|
$condition =~ s/[\n\r]+/ /gs; |
|
push(@cond, $condition); |
$hash{'condid_'.$rid}=$#cond; |
$hash{'condid_'.$rid}=$#cond; |
if ($token->[2]->{'type'}) { |
if ($token->[2]->{'type'}) { |
$cond[$#cond].=':'.$token->[2]->{'type'}; |
$cond[$#cond].=':'.$token->[2]->{'type'}; |
Line 298 sub loadmap {
|
Line 300 sub loadmap {
|
$randompick{$referid}=$token->[2]->{'value'}; |
$randompick{$referid}=$token->[2]->{'value'}; |
} |
} |
if ($token->[2]->{'name'}=~/^parameter_(0_)*randompickseed$/) { |
if ($token->[2]->{'name'}=~/^parameter_(0_)*randompickseed$/) { |
$randompick{$referid}=$token->[2]->{'value'}; |
$randompickseed{$referid}=$token->[2]->{'value'}; |
} |
} |
if ($token->[2]->{'name'}=~/^parameter_(0_)*encrypturl$/) { |
if ($token->[2]->{'name'}=~/^parameter_(0_)*encrypturl$/) { |
if ($token->[2]->{'value'}=~/^yes$/i) { |
if ($token->[2]->{'value'}=~/^yes$/i) { |