[BACK]Return to lonwrapper.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Annotation of rat/lonwrapper.pm, revision 1.3

1.1       www         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);
1.2       www        16: use Apache::lonnet();
                     17: use Apache::lonxml();
1.1       www        18: 
                     19: # ================================================================ Main Handler
                     20: 
                     21: sub handler {
                     22:   my $r=shift;
                     23:   $r->content_type('text/html');
                     24:   $r->send_http_header;
                     25: 
                     26:   return OK if $r->header_only;
                     27: 
                     28:   my $url=$r->uri;
1.2       www        29:   $url=~s/^\/adm\/wrapper//;
1.3     ! www        30:   $url=~s/^\/ext\//http\:\/\//;
1.2       www        31:   my $events='onLoad="'.&Apache::lonxml::loadevents.
                     32:            '" onUnload="'.&Apache::lonxml::unloadevents.'"';
                     33:   my $script=&Apache::lonxml::registerurl(1);
1.1       www        34:   $r->print(<<ENDDOCUMENT);
                     35: <html>
                     36: <head>
1.2       www        37: $script
1.1       www        38: </head>
1.2       www        39: <frameset rows="1,*" border=0 $events>
                     40: <frame src="/adm/rat/empty.html">
1.1       www        41: <frame src="$url">
                     42: </frameset>
                     43: </html>
                     44: ENDDOCUMENT
                     45:   return OK;
                     46: }
                     47: 
                     48: 1;
                     49: __END__
                     50: 
                     51: 
                     52: 
                     53: 
                     54: 
                     55: 
                     56: 
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>