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

Annotation of loncom/interface/lonannounce.pm, revision 1.2

1.1       www         1: # The LearningOnline Network
1.2     ! www         2: # Announce
1.1       www         3: #
                      4: # (Internal Server Error Handler
                      5: #
                      6: # (Login Screen
                      7: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
                      8: # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
                      9: #
                     10: # 3/1/1 Gerd Kortemeyer)
                     11: #
                     12: # 3/1 Gerd Kortemeyer
                     13: #
1.2     ! www        14: package Apache::lonannounce;
1.1       www        15: 
                     16: use strict;
                     17: use Apache::Constants qw(:common);
                     18: 
                     19: sub handler {
                     20:     my $r = shift;
                     21:     $r->content_type('text/html');
                     22:     $r->send_http_header;
                     23:     return OK if $r->header_only;
                     24: 
                     25: # --------------------------------------------------- Print login screen header
                     26:     $r->print(<<ENDDOCUMENT);
                     27: <html>
                     28: <head>
                     29: <title>The LearningOnline Network with CAPA</title>
                     30: </head>
                     31: <body bgcolor="#FFFFFF">
                     32: <h1>Printout</h1>
                     33: <img src="/adm/lonKaputt/lonconstruct.gif">
                     34: </body>
                     35: </html>
                     36: ENDDOCUMENT
                     37:     return OK;
                     38: } 
                     39: 
                     40: 1;
                     41: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>