loncom/auth/lonroles.pm - diff

Return to lonroles.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonroles.pm between versions 1.5 and 1.6

version 1.5, 2000/09/06 14:25:17	version 1.6, 2000/09/29 14:36:30
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 Gerd Kortemeyer
#	#
package Apache::lonroles;	package Apache::lonroles;

Line 28 sub handler {	Line 28 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);

	if ($where=~/\.course$/) {
	# $r->print(
	# &Apache::lonuserstate::readmap('/res/msu/korte/foo.course','phy231',$fn).
	}

	$r->print("Yeah!");

	}
	}
	}
	}

	$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 99 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 155 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 165 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 185 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 197 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 217 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 227 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 260 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 269 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;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.5
changed lines
	Added in v.1.6