version 1.1, 2003/03/21 18:11:11
|
version 1.2, 2003/03/21 21:34:56
|
Line 31
|
Line 31
|
# |
# |
|
|
package Apache::lonhelper; |
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.'; |
|
} |
|
|
1; |
1; |
|
|