[BACK]Return to lonerrorhandler.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface
File:  [LON-CAPA] / loncom / interface / lonerrorhandler.pm
Revision 1.1: download - view: text, annotated - select for diffs
Wed Jan 3 16:20:59 2001 UTC (23 years, 6 months ago) by www
Branches: MAIN
CVS tags: HEAD
Trying to make ugly things look pretty

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