version 1.5, 2000/09/06 14:25:17
|
version 1.7, 2000/09/30 17:25:04
|
Line 4
|
Line 4
|
# (Login Screen |
# (Login Screen |
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer) |
# 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) |
# 11/23 Gerd Kortemeyer) |
# 1/14,03/06,06/01,07/22,07/24,07/25,09/04,09/06 Gerd Kortemeyer |
# 1/14,03/06,06/01,07/22,07/24,07/25, |
|
# 09/04,09/06,09/28,09/29,09/30 Gerd Kortemeyer |
# |
# |
package Apache::lonroles; |
package Apache::lonroles; |
|
|
use strict; |
use strict; |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::lonuserstate(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File(); |
use Apache::File(); |
|
|
Line 28 sub handler {
|
Line 30 sub handler {
|
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
ENDHEADER |
ENDHEADER |
|
|
|
my $now=time; |
|
my $then=$ENV{'user.login.time'}; |
|
my $envkey; |
|
|
|
# ================================================================== Roles Init |
|
|
|
if ($ENV{'form.selectrole'}) { |
|
foreach $envkey (keys %ENV) { |
|
if ($envkey=~/^user\.role\./) { |
|
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
|
my $where=join('.',@pwhere); |
|
my $trolecode=$role.'.'.$where; |
|
if ($ENV{'form.'.$trolecode}) { |
|
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |
|
my $tstatus='is'; |
|
if ($tstart) { |
|
if ($tstart>$then) { |
|
$tstatus='future'; |
|
} |
|
} |
|
if ($tend) { |
|
if ($tend<$then) { $tstatus='expired'; } |
|
if ($tend>$now) { $tstatus='will_not'; } |
|
} |
|
if ($tstatus eq 'is') { |
|
&Apache::lonnet::appenv('request.role' => $trolecode); |
|
my ($cdom,$cnum)=split(/\//,$where); |
|
if ($cnum) { |
|
$r->print( &Apache::lonuserstate::readmap($where) ); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
|
|
$r->print('<h1>Role not active</h1></body></html>'); |
|
return OK; |
|
} |
|
# =============================================================== No Roles Init |
|
|
# ------------------------------------------ Get Error Message from Environment |
# ------------------------------------------ Get Error Message from Environment |
|
|
my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'}); |
my ($fn,$priv,$nochoose,$error,$msg)=split(/:/,$ENV{'user.error.msg'}); |
$r->log_reason( |
$r->log_reason( |
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn); |
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn); |
|
|
# -------------------------------------------------------- Generate Page Output |
# ---------------------------------------------------------------- Who is this? |
|
|
|
my $advanced=0; |
|
foreach $envkey (keys %ENV) { |
|
if ($envkey=~/^user\.role\./) { |
|
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
|
if ($role ne 'st') { $advanced=1; } |
|
} |
|
} |
|
|
|
# -------------------------------------------------------- Generate Page Output |
|
# --------------------------------------------------------------- Error Header? |
if ($error) { |
if ($error) { |
$r->print("<h1>LON-CAPA Access Control</h1>"); |
$r->print("<h1>LON-CAPA Access Control</h1>"); |
$r->print("<hr><pre>Access : ". |
$r->print("<hr><pre>Access : ". |
Line 45 ENDHEADER
|
Line 97 ENDHEADER
|
} else { |
} else { |
$r->print("<h1>LON-CAPA User Roles</h1>"); |
$r->print("<h1>LON-CAPA User Roles</h1>"); |
} |
} |
|
# -------------------------------------------------------- Choice or no choice? |
my $now=time; |
|
my $then=$ENV{'user.login.time'}; |
|
|
|
if ($nochoose) { |
if ($nochoose) { |
$r->print("<h2>Assigned User Roles</h2>\n"); |
if ($advanced) { |
|
$r->print("<h2>Assigned User Roles</h2>\n"); |
|
} else { |
|
$r->print("<h2>Sorry ...</h2>\nThis resource might be part of"); |
|
if ($ENV{'request.course.id'}) { |
|
$r->print(' another'); |
|
} else { |
|
$r->print(' a certain'); |
|
} |
|
$r->print(' course.</body></html>'); |
|
return OK; |
|
} |
|
} else { |
|
if ($advanced) { |
|
$r->print("<h2>Select a User Role</h2>\n"); |
|
} else { |
|
$r->print("<h2>Enter a Course</h2>\n"); |
|
} |
|
$r->print('<form method=post action="'.$r->uri.'">'); |
|
$r->print('<input type=hidden name=orgurl value="'.$fn.'">'); |
|
$r->print('<input type=hidden name=selectrole value=1>'); |
|
} |
|
# ----------------------------------------------------------------------- Table |
|
$r->print('<table><tr>'); |
|
unless ($nochoose) { $r->print('<th> </th>'); } |
|
if ($advanced) { |
|
$r->print('<th>User Role</th><th colspan=2>Extent</th>'. |
|
'<th>Start</th><th>End</th><th>Remark</th></tr>'."\n"); |
} else { |
} else { |
$r->print("<h2>Select a User Role</h2>\n"); |
$r->print('<th>Course</th></tr>'."\n"); |
$r->print('<form method=get action="'.$fn.'">'); |
|
} |
} |
|
|
$r->print('<table><tr><th>User Role</th><th colspan=2>Extent</th>'. |
|
'<th>Start</th><th>End</th><th>Remark</th></tr>'."\n"); |
|
my $envkey; |
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
if ($envkey=~/^user\.role\./) { |
if ($envkey=~/^user\.role\./) { |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my ($dum1,$dum2,$role,@pwhere)=split(/\./,$envkey); |
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
|
my $trolecode=$role.'.'.$where; |
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |
my ($tstart,$tend)=split(/\./,$ENV{$envkey}); |
my $tremark=''; |
my $tremark=''; |
my $tstatus='is'; |
my $tstatus='is'; |
Line 80 ENDHEADER
|
Line 153 ENDHEADER
|
if ($tend>$now) { $tstatus='will_not'; } |
if ($tend>$now) { $tstatus='will_not'; } |
$tpend=localtime($tend); |
$tpend=localtime($tend); |
} |
} |
|
if ($ENV{'request.role'} eq $trolecode) { |
|
$tstatus='selected'; |
|
} |
my $tbg; |
my $tbg; |
if ($tstatus eq 'is') { |
if ($tstatus eq 'is') { |
$tbg='#77FF77'; |
$tbg='#77FF77'; |
Line 87 ENDHEADER
|
Line 163 ENDHEADER
|
$tbg='#FFFF77'; |
$tbg='#FFFF77'; |
} elsif ($tstatus eq 'will') { |
} elsif ($tstatus eq 'will') { |
$tbg='#FFAA77'; |
$tbg='#FFAA77'; |
$tremark.='Active at next login.'; |
$tremark.='Active at next login. '; |
} elsif ($tstatus eq 'expired') { |
} elsif ($tstatus eq 'expired') { |
$tbg='#FF7777'; |
$tbg='#FF7777'; |
} elsif ($tstatus eq 'will_not') { |
} elsif ($tstatus eq 'will_not') { |
$tbg='#AAFF77'; |
$tbg='#AAFF77'; |
$tremark.='Expired after logout.'; |
$tremark.='Expired after logout. '; |
|
} elsif ($tstatus eq 'selected') { |
|
$tbg='#33FF33'; |
|
$tremark.='Currently selected. '; |
} |
} |
my $trole; |
my $trole; |
if ($role =~ /^cr\//) { |
if ($role =~ /^cr\//) { |
Line 104 ENDHEADER
|
Line 183 ENDHEADER
|
} |
} |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tres,$tdom,@trest)=split(/\//,$where); |
my ($tres,$tdom,$trest)=split(/\//,$where); |
if ($where=~/\.course$/) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$tdom.'/'.join('/',@trest); |
$twhere=$tdom.'/'.$trest; |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |
Line 116 ENDHEADER
|
Line 195 ENDHEADER
|
$twhere='/'; |
$twhere='/'; |
} |
} |
|
|
$r->print('<tr bgcolor='.$tbg.'><td>'.$trole.'</td><td>'. |
$r->print('<tr bgcolor='.$tbg.'>'); |
|
unless ($nochoose) { |
|
if ($tstatus eq 'is') { |
|
$r->print('<td><input type=submit value=Select name="'. |
|
$trolecode.'"></td>'); |
|
} else { |
|
$r->print('<td> </td>'); |
|
} |
|
} |
|
$r->print('<td>'.$trole.'</td><td>'. |
$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart. |
$ttype.'</td><td>'.$twhere.'</td><td>'.$tpstart. |
'</td><td>'.$tpend. |
'</td><td>'.$tpend. |
'</td><td>'.$tremark.' </td></tr>'."\n"); |
'</td><td>'.$tremark.' </td></tr>'."\n"); |
Line 127 ENDHEADER
|
Line 215 ENDHEADER
|
unless ($nochoose) { |
unless ($nochoose) { |
$r->print("</form>\n"); |
$r->print("</form>\n"); |
} |
} |
# ----------------------------------------------------------------- Priviledges |
# ------------------------------------------------------------ Priviledges Info |
|
if ($advanced) { |
$r->print('<hr><h2>Priviledges</h2>'); |
$r->print('<hr><h2>Priviledges</h2>'); |
|
|
foreach $envkey (sort keys %ENV) { |
foreach $envkey (sort keys %ENV) { |
Line 137 ENDHEADER
|
Line 225 ENDHEADER
|
my $where=join('.',@pwhere); |
my $where=join('.',@pwhere); |
my $ttype; |
my $ttype; |
my $twhere; |
my $twhere; |
my ($tres,$tdom,@trest)=split(/\//,$where); |
my ($tres,$tdom,$trest)=split(/\//,$where); |
if ($where=~/\.course$/) { |
if ($trest) { |
$ttype='Course'; |
$ttype='Course'; |
$twhere=$tdom.'/'.join('/',@trest); |
$twhere=$tdom.'/'.$trest; |
} elsif ($tdom) { |
} elsif ($tdom) { |
$ttype='Domain'; |
$ttype='Domain'; |
$twhere=$tdom; |
$twhere=$tdom; |
Line 170 ENDHEADER
|
Line 258 ENDHEADER
|
$r->print('</ul>'); |
$r->print('</ul>'); |
} |
} |
} |
} |
|
} |
# -------------------------------------------------------------- Debug - remove |
# -------------------------------------------------------------- Debug - remove |
|
|
$->print("<hr><h1>Debugging</h1><hr>\n"); |
$->print("<hr><h1>Debugging</h1><hr>\n"); |
Line 179 ENDHEADER
|
Line 267 ENDHEADER
|
$r->print("$envkey ---- $ENV{$envkey}<br>"); |
$r->print("$envkey ---- $ENV{$envkey}<br>"); |
} |
} |
|
|
|
# ------------------------------------------------------------------- End Debug |
|
|
$r->print("</body></html>\n"); |
$r->print("</body></html>\n"); |
return OK; |
return OK; |
} |
} |