Return to test.pm CVS log | Up to [LON-CAPA] / loncom / homework |
- early homework handler
package Apache::test; use Apache::lonnet; sub handler { my $r = shift; $r->content_type('text/html'); $r->send_http_header; $r->print(<<ENDHEADER); <html> <head> <title>Guy Testbed</title> </head> <body bgcolor="#FFFFFF"> ENDHEADER $r->print($r->uri); $r->print(&Apache::lonnet::reply("encrypt:rolesput:103:albertel:103:albertel:/103/=au","103l2")); return OK; } 1; __END__