version 1.72, 2001/05/04 21:17:24
|
version 1.81, 2001/05/30 15:27:13
|
Line 6
|
Line 6
|
# 6/1/1 Gerd Kortemeyer |
# 6/1/1 Gerd Kortemeyer |
# 2/21,3/13 Guy |
# 2/21,3/13 Guy |
# 3/29,5/4 Gerd Kortemeyer |
# 3/29,5/4 Gerd Kortemeyer |
|
# 5/10 Scott Harrison |
|
# 5/26 Gerd Kortemeyer |
|
# 5/27 H. K. Ng |
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
qw(@pwd @outputstack $redirection $import @extlinks $metamode $evaluate); |
qw(@pwd @outputstack $redirection $import @extlinks $metamode $evaluate %insertlist @namespace); |
use strict; |
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 33 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 56 $metamode = 0;
|
Line 63 $metamode = 0;
|
# turns on and of run::evaluate actually derefencing var refs |
# turns on and of run::evaluate actually derefencing var refs |
$evaluate = 1; |
$evaluate = 1; |
|
|
|
# data structure for eidt mode, determines what tags can go into what other tags |
|
%insertlist=(); |
|
|
|
#stores the list of active tag namespaces |
|
@namespace=(); |
|
|
sub xmlbegin { |
sub xmlbegin { |
my $output=''; |
my $output=''; |
Line 162 sub xmlparse {
|
Line 174 sub xmlparse {
|
my $safehole = new Safe::Hole; |
my $safehole = new Safe::Hole; |
$safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
|
$safeeval->permit("sort"); |
$safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
$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 |
#need to inspect this class of ops |
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
$safeinit .= ';$external::target='.$target.';'; |
$safeinit .= ';$external::target='.$target.';'; |
Line 364 sub callsub {
|
Line 398 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]"); |
if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
$currentstring = &Apache::edit::tag_start($token,$target); |
$currentstring = &Apache::edit::tag_start($target,$token); |
} elsif ($token->[0] eq 'E') { |
} elsif ($token->[0] eq 'E') { |
$currentstring = &Apache::edit::tag_end($token,$target); |
$currentstring = &Apache::edit::tag_end($target,$token); |
} |
} |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
|
$currentstring.=&Apache::edit::handle_insert(); |
} else { |
} else { |
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} |
} |
Line 561 ENDSCRIPT
|
Line 597 ENDSCRIPT
|
return $result; |
return $result; |
} |
} |
|
|
|
sub storefile { |
|
my ($file,$contents)=@_; |
|
if (my $fh=Apache::File->new('>'.$file)) { |
|
print $fh $contents; |
|
$fh->close(); |
|
} |
|
} |
|
|
|
sub inserteditinfo { |
|
my ($result,$filecontents)=@_; |
|
unless ($filecontents) { |
|
$filecontents=(<<SIMPLECONTENT); |
|
<html> |
|
<head> |
|
<title> |
|
Title of Document Goes Here |
|
</title> |
|
</head> |
|
<body bgcolor="#FFFFFF"> |
|
|
|
Body of Document Goes Here |
|
|
|
</body> |
|
</html> |
|
SIMPLECONTENT |
|
} |
|
my $editheader='<a href="#editsection">Edit below</a><hr />'; |
|
my $editfooter=(<<ENDFOOTER); |
|
<hr /> |
|
<a name="editsection" /> |
|
<form method="post"> |
|
<textarea cols="80" rows="40" name="filecont">$filecontents</textarea> |
|
<br /> |
|
<input type="submit" name="savethisfile" value="Save this file" /> |
|
</form> |
|
ENDFOOTER |
|
$result=~s/(\<body[^\>]*\>)/$1$editheader/is; |
|
$result=~s/(\<\/body\>)/$editfooter/is; |
|
return $result; |
|
} |
|
|
sub handler { |
sub handler { |
my $request=shift; |
my $request=shift; |
|
|
Line 574 sub handler {
|
Line 651 sub handler {
|
$request->content_type('text/html'); |
$request->content_type('text/html'); |
} |
} |
|
|
# $request->print(<<ENDHEADER); |
|
#<html> |
|
#<head> |
|
#<title>Just test</title> |
|
#</head> |
|
#<body bgcolor="#FFFFFF"> |
|
#ENDHEADER |
|
# &Apache::lonhomework::send_header($request); |
|
$request->send_http_header; |
$request->send_http_header; |
|
|
return OK if $request->header_only; |
return OK if $request->header_only; |
|
|
|
|
my $file=&Apache::lonnet::filelocation("",$request->uri); |
my $file=&Apache::lonnet::filelocation("",$request->uri); |
|
# |
|
# Edit action? Save file. |
|
# |
|
unless ($ENV{'request.state'} eq 'published') { |
|
if ($ENV{'form.savethisfile'}) { |
|
&storefile($file,$ENV{'form.filecont'}); |
|
} |
|
} |
my %mystyle; |
my %mystyle; |
my $result = ''; |
my $result = ''; |
my $filecontents=&Apache::lonnet::getfile($file); |
my $filecontents=&Apache::lonnet::getfile($file); |
if ($filecontents == -1) { |
if ($filecontents == -1) { |
&Apache::lonxml::error("<b> Unable to find <i>$file</i></b>"); |
$result=(<<ENDNOTFOUND); |
|
<html> |
|
<head> |
|
<title>File not found</title> |
|
</head> |
|
<body bgcolor="#FFFFFF"> |
|
<b>File not found: $file</b> |
|
</body> |
|
</html> |
|
ENDNOTFOUND |
$filecontents=''; |
$filecontents=''; |
} else { |
} else { |
$result = &Apache::lonxml::xmlparse($target,$filecontents,'',%mystyle); |
$result = &Apache::lonxml::xmlparse($target,$filecontents,'',%mystyle); |
} |
} |
|
|
|
# |
|
# Edit action? Insert editing commands |
|
# |
|
unless ($ENV{'request.state'} eq 'published') { |
|
$result=&inserteditinfo($result,$filecontents); |
|
} |
|
|
$request->print($result); |
$request->print($result); |
|
|
writeallows($request->uri); |
writeallows($request->uri); |
Line 611 sub debug {
|
Line 704 sub debug {
|
} |
} |
|
|
sub error { |
sub error { |
if ($Apache::lonxml::debug eq 1) { |
if (($Apache::lonxml::debug eq 1) || ($ENV{'request.state'} eq 'construct') ) { |
print "<b>ERROR:</b>".$_[0]."<br />\n"; |
print "<b>ERROR:</b>".$_[0]."<br />\n"; |
} else { |
} else { |
print "<b>An Error occured while processing this resource. The instructor has been notified.</b> <br />"; |
print "<b>An Error occured while processing this resource. The instructor has been notified.</b> <br />"; |
Line 625 sub error {
|
Line 718 sub error {
|
&Apache::lonmsg::user_normal_msg($user,$domain,"Error in $ENV{'request.filename'}",$_[0]); |
&Apache::lonmsg::user_normal_msg($user,$domain,"Error in $ENV{'request.filename'}",$_[0]); |
} |
} |
} |
} |
|
|
#FIXME probably shouldn't have me get everything forever. |
#FIXME probably shouldn't have me get everything forever. |
&Apache::lonmsg::user_normal_msg('albertel','msu',"Error in $ENV{'request.filename'}",$_[0]); |
&Apache::lonmsg::user_normal_msg('albertel','msu',"Error in $ENV{'request.filename'}",$_[0]); |
#&Apache::lonmsg::user_normal_msg('albertel','103',"Error in $ENV{'request.filename'}",$_[0]); |
#&Apache::lonmsg::user_normal_msg('albertel','103',"Error in $ENV{'request.filename'}",$_[0]); |
} |
} |
} |
} |
|
|
sub warning { |
sub warning { |
#if ($Apache::lonxml::debug eq 1) { |
if ($ENV{'request.state'} eq 'construct') { |
print "<b>W</b>ARNING<b>:</b>".$_[0]."<br />\n"; |
print "<b>W</b>ARNING<b>:</b>".$_[0]."<br />\n"; |
# } |
} |
} |
} |
|
|
|
sub register_insert { |
|
my @data = split /\n/, &Apache::lonnet::getfile('/home/httpd/lonTabs/insertlist.tab'); |
|
my $i; |
|
my $tagnum=0; |
|
my @order; |
|
for ($i=0;$i < $#data; $i++) { |
|
my $line = $data[$i]; |
|
if ( $line =~ /^\#/ || $line =~ /^\s*\n/) { next; } |
|
if ( $line =~ /TABLE/ ) { last; } |
|
my ($tag,$descrip,$function,$show) = split(/,/, $line); |
|
$insertlist{"$tagnum.tag"} = $tag; |
|
$insertlist{"$tagnum.description"} = $descrip; |
|
$insertlist{"$tagnum.function"} = $function; |
|
$insertlist{"$tagnum.show"}= $show; |
|
$tagnum++; |
|
} |
|
$i++; #skipping TABLE line |
|
$tagnum = 0; |
|
for (;$i < $#data;$i++) { |
|
my $line = $data[$i]; |
|
my ($mnemonic,@which) = split(/ +/,$line); |
|
my $tag = $insertlist{"$tagnum.tag"}; |
|
for (my $j=0;$j <$#which;$j++) { |
|
if ( $which[$j] eq 'Y' ) { |
|
if ($insertlist{"$j.show"} ne 'no') { |
|
push(@{ $insertlist{"$tag.which"} },$j); |
|
} |
|
} |
|
} |
|
$tagnum++; |
|
} |
|
} |
1; |
1; |
__END__ |
__END__ |
|
|