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.12

version 1.5, 2000/09/06 14:25:17	version 1.12, 2000/10/05 19:15:34
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,10/2,10/5 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();

sub handler {	sub handler {

my $r = shift;	my $r = shift;

	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) {
	&Apache::lonuserstate::readmap($where);
	if ($ENV{'form.orgurl'}) {
	$r->internal_redirect($ENV{'form.orgurl'});
	return OK;
	}
	}
	}
	}
	}
	}
	}


	# =============================================================== No Roles Init

$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

# ---------------------------------------------------------------- Print Header
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	<html>
<head>	<head>
<title>LON-CAPA User Roles</title>	<title>LON-CAPA User Roles</title>
</head>	</head><body bgcolor="#FFFFFF">
<body bgcolor="#FFFFFF">
ENDHEADER	ENDHEADER

# ------------------------------------------ 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(	if ($ENV{'user.error.msg'}) {
"$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);	$r->log_reason(
	"$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; }
	}
	}

	# ---------------------------------------------- Get cached course descriptions

	my %cdes=Apache::lonnet::dump('coursedescriptions');

	# -------------------------------------------------------- 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 107 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="'.(($fn)?$fn:$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 163 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 173 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 193 ENDHEADER
}	}
my $ttype;	my $ttype;
my $twhere;	my $twhere;
my ($tres,$tdom,@trest)=split(/\//,$where);	my ($tdom,$trest)=
if ($where=~/\.course$/) {	split(/\//,Apache::lonnet::declutter($where));
	if ($trest) {
$ttype='Course';	$ttype='Course';
$twhere=$tdom.'/'.join('/',@trest);	my $tcourseid=$tdom.'/'.$trest;
	if ($cdes{$tcourseid}) {
	$twhere=$cdes{$tcourseid};
	} else {
	my %newhash=Apache::lonnet::coursedescription($tcourseid);
	if (%newhash) {
	$twhere=$newhash{'description'};
	} else {
	$twhere='Currently not available';
	}
	$cdes{$tcourseid}=$twhere;
	}
} elsif ($tdom) {	} elsif ($tdom) {
$ttype='Domain';	$ttype='Domain';
$twhere=$tdom;	$twhere=$tdom;
} else {	} else {
$ttype='System';	$ttype='System';
$twhere='/';	$twhere='system wide';
}	}

$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 237 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 247 ENDHEADER
my $where=join('.',@pwhere);	my $where=join('.',@pwhere);
my $ttype;	my $ttype;
my $twhere;	my $twhere;
my ($tres,$tdom,@trest)=split(/\//,$where);	my ($tdom,$trest)=
if ($where=~/\.course$/) {	split(/\//,Apache::lonnet::declutter($where));
	if ($trest) {
$ttype='Course';	$ttype='Course';
$twhere=$tdom.'/'.join('/',@trest);	$twhere=$cdes{$tdom.'/'.$trest};
} elsif ($tdom) {	} elsif ($tdom) {
$ttype='Domain';	$ttype='Domain';
$twhere=$tdom;	$twhere=$tdom;
Line 170 ENDHEADER	Line 281 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 290 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.12