version 1.39, 2000/11/15 15:29:33
|
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.';'; |