[BACK]Return to lonratsrv.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat
File:  [LON-CAPA] / rat / lonratsrv.pm
Revision 1.1: download - view: text, annotated - select for diffs
Sat Jul 1 17:55:31 2000 UTC (23 years, 10 months ago) by www
Branches: MAIN
CVS tags: HEAD
New files to deal with server side of RAT

    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>