loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.236, 2002/06/05 20:40:10	version 1.237, 2002/06/14 20:47:45
Line 1684 sub allowed {	Line 1684 sub allowed {

if ($thisallowed=~/C/) {	if ($thisallowed=~/C/) {
my $rolecode=(split(/\./,$ENV{'request.role'}))[0];	my $rolecode=(split(/\./,$ENV{'request.role'}))[0];
	my $unamedom=$ENV{'user.name'}.':'.$ENV{'user.domain'};
if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$priv.'.roles.denied'}	if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$priv.'.roles.denied'}
=~/$rolecode/) {	=~/$rolecode/) {
&log($ENV{'user.domain'},$ENV{'user.name'},$ENV{'user.host'},	&log($ENV{'user.domain'},$ENV{'user.name'},$ENV{'user.host'},
Line 1691 sub allowed {	Line 1692 sub allowed {
$ENV{'request.course.id'});	$ENV{'request.course.id'});
return '';	return '';
}	}

	if ($ENV{'course.'.$ENV{'request.course.id'}.'.'.$priv.'.users.denied'}
	=~/$unamedom/) {
	&log($ENV{'user.domain'},$ENV{'user.name'},$ENV{'user.host'},
	'Denied by user: '.$priv.' for '.$uri.' as '.$unamedom.' in '.
	$ENV{'request.course.id'});
	return '';
	}
}	}

# Resource preferences	# Resource preferences