version 1.24, 2000/10/09 14:07:02
|
version 1.26, 2000/10/11 21:07:59
|
Line 27 use Apache::londefdef;
|
Line 27 use Apache::londefdef;
|
use Apache::scripttag; |
use Apache::scripttag; |
#================================================== Main subroutine: xmlparse |
#================================================== Main subroutine: xmlparse |
@Apache::lonxml::pwd=(); |
@Apache::lonxml::pwd=(); |
|
$Apache::lonxml::outputstack = ''; |
|
$Apache::lonxml::redirection = 1; |
|
|
sub xmlparse { |
sub xmlparse { |
|
|
my ($target,$content_file_string,$safeinit,%style_for_target) = @_; |
my ($target,$content_file_string,$safeinit,%style_for_target) = @_; |
Line 40 sub xmlparse {
|
Line 43 sub xmlparse {
|
my $newarg = ''; |
my $newarg = ''; |
my $result; |
my $result; |
|
|
my $indicator = 1; |
|
my $pocketbox = ''; |
|
|
|
my $safeeval = new Safe; |
my $safeeval = new Safe; |
$safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
$safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
Line 50 sub xmlparse {
|
Line 50 sub xmlparse {
|
#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().';'; |
&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 |
|
|
Line 72 sub xmlparse {
|
Line 73 sub xmlparse {
|
&increasedepth($token); |
&increasedepth($token); |
if (exists $style_for_target{$token->[1]}) { |
if (exists $style_for_target{$token->[1]}) { |
|
|
if ($indicator == 1) { |
if ($Apache::lonxml::redirection == 1) { |
$finaloutput .= &recurse($style_for_target{$token->[1]}, |
$finaloutput .= &recurse($style_for_target{$token->[1]}, |
$target,$safeeval,\%style_for_target, |
$target,$safeeval,\%style_for_target, |
@parstack); |
@parstack); |
} else { |
} else { |
$pocketbox .= &recurse($style_for_target{$token->[1]}, |
$Apache::lonxml::outputstack .= &recurse($style_for_target{$token->[1]}, |
$target,$safeeval,\%style_for_target, |
$target,$safeeval,\%style_for_target, |
@parstack); |
@parstack); |
} |
} |
Line 85 sub xmlparse {
|
Line 86 sub xmlparse {
|
} else { |
} else { |
$result = &callsub("start_$token->[1]", $target, $token,\@parstack, |
$result = &callsub("start_$token->[1]", $target, $token,\@parstack, |
\@pars, $safeeval, \%style_for_target); |
\@pars, $safeeval, \%style_for_target); |
|
|
if ($result eq "footnote") { &Apache::lonxml::debug($result);} |
|
|
|
} |
} |
} elsif ($token->[0] eq 'E') { |
} elsif ($token->[0] eq 'E') { |
#clear out any tags that didn't end |
#clear out any tags that didn't end |
Line 96 sub xmlparse {
|
Line 94 sub xmlparse {
|
|
|
if (exists $style_for_target{'/'."$token->[1]"}) { |
if (exists $style_for_target{'/'."$token->[1]"}) { |
|
|
if ($indicator == 1) { |
if ($Apache::lonxml::redirection == 1) { |
$finaloutput .= &recurse($style_for_target{'/'."$token->[1]"}, |
$finaloutput .= &recurse($style_for_target{'/'."$token->[1]"}, |
$target,$safeeval,\%style_for_target, |
$target,$safeeval,\%style_for_target, |
@parstack); |
@parstack); |
} else { |
} else { |
$pocketbox .= &recurse($style_for_target{'/'."$token->[1]"}, |
$Apache::lonxml::outputstack .= &recurse($style_for_target{'/'."$token->[1]"}, |
$target,$safeeval,\%style_for_target, |
$target,$safeeval,\%style_for_target, |
@parstack); |
@parstack); |
} |
} |
Line 111 sub xmlparse {
|
Line 109 sub xmlparse {
|
\@pars,$safeeval, \%style_for_target); |
\@pars,$safeeval, \%style_for_target); |
} |
} |
} |
} |
if ($result ne "" ) { |
if ($result ne "") { |
if ( $#parstack > -1 ) { |
if ( $#parstack > -1 ) { |
|
|
if ($indicator == 1) { |
if ($Apache::lonxml::redirection == 1) { |
$finaloutput .= &Apache::run::evaluate($result,$safeeval, |
$finaloutput .= &Apache::run::evaluate($result,$safeeval, |
$parstack[$#parstack]); |
$parstack[$#parstack]); |
} else { |
} else { |
$pocketbox .= &Apache::run::evaluate($result,$safeeval, |
$Apache::lonxml::outputstack .= &Apache::run::evaluate($result,$safeeval, |
$parstack[$#parstack]); |
$parstack[$#parstack]); |
} |
} |
|
|
Line 126 sub xmlparse {
|
Line 124 sub xmlparse {
|
$finaloutput .= &Apache::run::evaluate($result,$safeeval,''); |
$finaloutput .= &Apache::run::evaluate($result,$safeeval,''); |
} |
} |
$result = ''; |
$result = ''; |
|
} else { |
|
$finaloutput .= $result; |
} |
} |
if ($token->[0] eq 'E') { pop @stack;pop @parstack;&decreasedepth($token);} |
if ($token->[0] eq 'E') { pop @stack;pop @parstack;&decreasedepth($token);} |
} |
} |
Line 202 sub callsub {
|
Line 202 sub callsub {
|
my $sub1; |
my $sub1; |
no strict 'refs'; |
no strict 'refs'; |
if (my $space=$Apache::lonxml::alltags{$token->[1]}) { |
if (my $space=$Apache::lonxml::alltags{$token->[1]}) { |
# &Apache::lonxml::debug("Calling sub $sub in $space<br>\n"); |
#&Apache::lonxml::debug("Calling sub $sub in $space<br>\n"); |
# if ( $sub eq "start_parserlib" ) { |
|
# print "me:".%$style.":\n"; |
|
# } |
|
$sub1="$space\:\:$sub"; |
$sub1="$space\:\:$sub"; |
$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter); |
$Apache::lonxml::curdepth=join('_',@Apache::lonxml::depthcounter); |
$currentstring = &$sub1($target,$token,$parstack,$parser, |
$currentstring = &$sub1($target,$token,$parstack,$parser, |
$safeeval,$style); |
$safeeval,$style); |
# if ( $sub eq "start_parserlib" ) { |
|
# print "me2:".%$style.":"; |
|
# } |
|
} else { |
} else { |
#&Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n"); |
#&Apache::lonxml::debug("NOT Calling sub $sub in $space<br>\n"); |
if (defined($token->[4])) { |
if (defined($token->[4])) { |
Line 305 sub handler {
|
Line 299 sub handler {
|
my $target='web'; |
my $target='web'; |
$Apache::lonxml::debug=1; |
$Apache::lonxml::debug=1; |
$request->content_type('text/html'); |
$request->content_type('text/html'); |
$request->send_http_header; |
# $request->send_http_header; |
$request->print(<<ENDHEADER); |
if ($ENV{'browser.mathml'}) { |
<html> |
$request->print( '<?xml version="1.0"?>' |
<head> |
.'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>' |
<title>Just test</title> |
.'<!DOCTYPE html SYSTEM "/adm/MathML/mathml.dtd" ' |
</head> |
.'[<!ENTITY mathns "http://www.w3.org/1998/Math/MathML">]>' |
<body bgcolor="#FFFFFF"> |
.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" ' |
ENDHEADER |
.'xmlns="http://www.w3.org/TR/REC-html40">' |
|
.'<body bgcolor="#FFFFFF">'."\n"); |
|
} else { |
|
my $headerstring='<html>'; |
|
if ($ENV{'browser.os'} eq 'mac') { |
|
$headerstring.="<head>\n" |
|
.'<meta Content-Type="text/html; charset=x-mac-roman">' |
|
."\n</head>\n"; |
|
} |
|
$request->print($headerstring.'<body bgcolor="#FFFFFF">'."\n"); |
|
} |
|
# $request->print(<<ENDHEADER); |
|
#<html> |
|
#<head> |
|
#<title>Just test</title> |
|
#</head> |
|
#<body bgcolor="#FFFFFF"> |
|
#ENDHEADER |
# &Apache::lonhomework::send_header($request); |
# &Apache::lonhomework::send_header($request); |
my $file = "/home/httpd/html".$request->uri; |
my $file = "/home/httpd/html".$request->uri; |
my %mystyle; |
my %mystyle; |
Line 343 __END__
|
Line 354 __END__
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|