[BACK]Return to test.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Annotation of loncom/homework/test.pm, revision 1.1

1.1     ! albertel    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>