loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

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.';';