loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.78 and 1.83

version 1.78, 2001/05/26 15:31:33	version 1.83, 2001/05/31 22:38:36
Line 8	Line 8
# 3/29,5/4 Gerd Kortemeyer	# 3/29,5/4 Gerd Kortemeyer
# 5/10 Scott Harrison	# 5/10 Scott Harrison
# 5/26 Gerd Kortemeyer	# 5/26 Gerd Kortemeyer
	# 5/27 H. K. Ng

package Apache::lonxml;	package Apache::lonxml;
use vars	use vars
Line 16 use strict;	Line 17 use strict;
use HTML::TokeParser;	use HTML::TokeParser;
use Safe;	use Safe;
use Safe::Hole;	use Safe::Hole;
	use Math::Cephes qw(:trigs :hypers :bessels erf erfc);
use Opcode;	use Opcode;

sub register {	sub register {
Line 35 use Apache::run;	Line 37 use Apache::run;
use Apache::londefdef;	use Apache::londefdef;
use Apache::scripttag;	use Apache::scripttag;
use Apache::edit;	use Apache::edit;
	use Apache::lonnet;
	use Apache::File;

#================================================== Main subroutine: xmlparse	#================================================== Main subroutine: xmlparse
#debugging control, to turn on debugging modify the correct handler	#debugging control, to turn on debugging modify the correct handler
$Apache::lonxml::debug=0;	$Apache::lonxml::debug=0;
Line 167 sub xmlparse {	Line 172 sub xmlparse {

my $safeeval = new Safe;	my $safeeval = new Safe;
my $safehole = new Safe::Hole;	my $safehole = new Safe::Hole;
$safeeval->permit("entereval");	&init_safespace($target,$safeeval,$safehole,$safeinit);
$safeeval->permit(":base_math");
$safeeval->permit("sort");
$safeeval->deny(":base_io");
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');
#need to inspect this class of ops
# $safeeval->deny(":base_orig");
$safeinit .= ';$external::target='.$target.';';
$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';';
&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

($target, my @tenta) = split('&&',$target);	($target, my @tenta) = split('&&',$target);
Line 369 sub callsub {	Line 365 sub callsub {
}	}
}	}
}	}
&Apache::lonxml::debug("nodefalt:$nodefault:");	# &Apache::lonxml::debug("nodefalt:$nodefault:");
if ($currentstring eq '' && $nodefault eq '') {	if ($currentstring eq '' && $nodefault eq '') {
if ($target eq 'edit') {	if ($target eq 'edit') {
&Apache::lonxml::debug("doing default edit for $token->[1]");	&Apache::lonxml::debug("doing default edit for $token->[1]");
Line 392 sub callsub {	Line 388 sub callsub {
return $currentstring;	return $currentstring;
}	}

	sub init_safespace {
	my ($target,$safeeval,$safehole,$safeinit) = @_;
	$safeeval->permit("entereval");
	$safeeval->permit(":base_math");
	$safeeval->permit("sort");
	$safeeval->deny(":base_io");
	$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');

	$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin');
	$safehole->wrap(\&Math::Cephes::acos,$safeeval,'&acos');
	$safehole->wrap(\&Math::Cephes::atan,$safeeval,'&atan');
	$safehole->wrap(\&Math::Cephes::sinh,$safeeval,'&sinh');
	$safehole->wrap(\&Math::Cephes::cosh,$safeeval,'&cosh');
	$safehole->wrap(\&Math::Cephes::tanh,$safeeval,'&tanh');
	$safehole->wrap(\&Math::Cephes::asinh,$safeeval,'&asinh');
	$safehole->wrap(\&Math::Cephes::acosh,$safeeval,'&acosh');
	$safehole->wrap(\&Math::Cephes::atanh,$safeeval,'&atanh');
	$safehole->wrap(\&Math::Cephes::erf,$safeeval,'&erf');
	$safehole->wrap(\&Math::Cephes::erfc,$safeeval,'&erfc');
	$safehole->wrap(\&Math::Cephes::j0,$safeeval,'&j0');
	$safehole->wrap(\&Math::Cephes::j1,$safeeval,'&j1');
	$safehole->wrap(\&Math::Cephes::jn,$safeeval,'&jn');
	$safehole->wrap(\&Math::Cephes::jv,$safeeval,'&jv');
	$safehole->wrap(\&Math::Cephes::y0,$safeeval,'&y0');
	$safehole->wrap(\&Math::Cephes::y1,$safeeval,'&y1');
	$safehole->wrap(\&Math::Cephes::yn,$safeeval,'&yn');
	$safehole->wrap(\&Math::Cephes::yv,$safeeval,'&yv');

	#need to inspect this class of ops
	# $safeeval->deny(":base_orig");
	$safeinit .= ';$external::target='.$target.';';
	$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';';
	&Apache::run::run($safeinit,$safeeval);
	}

sub startredirection {	sub startredirection {
$Apache::lonxml::redirection++;	$Apache::lonxml::redirection++;
push (@Apache::lonxml::outputstack, '');	push (@Apache::lonxml::outputstack, '');
Line 571 ENDSCRIPT	Line 602 ENDSCRIPT
return $result;	return $result;
}	}

	sub storefile {
	my ($file,$contents)=@_;
	if (my $fh=Apache::File->new('>'.$file)) {
	print $fh $contents;
	$fh->close();
	}
	}

sub inserteditinfo {	sub inserteditinfo {
my ($result,$filecontents)=@_;	my ($result,$filecontents)=@_;
unless ($filecontents) {	unless ($filecontents) {
Line 621 sub handler {	Line 660 sub handler {

return OK if $request->header_only;	return OK if $request->header_only;


	my $file=&Apache::lonnet::filelocation("",$request->uri);
#	#
# Edit action? Save file.	# Edit action? Save file.
#	#
unless ($ENV{'request.state'} eq 'published') {	unless ($ENV{'request.state'} eq 'published') {
if ($ENV{'form.savethisfile'}) {	if ($ENV{'form.savethisfile'}) {
	&storefile($file,$ENV{'form.filecont'});
}	}
}	}

my $file=&Apache::lonnet::filelocation("",$request->uri);
my %mystyle;	my %mystyle;
my $result = '';	my $result = '';
my $filecontents=&Apache::lonnet::getfile($file);	my $filecontents=&Apache::lonnet::getfile($file);
Line 697 sub warning {	Line 736 sub warning {
}	}
}	}

	sub get_param {
	my ($param,$parstack,$safeeval,$context) = @_;
	if ( ! $context ) { $context = -1; }
	my $args ='';
	if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }
	return &Apache::run::run("{$args;".'return $'.$param.'}',$safeeval); #'
	}

sub register_insert {	sub register_insert {
my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab');	my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab');
my $i;	my $i;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.78
changed lines
	Added in v.1.83