version 1.38, 2000/11/14 22:24:38
|
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.';'; |
$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';'; |
$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';'; |
$safeinit .= &Apache::lonnet::getfile('/home/httpd/html/res/adm/includes/default_xml.lcpm'); |
|
&Apache::run::run($safeinit,$safeeval); |
&Apache::run::run($safeinit,$safeeval); |
#-------------------- Redefinition of the target in the case of compound target |
#-------------------- Redefinition of the target in the case of compound target |
|
|