Return to test.pm CVS log | Up to [LON-CAPA] / loncom / homework |
- early homework handler
1: package Apache::test; 2: 3: use Apache::lonnet; 4: 5: sub handler { 6: my $r = shift; 7: $r->content_type('text/html'); 8: $r->send_http_header; 9: $r->print(<<ENDHEADER); 10: <html> 11: <head> 12: <title>Guy Testbed</title> 13: </head> 14: <body bgcolor="#FFFFFF"> 15: ENDHEADER 16: $r->print($r->uri); 17: $r->print(&Apache::lonnet::reply("encrypt:rolesput:103:albertel:103:albertel:/103/=au","103l2")); 18: return OK; 19: } 20: 21: 1; 22: __END__