Return to scripttag.pm CVS log

Up to [LON-CAPA] / loncom / xml

Annotation of loncom/xml/scripttag.pm, revision 1.4

1.1       albertel    1: # The LearningOnline Network with CAPA
                      2: # <script> definiton
                      3: 
                      4: 
                      5: package Apache::scripttag; 
                      6: 
                      7: use strict;
1.3       albertel    8: use Apache::lonnet;
1.1       albertel    9: 
                     10: sub BEGIN {
1.4     ! albertel   11:   &Apache::lonxml::register('Apache::scripttag',('script','scriptlib','parserlib'));
1.1       albertel   12: }
                     13: 
                     14: sub start_script {
1.2       albertel   15:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
1.1       albertel   16:   
1.2       albertel   17:   my $result="";
                     18:   my $bodytext=$parser->get_text("/script");
                     19:   if ($target ne "edit" ) {
1.3       albertel   20:     $result = &Apache::run::run($bodytext,$safeeval);
1.2       albertel   21:   } else {
                     22:     $result="<textarea>$bodytext</textarea>\n";
                     23:   }
                     24:   return $result;
1.1       albertel   25: }
                     26: 
1.3       albertel   27: sub end_script {}
                     28: 
                     29: sub start_scriptlib {
                     30:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
                     31:   my $bodytext=$parser->get_text("/scriptlib");
                     32:   my $result ="";
                     33:   if ($target ne "edit" ) {
                     34:     &Apache::run::run(&getfile($bodytext),$safeeval);
                     35:     #print "ran $bodytext:<br>".&getfile($bodytext)."<br>";
                     36:   } else {
                     37:     $result="<textarea>$bodytext</textarea>\n";
                     38:   }
                     39:   return $result;
                     40: }
                     41: 
                     42: sub end_scriptlib {}
1.4     ! albertel   43: 
        !            44: sub start_parserlib {
        !            45:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
        !            46:   my $bodytext="/home/httpd/html/".$parser->get_text("/parserlib");
        !            47:   %$style = ( %$style , &Apache::style::styleparser($target, &getfile($bodytext)));
        !            48: }
        !            49: 
        !            50: sub end_parserlib {
        !            51: }
1.3       albertel   52: 
                     53: sub getfile {
                     54:   my ($filename) = @_;
                     55:   my $a="";
                     56:   &Apache::lonnet::repcopy($filename);
                     57:   {
                     58:     my $fh=Apache::File->new($filename);
                     59:     while (<$fh>) {
                     60:       $a .=$_;
                     61:     }
                     62:   }
                     63:   return $a
1.1       albertel   64: }
1.3       albertel   65: 
1.1       albertel   66: 1;
                     67: __END__