version 1.8, 2000/06/29 20:27:13
|
version 1.9, 2000/07/05 18:04:45
|
Line 95 sub xmlparse {
|
Line 95 sub xmlparse {
|
$parstack[$#parstack]); |
$parstack[$#parstack]); |
} |
} |
} elsif ($token->[0] eq 'E') { |
} elsif ($token->[0] eq 'E') { |
# Put here check for correct final tag (to avoid existence of |
#clear out any tags that didn't end |
# starting tag only) |
while ($token->[1] ne $stack[$#stack] |
|
&& ($#stack > 0)) {pop @stack;pop @parstack;} |
pop @stack; |
|
unless (exists $style_for_target{$token->[1]}) { |
|
my $sub="end_$token->[1]"; |
|
$finaloutput .= callsub($sub, $target, $token, \@parstack); |
|
} |
|
#---- end tag from the style file |
|
if (exists $style_for_target{'/'."$token->[1]"}) { |
if (exists $style_for_target{'/'."$token->[1]"}) { |
|
my @innerstack = (); |
|
my @innerparstack = (); |
$newarg = $style_for_target{'/'."$token->[1]"}; |
$newarg = $style_for_target{'/'."$token->[1]"}; |
if (index($newarg,'script') != -1 ) { |
my $pat = HTML::TokeParser->new(\$newarg); |
my $pat = HTML::TokeParser->new(\$newarg); |
my $tokenpat; |
my $tokenpat; |
my $partstring = ''; |
my $partstring = ''; |
|
my $oustring = ''; |
|
my $outputstring; |
|
|
|
while ($tokenpat = $pat->get_token) { |
|
if ($tokenpat->[0] eq 'T') { |
|
$oustring .= $tokenpat->[1]; |
|
} elsif ($tokenpat->[0] eq 'S') { |
|
if ($tokenpat->[1] eq 'script') { |
|
while ($tokenpat = $pat->get_token and $tokenpat->[1] ne 'script') { |
|
if ($tokenpat->[0] eq 'S') { |
|
|
|
$partstring .= $tokenpat->[4]; |
|
} elsif ($tokenpat->[0] eq 'T') { |
|
$partstring .= $tokenpat->[1]; |
|
} elsif ($tokenpat->[0] eq 'E') { |
|
$partstring .= $tokenpat->[2]; |
|
} |
|
} |
|
|
|
my @tempor_list = split(',',$parstack[$#parstack]); |
|
my @te_kl = (); |
|
my %tempor_hash = (); |
|
map {(my $onete,my $twote) = split('=',$_); push (@te_kl,$onete); |
|
$tempor_hash{$onete} = $twote} @tempor_list; |
|
map {$partstring =~ s/\$$_/$tempor_hash{$_}/g; } @te_kl; |
|
print "want to use run\n"; |
|
&Apache::run::run($partstring,$safeeval); |
|
|
|
$partstring = ''; |
|
} elsif ($tokenpat->[1] eq 'evaluate') { |
|
$outputstring = &Apache::run::evaluate($tokenpat->[2]{expression},$safeeval); |
|
$oustring .= $outputstring; |
|
} else { |
|
$oustring .= $tokenpat->[4]; |
|
} |
|
} elsif ($tokenpat->[0] eq 'E' and $tokenpat->[1] ne 'evaluate') { |
|
$oustring .= $tokenpat->[1]; |
|
} |
|
} |
|
$newarg = $oustring; |
|
} else { |
|
my @very_temp = split(',',$parstack[$#parstack]); |
|
map {my @ret= split('=',$_); $newarg =~ s/\$$ret[0]/$ret[1]/g; } @very_temp; |
|
} |
|
|
|
$finaloutput .= $newarg; |
while ($tokenpat = $pat->get_token) { |
|
if ($tokenpat->[0] eq 'T') { |
|
$partstring .= $tokenpat->[1]; |
|
} elsif ($tokenpat->[0] eq 'S') { |
|
push (@innerstack,$tokenpat->[1]); |
|
push (@innerparstack,&parstring($tokenpat)); |
|
$partstring = &callsub("start_$tokenpat->[1]", |
|
$target, $tokenpat, \@innerparstack) |
|
} elsif ($tokenpat->[0] eq 'E') { |
|
#clear out any tags that didn't end |
|
while ($tokenpat->[1] ne $innerstack[$#innerstack] |
|
&& ($#innerstack > 0)) {pop @innerstack;pop @innerparstack;} |
|
$partstring = &callsub("end_$tokenpat->[1]", |
|
$target, $tokenpat, \@innerparstack) |
|
} |
|
#pass both the variable to the style tag, and the tag we |
|
#are processing inside the <definedtag> |
|
$finaloutput .= &Apache::run::evaluate($partstring,$safeeval, |
|
$parstack[$#parstack].$innerparstack[$#innerparstack]); |
|
if ($tokenpat->[0] eq 'E') { pop @innerstack;pop @innerparstack; } |
|
} |
|
} else { |
|
my $result = &callsub("start_$token->[1]", $target, $token, \@parstack); |
|
$finaloutput .= &Apache::run::evaluate($result,$safeeval, |
|
$parstack[$#parstack]); |
} |
} |
|
pop @stack; |
pop @parstack; |
pop @parstack; |
} |
} |
} |
} |