version 1.59, 2001/03/22 22:40:26
|
version 1.65, 2001/03/27 18:19:29
|
Line 8
|
Line 8
|
|
|
package Apache::lonxml; |
package Apache::lonxml; |
use vars |
use vars |
qw(@pwd @outputstack $redirection $textredirection $import @extlinks $metamode); |
qw(@pwd @outputstack $redirection $import @extlinks $metamode); |
use strict; |
use strict; |
use HTML::TokeParser; |
use HTML::TokeParser; |
use Safe; |
use Safe; |
Line 51 sub xmlparse {
|
Line 51 sub xmlparse {
|
my ($target,$content_file_string,$safeinit,%style_for_target) = @_; |
my ($target,$content_file_string,$safeinit,%style_for_target) = @_; |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
# meta mode is a bit weird only some output is to be turned off |
# meta mode is a bit weird only some output is to be turned off |
|
#<output> tag turns metamode off (defined in londefdef.pm) |
$Apache::lonxml::redirection = 0; |
$Apache::lonxml::redirection = 0; |
$Apache::lonxml::metamode = 1; |
$Apache::lonxml::metamode = 1; |
$Apache::lonxml::import = 0; |
$Apache::lonxml::import = 0; |
Line 96 sub xmlparse {
|
Line 97 sub xmlparse {
|
while ( $#pars > -1 ) { |
while ( $#pars > -1 ) { |
while ($token = $pars[$#pars]->get_token) { |
while ($token = $pars[$#pars]->get_token) { |
if (($token->[0] eq 'T') || ($token->[0] eq 'C') || ($token->[0] eq 'D') ) { |
if (($token->[0] eq 'T') || ($token->[0] eq 'C') || ($token->[0] eq 'D') ) { |
if (!$metamode) { $result=$token->[1]; } |
if ($metamode<1) { $result=$token->[1]; } |
} elsif ($token->[0] eq 'PI') { |
} elsif ($token->[0] eq 'PI') { |
if (!$metamode) { $result=$token->[2]; } |
if ($metamode<1) { $result=$token->[2]; } |
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
# add tag to stack |
# add tag to stack |
push (@stack,$token->[1]); |
push (@stack,$token->[1]); |
Line 106 sub xmlparse {
|
Line 107 sub xmlparse {
|
push (@parstack,&parstring($token)); |
push (@parstack,&parstring($token)); |
&increasedepth($token); |
&increasedepth($token); |
if (exists $style_for_target{$token->[1]}) { |
if (exists $style_for_target{$token->[1]}) { |
if ($metamode) { |
if ($Apache::lonxml::redirection) { |
$result = $style_for_target{$token->[1]}; |
|
} elsif ($Apache::lonxml::redirection) { |
|
$Apache::lonxml::outputstack['-1'] .= |
$Apache::lonxml::outputstack['-1'] .= |
&recurse($style_for_target{$token->[1]},$target,$safeeval, |
&recurse($style_for_target{$token->[1]},$target,$safeeval, |
\%style_for_target,@parstack); |
\%style_for_target,@parstack); |
Line 128 sub xmlparse {
|
Line 127 sub xmlparse {
|
} |
} |
|
|
if (exists $style_for_target{'/'."$token->[1]"}) { |
if (exists $style_for_target{'/'."$token->[1]"}) { |
if ($metamode) { |
if ($Apache::lonxml::redirection) { |
$result = $style_for_target{$token->[1]}; |
|
} elsif ($Apache::lonxml::redirection) { |
|
$Apache::lonxml::outputstack['-1'] .= |
$Apache::lonxml::outputstack['-1'] .= |
&recurse($style_for_target{'/'."$token->[1]"}, |
&recurse($style_for_target{'/'."$token->[1]"}, |
$target,$safeeval,\%style_for_target,@parstack); |
$target,$safeeval,\%style_for_target,@parstack); |
Line 190 sub recurse {
|
Line 187 sub recurse {
|
while ( $#pat > -1 ) { |
while ( $#pat > -1 ) { |
while ($tokenpat = $pat[$#pat]->get_token) { |
while ($tokenpat = $pat[$#pat]->get_token) { |
if (($tokenpat->[0] eq 'T') || ($tokenpat->[0] eq 'C') || ($tokenpat->[0] eq 'D') ) { |
if (($tokenpat->[0] eq 'T') || ($tokenpat->[0] eq 'C') || ($tokenpat->[0] eq 'D') ) { |
$partstring = $tokenpat->[1]; |
if ($metamode<1) { $partstring=$tokenpat->[1]; } |
} elsif ($tokenpat->[0] eq 'PI') { |
} elsif ($tokenpat->[0] eq 'PI') { |
$partstring = $tokenpat->[2]; |
if ($metamode<1) { $partstring=$tokenpat->[2]; } |
} elsif ($tokenpat->[0] eq 'S') { |
} elsif ($tokenpat->[0] eq 'S') { |
push (@innerstack,$tokenpat->[1]); |
push (@innerstack,$tokenpat->[1]); |
push (@innerparstack,&parstring($tokenpat)); |
push (@innerparstack,&parstring($tokenpat)); |
Line 252 sub callsub {
|
Line 249 sub callsub {
|
$safeeval,$style); |
$safeeval,$style); |
} |
} |
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 $metamode<br />\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); |
} else { |
} else { |
#&Apache::lonxml::debug("NOT Calling sub $sub in $space<br />\n"); |
# &Apache::lonxml::debug("NOT Calling sub $sub in $space $metamode<br />\n"); |
if (defined($token->[4]) && !$metamode) { |
if ($metamode <1) { |
$currentstring .= $token->[4]; |
if (defined($token->[4]) && ($metamode < 1)) { |
} else { |
$currentstring .= $token->[4]; |
$currentstring .= $token->[2]; |
} else { |
|
$currentstring .= $token->[2]; |
|
} |
} |
} |
} |
} |
if ($target eq 'edit' && $token->[0] eq 'E') { |
if ($target eq 'edit' && $token->[0] eq 'E') { |
$currentstring = &Apache::edit::tag_end($target,$token,$parstack,$parser, |
$currentstring .= &Apache::edit::tag_end($target,$token,$parstack,$parser, |
$safeeval,$style); |
$safeeval,$style); |
} |
} |
use strict 'refs'; |
use strict 'refs'; |
Line 418 sub handler {
|
Line 417 sub handler {
|
} else { |
} else { |
$request->content_type('text/html'); |
$request->content_type('text/html'); |
} |
} |
|
|
# $request->print(<<ENDHEADER); |
# $request->print(<<ENDHEADER); |
#<html> |
#<html> |
#<head> |
#<head> |
Line 428 sub handler {
|
Line 427 sub handler {
|
#ENDHEADER |
#ENDHEADER |
# &Apache::lonhomework::send_header($request); |
# &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; |
|
|
$request->print(&Apache::lontexconvert::header()); |
if ($target eq 'web') { |
|
$request->print(&Apache::lontexconvert::header()); |
$request->print('<body bgcolor="#FFFFFF">'."\n"); |
$request->print('<body bgcolor="#FFFFFF">'."\n"); |
|
} |
|
|
my $file=&Apache::lonnet::filelocation("",$request->uri); |
my $file=&Apache::lonnet::filelocation("",$request->uri); |
my %mystyle; |
my %mystyle; |
Line 448 sub handler {
|
Line 448 sub handler {
|
$request->print($result); |
$request->print($result); |
|
|
|
|
$request->print('</body>'); |
if ($target eq 'tex') { |
$request->print(&Apache::lontexconvert::footer()); |
# $request->print('\end{document}'."\n"); |
|
} elsif ($target eq 'web') { |
|
$request->print('</body>'); |
|
$request->print(&Apache::lontexconvert::footer()); |
|
} |
|
|
writeallows($request->uri); |
writeallows($request->uri); |
return OK; |
return OK; |
} |
} |