loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1, 2003/03/21 18:11:11
+version 1.2, 2003/03/21 21:34:56
  Line 31
  #
  package Apache::lonhelper;
+ use Apache::Constants qw(:common);
+ use Apache::File;
+ BEGIN {
+     &Apache::lonxml::register('Apache::lonhelper',
+                               ('helper'));
+ }
+ my $r;
+ sub handler {
+     $r = shift;
+     $ENV{'request.uri'} = $r->uri();
+     my $filename = '/home/httpd/html' . $r->uri();
+     my $fh = Apache::File->new($filename);
+     my $file;
+     read $fh, $file, 1000000000;
+     $result = &Apache::lonxml::xmlparse($r, 'helper', $file);
+     $r->print("\n\n$result");
+     return OK;
+ }
+ sub start_helper {
+     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+     if ($target ne 'helper') {
+         return '';
+     }
+     return 'Helper started.';
+ }
+ sub end_helper {
+     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
+     return 'Helper ended.';
+ }
 ;