[BACK]Return to lonindexer.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework
File:  [LON-CAPA] / loncom / homework / Attic / lonindexer.pm
Revision 1.1: download - view: text, annotated - select for diffs
Tue Feb 22 21:33:18 2000 UTC (24 years, 5 months ago) by harris41
Branches: MAIN
CVS tags: HEAD, Bacillus
Integrating loncom file into CVS archive.

    1: # The LearningOnline Network with CAPA
    2: # Directory Indexer
    3: # (Login Screen
    4: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)
    5: # 11/23 Gerd Kortemeyer
    6: #
    7: package Apache::lonindexer;
    8: 
    9: use strict;
   10: use Apache::lonnet();
   11: use Apache::Constants qw(:common);
   12: 
   13: sub handler {
   14:     my $r = shift;
   15:     $r->content_type('text/html');
   16:     $r->send_http_header;
   17:     return OK if $r->header_only;
   18: 
   19:     my $iconpath= $r->dir_config('lonIconsURL');
   20:     my $domain  = $r->dir_config('lonDefDomain');
   21:     my $role    = $r->dir_config('lonRole');
   22:     my $loadlim = $r->dir_config('lonLoadLim');
   23:     my $servadm = $r->dir_config('lonAdmEMail');
   24:     my $sysadm  = $r->dir_config('lonSysEMail');
   25:     my $lonhost = $r->dir_config('lonHostID');
   26:     my $tabdir  = $r->dir_config('lonTabDir');
   27: 
   28: # ---------------------------------------------------------------- Print Header
   29:     $r->print(<<ENDHEADER);
   30: <html>
   31: <head>
   32: <title>The LearningOnline Network Directory Browser</title>
   33: </head>
   34: <body bgcolor="#FFFFFF">
   35: ENDHEADER
   36:     my %otherenv;
   37:     $otherenv{'hi'}='there';
   38:     $otherenv{'does_this'}='work?';
   39:     &Apache::lonnet::appenv(%otherenv);
   40:     my $envkey;
   41:     foreach $envkey (sort keys %ENV) {
   42: 	$r->print("$envkey: $ENV{$envkey}<br>\n");
   43:     }
   44:     $r->print("</body></html>\n");
   45:     return OK;
   46: } 
   47: 
   48: 1;
   49: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>