--- loncom/interface/lonhelper.pm	2003/03/21 18:11:11	1.1
+++ loncom/interface/lonhelper.pm	2003/03/21 21:34:56	1.2
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.1 2003/03/21 18:11:11 bowersj2 Exp $
+# $Id: lonhelper.pm,v 1.2 2003/03/21 21:34:56 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,6 +31,46 @@
 #
 
 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;