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