1: # The LearningOnline Network with CAPA
2: # Server for RAT Maps
3: #
4: # (Edit Handler for RAT Maps
5: # (TeX Content Handler
6: #
7: # 05/29/00,05/30 Gerd Kortemeyer)
8: # 7/1 Gerd Kortemeyer)
9: # 7/1 Gerd Kortemeyer
10:
11: package Apache::lonratsrv;
12:
13: use strict;
14: use Apache::Constants qw(:common);
15:
16: # ================================================================ Main Handler
17:
18: sub handler {
19: my $r=shift;
20: $r->content_type('text/html');
21: $r->send_http_header;
22:
23: return OK if $r->header_only;
24:
25: my $url=$r->uri;
26:
27: $r->print(<<ENDDOCUMENT);
28: <html>
29: <body bgcolor="#FFFFFF">
30: <form name=storage method=post>
31: <input type=hidden name=output>
32: </form>
33: </body>
34: </html>
35:
36: ENDDOCUMENT
37: return OK;
38: }
39:
40: 1;
41: __END__
42:
43:
44:
45:
46:
47:
48:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>