[BACK]Return to lonwrapper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat
File:  [LON-CAPA] / rat / lonwrapper.pm
Revision 1.1: download - view: text, annotated - select for diffs
Thu Jul 5 13:31:53 2001 UTC (22 years, 10 months ago) by www
Branches: MAIN
CVS tags: HEAD
Handler to incorporate external and binary resources

    1: # The LearningOnline Network with CAPA
    2: # Wrapper for external and binary files as standalone resources
    3: #
    4: # (Edit Handler for RAT Maps
    5: # (TeX Content Handler
    6: #
    7: # 05/29/00,05/30 Gerd Kortemeyer)
    8: # 7/1,6/30 Gerd Kortemeyer)
    9: #
   10: # 7/5 Gerd Kortemeyer
   11: 
   12: package Apache::lonwrapper;
   13: 
   14: use strict;
   15: use Apache::Constants qw(:common);
   16: use Apache::lonnet;
   17: 
   18: # ================================================================ Main Handler
   19: 
   20: sub handler {
   21:   my $r=shift;
   22:   $r->content_type('text/html');
   23:   $r->send_http_header;
   24: 
   25:   return OK if $r->header_only;
   26: 
   27:   my $url=$r->uri;
   28: 
   29:   $r->print(<<ENDDOCUMENT);
   30: <html>
   31: <head>
   32: </head>
   33: <frameset rows="*" border=0>
   34: <frame src="$url">
   35: </frameset>
   36: </html>
   37: ENDDOCUMENT
   38:   return OK;
   39: }
   40: 
   41: 1;
   42: __END__
   43: 
   44: 
   45: 
   46: 
   47: 
   48: 
   49:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>