version 1.36, 2000/11/07 23:39:07
|
version 1.40, 2000/11/22 17:35:13
|
Line 10 qw(@pwd $outputstack $redirection $textr
|
Line 10 qw(@pwd $outputstack $redirection $textr
|
use strict; |
use strict; |
use HTML::TokeParser; |
use HTML::TokeParser; |
use Safe; |
use Safe; |
|
use Safe::Hole; |
use Opcode; |
use Opcode; |
|
|
sub register { |
sub register { |
Line 53 sub xmlparse {
|
Line 54 sub xmlparse {
|
my $result; |
my $result; |
|
|
my $safeeval = new Safe; |
my $safeeval = new Safe; |
|
my $safehole = new Safe::Hole; |
$safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
$safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
|
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
#need to inspect this class of ops |
#need to inspect this class of ops |
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
$safeinit .= ';$external::target='.$target.';'; |
$safeinit .= ';$external::target='.$target.';'; |
Line 101 sub xmlparse {
|
Line 104 sub xmlparse {
|
# if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;} |
# if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;} |
#clear out any tags that didn't end |
#clear out any tags that didn't end |
while ($token->[1] ne $stack[$#stack] |
while ($token->[1] ne $stack[$#stack] |
&& ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);&Apache::lonxml::debug("Clearing out stack");} |
&& ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);} |
|
|
if (exists $style_for_target{'/'."$token->[1]"}) { |
if (exists $style_for_target{'/'."$token->[1]"}) { |
|
|