[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, 9 months ago) by albertel
Branches: MAIN
CVS tags: stable_2001_fall, HEAD
- 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__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>