# The LearningOnline Network with CAPA # Directory Indexer # (Login Screen # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) # 11/23 Gerd Kortemeyer # package Apache::lonindexer; use strict; use Apache::lonnet(); use Apache::Constants qw(:common); sub handler { my $r = shift; $r->content_type('text/html'); $r->send_http_header; return OK if $r->header_only; my $iconpath= $r->dir_config('lonIconsURL'); my $domain = $r->dir_config('lonDefDomain'); my $role = $r->dir_config('lonRole'); my $loadlim = $r->dir_config('lonLoadLim'); my $servadm = $r->dir_config('lonAdmEMail'); my $sysadm = $r->dir_config('lonSysEMail'); my $lonhost = $r->dir_config('lonHostID'); my $tabdir = $r->dir_config('lonTabDir'); # ---------------------------------------------------------------- Print Header $r->print(< The LearningOnline Network Directory Browser ENDHEADER my %otherenv; $otherenv{'hi'}='there'; $otherenv{'does_this'}='work?'; &Apache::lonnet::appenv(%otherenv); my $envkey; foreach $envkey (sort keys %ENV) { $r->print("$envkey: $ENV{$envkey}
\n"); } $r->print("\n"); return OK; } 1; __END__