[BACK]Return to lonconstruct.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Annotation of loncom/publisher/lonconstruct.pm, revision 1.1

1.1     ! www         1: # The LearningOnline Network with CAPA
        !             2: #
        !             3: # Construction Space Page Wrapper for Construction
        !             4: #
        !             5: # (Page Handler
        !             6: #
        !             7: # (TeX Content Handler
        !             8: #
        !             9: # 05/29/00,05/30 Gerd Kortemeyer)
        !            10: # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
        !            11: # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer)
        !            12: #
        !            13: # 11/22,11/23 Gerd Kortemeyer
        !            14: 
        !            15: package Apache::lonconstruct;
        !            16: 
        !            17: use strict;
        !            18: use Apache::Constants qw(:common :http);
        !            19: 
        !            20: # ================================================================ Main Handler
        !            21: 
        !            22: sub handler {
        !            23:    my $r=shift;
        !            24: 
        !            25: # -------------------------------------------------------------- Build frameset
        !            26: 
        !            27:    $r->content_type('text/html');
        !            28:    $r->send_http_header;
        !            29:    return OK if $r->header_only;
        !            30: 
        !            31:    my $lowerframe=$r->path_info;
        !            32:    $lowerframe=~s/^\//\/\~/;
        !            33: 
        !            34:    $r->print(<<ENDPAGE);
        !            35: <html>
        !            36: <head><title>LON-CAPA Construction Space</title></head>
        !            37: <frameset rows="50,*">
        !            38: <frame src='/cgi-bin/publisher'>
        !            39: <frame src='$lowerframe'>
        !            40: </frameset>
        !            41: </html>
        !            42: ENDPAGE
        !            43:    return OK;
        !            44: }
        !            45: 1;
        !            46: __END__
        !            47: 
        !            48: 
        !            49: 
        !            50: 
        !            51: 
        !            52: 
        !            53: 
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>