version 1.5, 2000/08/03 19:34:11
|
version 1.6, 2000/08/07 21:26:21
|
Line 8 use strict;
|
Line 8 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
|
|
sub BEGIN { |
sub BEGIN { |
&Apache::lonxml::register('Apache::scripttag',('script','scriptlib','parserlib')); |
&Apache::lonxml::register('Apache::scripttag',('script','scriptlib', |
|
'parserlib','import')); |
} |
} |
|
|
sub start_script { |
sub start_script { |
Line 31 sub start_scriptlib {
|
Line 32 sub start_scriptlib {
|
my $bodytext=$$parser[$#$parser]->get_text("/scriptlib"); |
my $bodytext=$$parser[$#$parser]->get_text("/scriptlib"); |
my $result =""; |
my $result =""; |
if ($target ne "edit" ) { |
if ($target ne "edit" ) { |
&Apache::run::run(&getfile($bodytext),$safeeval); |
&Apache::run::run(&getfile("/home/httpd/html".$bodytext),$safeeval); |
#print "ran $bodytext:<br>".&getfile($bodytext)."<br>"; |
#print "ran $bodytext:<br>".&getfile($bodytext)."<br>"; |
} else { |
} else { |
$result="<textarea>$bodytext</textarea>\n"; |
$result="<textarea>$bodytext</textarea>\n"; |
Line 43 sub end_scriptlib {}
|
Line 44 sub end_scriptlib {}
|
|
|
sub start_parserlib { |
sub start_parserlib { |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; |
my $bodytext="/home/httpd/html/".$$parser[$#$parser]->get_text("/parserlib"); |
my $bodytext=$$parser[$#$parser]->get_text("/parserlib"); |
%$style = ( %$style , &Apache::style::styleparser($target, &getfile($bodytext))); |
%$style = ( %$style , &Apache::style::styleparser($target, |
|
&getfile("/home/httpd/html/".$bodytext))); |
} |
} |
|
|
sub end_parserlib { |
sub end_parserlib { |
} |
} |
|
|
|
sub start_import { |
|
my ($target,$token,$parstack,$parser)=@_; |
|
my $bodytext=$$parser[$#$parser]->get_text("/import"); |
|
print "going after".$bodytext."\n"; |
|
my $file=&getfile("/home/httpd/html/".$bodytext); |
|
my $tempparser=HTML::TokeParser->new(\$file); |
|
push (@$parser,$tempparser); |
|
} |
|
|
|
sub end_import { |
|
} |
|
|
sub getfile { |
sub getfile { |
my ($filename) = @_; |
my ($filename) = @_; |
my $a=""; |
my $a=""; |