[BACK]Return to test.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework
File:  [LON-CAPA] / loncom / homework / Attic / test.pm
Revision 1.1: download - view: text, annotated - select for diffs
Tue Jul 25 17:45:40 2000 UTC (23 years, 10 months ago) by albertel
Branches: MAIN
CVS tags: stable_2001_fall, HEAD
- 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__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>