# The LearningOnline Network with CAPA # User Roles Screen # (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) # 1/14 Gerd Kortemeyer # package Apache::lonroles; use strict; use Apache::lonnet(); use Apache::Constants qw(:common); use CGI::Cookie(); 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(< LON-CAPA User Roles ENDHEADER my %cookies=CGI::Cookie->parse($r->header_in('Cookie')); my $lonurl=$cookies{'lonURL'}; my $lowerurl=$lonurl->value; my $envkey; foreach $envkey (sort keys %ENV) { $r->print("$envkey: $ENV{$envkey}
\n"); } $r->print("

URL: $lowerurl"); $r->print("\n"); return OK; } 1; __END__