--- loncom/xml/scripttag.pm 2000/07/14 16:55:46 1.2 +++ loncom/xml/scripttag.pm 2000/10/10 18:18:26 1.20 @@ -5,26 +5,169 @@ package Apache::scripttag; use strict; +use Apache::lonnet; sub BEGIN { - &Apache::lonxml::register('Apache::scripttag',('script')); + &Apache::lonxml::register('Apache::scripttag',('script','scriptlib', + 'parserlib','import', + 'footnote')); } +$Apache::scripttag::SCRIPT_RESULT=''; sub start_script { my ($target,$token,$parstack,$parser,$safeeval)=@_; - - my $result=""; - my $bodytext=$parser->get_text("/script"); - if ($target ne "edit" ) { + my $args =''; + if ( $#$parstack > -1 ) { + $args=$$parstack[$#$parstack]; + } + my $type = &Apache::run::run("{$args;".'return $type}',$safeeval); + #&Apache::lonxml::debug("found type of $type"); + $Apache::scripttag::SCRIPT_RESULT=''; + if ($type eq "loncapa/perl") { + $safeeval->share('$SCRIPT_RESULT'); + my $bodytext=&Apache::lonxml::get_all_text("script",$$parser[$#$parser]); + + if ( $target eq "modified" ) { + } &Apache::run::run($bodytext,$safeeval); + + if ($target eq "edit" ) { + $Apache::scripttag::SCRIPT_RESULT = + "
<$token->[1]> output:
$bodytext
Source:
"; + $Apache::scripttag::SCRIPT_RESULT.=&editfield($token->[1],$bodytext); + } } else { - $result="\n"; + $Apache::scripttag::SCRIPT_RESULT = $token->[4]; } - return $result; + return $Apache::scripttag::SCRIPT_RESULT; } sub end_script { - my ($target,$token,@parstack)=@_; + my ($target,$token,$parstack,$parser,$safeeval)=@_; + return $token->[2]; +} + +sub start_scriptlib { + my ($target,$token,$parstack,$parser,$safeeval)=@_; + my $bodytext=$$parser[$#$parser]->get_text("/scriptlib"); + my $result =""; + + $bodytext=&Apache::run::evaluate($bodytext,$safeeval, + $$parstack[$#$parstack]); + my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'], + $bodytext); + my $script=&Apache::lonnet::getfile($location); + if ($script == -1) { + &Apache::lonxml::error(" Unable to find $location for scriptlib"); + return ""; + } + &Apache::run::run($script,$safeeval); + #&Apache::lonxml::debug("ran $bodytext:
".&Apache::lonnet::getfile($bodytext)."
"); + + if ($target eq "edit" ) { + $result.=&editfield($token->[1],$bodytext); + } + return $result; +} + +sub end_scriptlib {} + +sub start_parserlib { + my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + my $bodytext=$$parser[$#$parser]->get_text("/parserlib"); + my $result =""; + + $bodytext=&Apache::run::evaluate($bodytext,$safeeval, + $$parstack[$#$parstack]); + my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'], + $bodytext); + my $styletext=&Apache::lonnet::getfile($location); + if ($styletext == -1) { + &Apache::lonxml::error(" Unable to find $location for parserlib"); + return ""; + } + %$style = ( %$style , &Apache::style::styleparser($target,$styletext)); + + if ($target eq "edit" ) { + $result=&editfield($token->[1],$bodytext); + } + return $result; +} + +sub end_parserlib { } + +sub start_footnote { + my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + my $result = ''; + $Apache::lonxml::redirection = 0; + return $result; +} + +sub end_footnote { + my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + $Apache::lonxml::outputstack =~ s/\"/\"\;/g; + my $result = "newwindow $Apache::lonxml::outputstack \');newWindow.document.close();void(0);\">*"; + $Apache::lonxml::outputstack = ""; + $Apache::lonxml::redirection = 1; + return $result; +} + +sub start_import { + my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + my $bodytext=$$parser[$#$parser]->get_text("/import"); + my $result =""; + + $bodytext=Apache::run::evaluate($bodytext,$safeeval,$$parstack[$#$parstack]); + my $location=&Apache::lonnet::filelocation($Apache::lonxml::pwd['-1'],$bodytext); + my $file=&Apache::lonnet::getfile($location); + if ($file == -1) { + &Apache::lonxml::error(" Unable to find $bodytext $location for import"); + return ""; + } + + my $dir=$location; + $dir=~s:/[^/]*$::; + &Apache::lonxml::newparser($parser,\$file,$dir); + + if ($target eq "edit" ) { + $result.=&editfield($token->[1],$bodytext); + $result.="Clickhere to edit

" + } +} + +sub end_import { +} + +sub editfield { + my ($tag,$data)=@_; + + my $count=0; + my $maxlength=-1; + map { $count++; + if (length($_) > $maxlength) { $maxlength = length ($_); } + } split ("\n", $data); + + return "

\n<$tag>

\n   

\n</$tag>

\n"; +} + +sub getfilenothere { + my ($filename) = @_; + my $a=""; + + $filename=~ s/^\s*(\S+)\s*$/$1/; ## strip off leading and trailing spaces + $filename="/home/httpd/html/res".$filename; + if (! -e $filename ) { + &Apache::lonnet::subscribe($filename); + &Apache::lonnet::repcopy($filename); + } + if (! -e $filename ) { return -1; }; + my $fh=Apache::File->new($filename); + while (<$fh>) { + $a .=$_; + } + return $a +} + 1; __END__