[BACK]Return to lonratedt.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat
File:  [LON-CAPA] / rat / lonratedt.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: # Edit Handler for RAT Maps
    3: # (TeX Content Handler
    4: #
    5: # 05/29/00,05/30 Gerd Kortemeyer)
    6: # 7/1 Gerd Kortemeyer
    7: 
    8: package Apache::lonratedt;
    9: 
   10: use strict;
   11: use Apache::Constants qw(:common);
   12: 
   13: # ================================================================ Main Handler
   14: 
   15: sub handler {
   16:   my $r=shift;
   17:   $r->content_type('text/html');
   18:   $r->send_http_header;
   19: 
   20:   return OK if $r->header_only;
   21: 
   22:   my $url=$r->uri;
   23: 
   24:   $r->print(<<ENDDOCUMENT);
   25: 
   26: <html>
   27: <frameset rows="1,50,*" border=0>
   28: <frame name=server src="$url/loadonly/ratserver" noresize noscroll>
   29: <frame name=code src="/adm/rat/code.html">
   30: <frame name=mapout src="/adm/rat/map.html">
   31: </frameset>
   32: </html>
   33: 
   34: ENDDOCUMENT
   35:   return OK;
   36: }
   37: 
   38: 1;
   39: __END__
   40: 
   41: 
   42: 
   43: 
   44: 
   45: 
   46:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>