loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1168 and 1.1190

version 1.1168, 2012/05/18 15:31:40	version 1.1190, 2012/09/04 20:48:05
Line 75 use LWP::UserAgent();	Line 75 use LWP::UserAgent();
use HTTP::Date;	use HTTP::Date;
use Image::Magick;	use Image::Magick;


	use Encode;

use vars qw(%perlvar %spareid %pr %prp $memcache %packagetab $tmpdir	use vars qw(%perlvar %spareid %pr %prp $memcache %packagetab $tmpdir
$_64bit %env %protocol %loncaparevs %serverhomeIDs %needsrelease	$_64bit %env %protocol %loncaparevs %serverhomeIDs %needsrelease
%managerstab);	%managerstab);
Line 110 our @ISA = qw (Exporter);	Line 113 our @ISA = qw (Exporter);
our @EXPORT = qw(%env);	our @EXPORT = qw(%env);


# --------------------------------------------------------------------- Logging	# ------------------------------------ Logging (parameters, docs, slots, roles)
{	{
my $logid;	my $logid;
sub instructor_log {	sub write_log {
my ($hash_name,$storehash,$delflag,$uname,$udom,$cnum,$cdom)=@_;	my ($context,$hash_name,$storehash,$delflag,$uname,$udom,$cnum,$cdom)=@_;
if (($cnum eq '') \|\| ($cdom eq '')) {	if ($context eq 'course') {
$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	if (($cnum eq '') \|\| ($cdom eq '')) {
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	}
}	}
$logid++;	$logid ++;
my $now = time();	my $now = time();
my $id=$now.'00000'.$$.'00000'.$logid;	my $id=$now.'00000'.$$.'00000'.$logid;
return &Apache::lonnet::put('nohist_'.$hash_name,	my $logentry = {
{ $id => {	$id => {
'exe_uname' => $env{'user.name'},	'exe_uname' => $env{'user.name'},
'exe_udom' => $env{'user.domain'},	'exe_udom' => $env{'user.domain'},
'exe_time' => $now,	'exe_time' => $now,
'exe_ip' => $ENV{'REMOTE_ADDR'},	'exe_ip' => $ENV{'REMOTE_ADDR'},
'delflag' => $delflag,	'delflag' => $delflag,
'logentry' => $storehash,	'logentry' => $storehash,
'uname' => $uname,	'uname' => $uname,
'udom' => $udom,	'udom' => $udom,
}	}
},$cdom,$cnum);	};
	return &put('nohist_'.$hash_name,$logentry,$cdom,$cnum);
}	}
}	}

Line 1237 sub check_loadbalancing {	Line 1243 sub check_loadbalancing {
my ($is_balancer,$dom_in_use,$homeintdom,$rule_in_effect,	my ($is_balancer,$dom_in_use,$homeintdom,$rule_in_effect,
$offloadto,$otherserver);	$offloadto,$otherserver);
my $lonhost = $perlvar{'lonHostID'};	my $lonhost = $perlvar{'lonHostID'};
	my @hosts = &current_machine_ids();
my $uprimary_id = &Apache::lonnet::domain($udom,'primary');	my $uprimary_id = &Apache::lonnet::domain($udom,'primary');
my $uintdom = &Apache::lonnet::internet_dom($uprimary_id);	my $uintdom = &Apache::lonnet::internet_dom($uprimary_id);
my $intdom = &Apache::lonnet::internet_dom($lonhost);	my $intdom = &Apache::lonnet::internet_dom($lonhost);
Line 1263 sub check_loadbalancing {	Line 1270 sub check_loadbalancing {
my $currtargets = $result->{'targets'};	my $currtargets = $result->{'targets'};
my $currrules = $result->{'rules'};	my $currrules = $result->{'rules'};
if ($currbalancer ne '') {	if ($currbalancer ne '') {
my @hosts = &current_machine_ids();
if (grep(/^\Q$currbalancer\E$/,@hosts)) {	if (grep(/^\Q$currbalancer\E$/,@hosts)) {
$is_balancer = 1;	$is_balancer = 1;
}	}
Line 1351 sub check_loadbalancing {	Line 1357 sub check_loadbalancing {
$offloadto = &this_host_spares($dom_in_use);	$offloadto = &this_host_spares($dom_in_use);
}	}
}	}
my $lowest_load = 30000;	if ($is_balancer) {
if (ref($offloadto) eq 'HASH') {	my $lowest_load = 30000;
if (ref($offloadto->{'primary'}) eq 'ARRAY') {	if (ref($offloadto) eq 'HASH') {
foreach my $try_server (@{$offloadto->{'primary'}}) {	if (ref($offloadto->{'primary'}) eq 'ARRAY') {
($otherserver,$lowest_load) =	foreach my $try_server (@{$offloadto->{'primary'}}) {
&compare_server_load($try_server,$otherserver,$lowest_load);	($otherserver,$lowest_load) =
	&compare_server_load($try_server,$otherserver,$lowest_load);
	}
}	}
}	my $found_server = ($otherserver ne '' && $lowest_load < 100);
my $found_server = ($otherserver ne '' && $lowest_load < 100);

if (!$found_server) {	if (!$found_server) {
if (ref($offloadto->{'default'}) eq 'ARRAY') {	if (ref($offloadto->{'default'}) eq 'ARRAY') {
foreach my $try_server (@{$offloadto->{'default'}}) {	foreach my $try_server (@{$offloadto->{'default'}}) {
	($otherserver,$lowest_load) =
	&compare_server_load($try_server,$otherserver,$lowest_load);
	}
	}
	}
	} elsif (ref($offloadto) eq 'ARRAY') {
	if (@{$offloadto} == 1) {
	$otherserver = $offloadto->[0];
	} elsif (@{$offloadto} > 1) {
	foreach my $try_server (@{$offloadto}) {
($otherserver,$lowest_load) =	($otherserver,$lowest_load) =
&compare_server_load($try_server,$otherserver,$lowest_load);	&compare_server_load($try_server,$otherserver,$lowest_load);
}	}
}	}
}	}
} elsif (ref($offloadto) eq 'ARRAY') {	if (($otherserver ne '') && (grep(/^\Q$otherserver\E$/,@hosts))) {
if (@{$offloadto} == 1) {	$is_balancer = 0;
$otherserver = $offloadto->[0];	if ($uname ne '' && $udom ne '') {
} elsif (@{$offloadto} > 1) {	if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {
foreach my $try_server (@{$offloadto}) {
($otherserver,$lowest_load) =	&appenv({'user.loadbalexempt' => $lonhost,
&compare_server_load($try_server,$otherserver,$lowest_load);	'user.loadbalcheck.time' => time});
	}
}	}
}	}
}	}
Line 1385 sub check_loadbalancing {	Line 1403 sub check_loadbalancing {
sub get_loadbalancer_targets {	sub get_loadbalancer_targets {
my ($rule_in_effect,$currtargets,$uname,$udom) = @_;	my ($rule_in_effect,$currtargets,$uname,$udom) = @_;
my $offloadto;	my $offloadto;
if ($rule_in_effect eq '') {	if ($rule_in_effect eq 'none') {
	return [$perlvar{'lonHostID'}];
	} elsif ($rule_in_effect eq '') {
$offloadto = $currtargets;	$offloadto = $currtargets;
} else {	} else {
if ($rule_in_effect eq 'homeserver') {	if ($rule_in_effect eq 'homeserver') {
Line 1403 sub get_loadbalancer_targets {	Line 1423 sub get_loadbalancer_targets {
}	}
}	}
} else {	} else {
my %servers = &dom_servers($udom);	my %servers = &internet_dom_servers($udom);
my ($remotebalancer,$remotetargets) = &get_lonbalancer_config(\%servers);	my ($remotebalancer,$remotetargets) = &get_lonbalancer_config(\%servers);
if (&hostname($remotebalancer) ne '') {	if (&hostname($remotebalancer) ne '') {
$offloadto = [$remotebalancer];	$offloadto = [$remotebalancer];
Line 1922 sub get_domain_defaults {	Line 1942 sub get_domain_defaults {
my %domconfig =	my %domconfig =
&Apache::lonnet::get_dom('configuration',['defaults','quotas',	&Apache::lonnet::get_dom('configuration',['defaults','quotas',
'requestcourses','inststatus',	'requestcourses','inststatus',
'coursedefaults','usersessions'],$domain);	'coursedefaults','usersessions',
	'requestauthor'],$domain);
if (ref($domconfig{'defaults'}) eq 'HASH') {	if (ref($domconfig{'defaults'}) eq 'HASH') {
$domdefaults{'lang_def'} = $domconfig{'defaults'}{'lang_def'};	$domdefaults{'lang_def'} = $domconfig{'defaults'}{'lang_def'};
$domdefaults{'auth_def'} = $domconfig{'defaults'}{'auth_def'};	$domdefaults{'auth_def'} = $domconfig{'defaults'}{'auth_def'};
Line 1941 sub get_domain_defaults {	Line 1962 sub get_domain_defaults {
} else {	} else {
$domdefaults{'defaultquota'} = $domconfig{'quotas'};	$domdefaults{'defaultquota'} = $domconfig{'quotas'};
}	}
my @usertools = ('aboutme','blog','portfolio');	my @usertools = ('aboutme','blog','webdav','portfolio');
foreach my $item (@usertools) {	foreach my $item (@usertools) {
if (ref($domconfig{'quotas'}{$item}) eq 'HASH') {	if (ref($domconfig{'quotas'}{$item}) eq 'HASH') {
$domdefaults{$item} = $domconfig{'quotas'}{$item};	$domdefaults{$item} = $domconfig{'quotas'}{$item};
Line 1953 sub get_domain_defaults {	Line 1974 sub get_domain_defaults {
$domdefaults{$item} = $domconfig{'requestcourses'}{$item};	$domdefaults{$item} = $domconfig{'requestcourses'}{$item};
}	}
}	}
	if (ref($domconfig{'requestauthor'}) eq 'HASH') {
	$domdefaults{'requestauthor'} = $domconfig{'requestauthor'};
	}
if (ref($domconfig{'inststatus'}) eq 'HASH') {	if (ref($domconfig{'inststatus'}) eq 'HASH') {
foreach my $item ('inststatustypes','inststatusorder') {	foreach my $item ('inststatustypes','inststatusorder') {
$domdefaults{$item} = $domconfig{'inststatus'}{$item};	$domdefaults{$item} = $domconfig{'inststatus'}{$item};
Line 2382 sub chatsend {	Line 2406 sub chatsend {

sub getversion {	sub getversion {
my $fname=&clutter(shift);	my $fname=&clutter(shift);
unless ($fname=~/^\/res\//) { return -1; }	unless ($fname=~m{^(/adm/wrapper\|)/res/}) { return -1; }
return &currentversion(&filelocation('',$fname));	return &currentversion(&filelocation('',$fname));
}	}

Line 2568 sub ssi {	Line 2592 sub ssi {
}	}

$request->header(Cookie => $ENV{'HTTP_COOKIE'});	$request->header(Cookie => $ENV{'HTTP_COOKIE'});
my $response=$ua->request($request);	my $response= $ua->request($request);
	my $content = $response->content;


if (wantarray) {	if (wantarray) {
return ($response->content, $response);	return ($content, $response);
} else {	} else {
return $response->content;	return $content;
}	}
}	}

Line 3490 sub statslog {	Line 3516 sub statslog {

sub userrolelog {	sub userrolelog {
my ($trole,$username,$domain,$area,$tstart,$tend)=@_;	my ($trole,$username,$domain,$area,$tstart,$tend)=@_;
if (($trole=~/^ca/) \|\| ($trole=~/^aa/) \|\|	if ( $trole =~ /^(ca\|aa\|in\|cc\|ep\|cr\|ta\|co)/ ) {
($trole=~/^in/) \|\| ($trole=~/^cc/) \|\|
($trole=~/^ep/) \|\| ($trole=~/^cr/) \|\|
($trole=~/^ta/) \|\| ($trole=~/^co/)) {
my (undef,$rudom,$runame,$rsec)=split(/\//,$area);	my (undef,$rudom,$runame,$rsec)=split(/\//,$area);
$userrolehash	$userrolehash
{$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}	{$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}
=$tend.':'.$tstart;	=$tend.':'.$tstart;
}	}
if (($env{'request.role'} =~ /dc\./) &&	if ($env{'request.role'} =~ /dc\./ && $trole =~ /^(au\|in\|cc\|ep\|cr\|ta\|co)/) {
(($trole=~/^au/) \|\| ($trole=~/^in/) \|\|
($trole=~/^cc/) \|\| ($trole=~/^ep/) \|\|
($trole=~/^cr/) \|\| ($trole=~/^ta/) \|\|
($trole=~/^co/))) {
$userrolehash	$userrolehash
{$trole.':'.$username.':'.$domain.':'.$env{'user.name'}.':'.$env{'user.domain'}.':'}	{$trole.':'.$username.':'.$domain.':'.$env{'user.name'}.':'.$env{'user.domain'}.':'}
=$tend.':'.$tstart;	=$tend.':'.$tstart;
}	}
if (($trole=~/^dc/) \|\| ($trole=~/^ad/) \|\|	if ($trole =~ /^(dc\|ad\|li\|au\|dg\|sc)/ ) {
($trole=~/^li/) \|\| ($trole=~/^li/) \|\|
($trole=~/^au/) \|\| ($trole=~/^dg/) \|\|
($trole=~/^sc/)) {
my (undef,$rudom,$runame,$rsec)=split(/\//,$area);	my (undef,$rudom,$runame,$rsec)=split(/\//,$area);
$domainrolehash	$domainrolehash
{$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}	{$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}
Line 3521 sub userrolelog {	Line 3537 sub userrolelog {

sub courserolelog {	sub courserolelog {
my ($trole,$username,$domain,$area,$tstart,$tend,$delflag,$selfenroll,$context)=@_;	my ($trole,$username,$domain,$area,$tstart,$tend,$delflag,$selfenroll,$context)=@_;
if (($trole eq 'cc') \|\| ($trole eq 'in') \|\|	if ($area =~ m-^/($match_domain)/($match_courseid)/?([^/]*)-) {
($trole eq 'ep') \|\| ($trole eq 'ad') \|\|	my $cdom = $1;
($trole eq 'ta') \|\| ($trole eq 'st') \|\|	my $cnum = $2;
($trole=~/^cr/) \|\| ($trole eq 'gr') \|\|	my $sec = $3;
($trole eq 'co')) {	my $namespace = 'rolelog';
if ($area =~ m-^/($match_domain)/($match_courseid)/?([^/]*)-) {	my %storehash = (
my $cdom = $1;	role => $trole,
my $cnum = $2;	start => $tstart,
my $sec = $3;	end => $tend,
my $namespace = 'rolelog';	selfenroll => $selfenroll,
my %storehash = (	context => $context,
role => $trole,	);
start => $tstart,	if ($trole eq 'gr') {
end => $tend,	$namespace = 'groupslog';
selfenroll => $selfenroll,	$storehash{'group'} = $sec;
context => $context,	} else {
);	$storehash{'section'} = $sec;
if ($trole eq 'gr') {	}
$namespace = 'groupslog';	&write_log('course',$namespace,\%storehash,$delflag,$username,
$storehash{'group'} = $sec;	$domain,$cnum,$cdom);
} else {	if (($trole ne 'st') \|\| ($sec ne '')) {
$storehash{'section'} = $sec;	&devalidate_cache_new('getcourseroles',$cdom.'_'.$cnum);
}
&instructor_log($namespace,\%storehash,$delflag,$username,$domain,$cnum,$cdom);
if (($trole ne 'st') \|\| ($sec ne '')) {
&devalidate_cache_new('getcourseroles',$cdom.'_'.$cnum);
}
}	}
}	}
return;	return;
}	}

	sub domainrolelog {
	my ($trole,$username,$domain,$area,$tstart,$tend,$delflag,$context)=@_;
	if ($area =~ m{^/($match_domain)/$}) {
	my $cdom = $1;
	my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);
	my $namespace = 'rolelog';
	my %storehash = (
	role => $trole,
	start => $tstart,
	end => $tend,
	context => $context,
	);
	&write_log('domain',$namespace,\%storehash,$delflag,$username,
	$domain,$domconfiguser,$cdom);
	}
	return;

	}

	sub coauthorrolelog {
	my ($trole,$username,$domain,$area,$tstart,$tend,$delflag,$context)=@_;
	if ($area =~ m{^/($match_domain)/($match_username)$}) {
	my $audom = $1;
	my $auname = $2;
	my $namespace = 'rolelog';
	my %storehash = (
	role => $trole,
	start => $tstart,
	end => $tend,
	context => $context,
	);
	&write_log('author',$namespace,\%storehash,$delflag,$username,
	$domain,$auname,$audom);
	}
	return;
	}

sub get_course_adv_roles {	sub get_course_adv_roles {
my ($cid,$codes) = @_;	my ($cid,$codes) = @_;
$cid=$env{'request.course.id'} unless (defined($cid));	$cid=$env{'request.course.id'} unless (defined($cid));
Line 3665 sub get_my_roles {	Line 3713 sub get_my_roles {
}	}
my ($rolecode,$username,$domain,$section,$area);	my ($rolecode,$username,$domain,$section,$area);
if ($context eq 'userroles') {	if ($context eq 'userroles') {
($area,$rolecode) = split(/_/,$entry);	($area,$rolecode) = ($entry =~ /^(.+)_([^_]+)$/);
(undef,$domain,$username,$section) = split(/\//,$area);	(undef,$domain,$username,$section) = split(/\//,$area);
} else {	} else {
($role,$username,$domain,$section) = split(/\:/,$entry);	($role,$username,$domain,$section) = split(/\:/,$entry);
Line 3816 sub courseiddump {	Line 3864 sub courseiddump {

if (($domfilter eq '') \|\|	if (($domfilter eq '') \|\|
(&host_domain($tryserver) eq $domfilter)) {	(&host_domain($tryserver) eq $domfilter)) {
my $rep =	my $rep;
&reply('courseiddump:'.&host_domain($tryserver).':'.	if (grep { $_ eq $tryserver } current_machine_ids()) {
$sincefilter.':'.&escape($descfilter).':'.	$rep = LONCAPA::Lond::dump_course_id_handler(
&escape($instcodefilter).':'.&escape($ownerfilter).	join(":", (&host_domain($tryserver), $sincefilter,
':'.&escape($coursefilter).':'.&escape($typefilter).	&escape($descfilter), &escape($instcodefilter),
':'.&escape($regexp_ok).':'.$as_hash.':'.	&escape($ownerfilter), &escape($coursefilter),
&escape($selfenrollonly).':'.&escape($catfilter).':'.	&escape($typefilter), &escape($regexp_ok),
$showhidden.':'.$caller.':'.&escape($cloner).':'.	$as_hash, &escape($selfenrollonly),
&escape($cc_clone).':'.$cloneonly.':'.	&escape($catfilter), $showhidden, $caller,
&escape($createdbefore).':'.&escape($createdafter).':'.	&escape($cloner), &escape($cc_clone), $cloneonly,
&escape($creationcontext).':'.$domcloner,	&escape($createdbefore), &escape($createdafter),
$tryserver);	&escape($creationcontext), $domcloner)));
	} else {
	$rep = &reply('courseiddump:'.&host_domain($tryserver).':'.
	$sincefilter.':'.&escape($descfilter).':'.
	&escape($instcodefilter).':'.&escape($ownerfilter).
	':'.&escape($coursefilter).':'.&escape($typefilter).
	':'.&escape($regexp_ok).':'.$as_hash.':'.
	&escape($selfenrollonly).':'.&escape($catfilter).':'.
	$showhidden.':'.$caller.':'.&escape($cloner).':'.
	&escape($cc_clone).':'.$cloneonly.':'.
	&escape($createdbefore).':'.&escape($createdafter).':'.
	&escape($creationcontext).':'.$domcloner,
	$tryserver);
	}

my @pairs=split(/\&/,$rep);	my @pairs=split(/\&/,$rep);
foreach my $item (@pairs) {	foreach my $item (@pairs) {
my ($key,$value)=split(/\=/,$item,2);	my ($key,$value)=split(/\=/,$item,2);
Line 3969 my $cachedtime=();	Line 4031 my $cachedtime=();
sub load_all_first_access {	sub load_all_first_access {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
if (($cachedkey eq $uname.':'.$udom) &&	if (($cachedkey eq $uname.':'.$udom) &&
(abs($cachedtime-time)<5)) {	(abs($cachedtime-time)<5) && (!$env{'form.markaccess'})) {
return;	return;
}	}
$cachedtime=time;	$cachedtime=time;
Line 4613 sub update_released_required {	Line 4675 sub update_released_required {

sub privileged {	sub privileged {
my ($username,$domain)=@_;	my ($username,$domain)=@_;
my $rolesdump=&reply("dump:$domain:$username:roles",
&homeserver($username,$domain));	my %rolesdump = &dump("roles", $domain, $username) or return 0;
if (($rolesdump eq 'con_lost') \|\| ($rolesdump eq '') \|\|	my $now = time;
($rolesdump =~ /^error:/)) {
return 0;	for my $role (@rolesdump{grep { ! /^rolesdef_/ } keys %rolesdump}) {
}	my ($trole, $tend, $tstart) = split(/_/, $role);
my $now=time;	if (($trole eq 'dc') \|\| ($trole eq 'su')) {
if ($rolesdump ne '') {	return 1 unless ($tend && $tend < $now)
foreach my $entry (split(/&/,$rolesdump)) {	or ($tstart && $tstart > $now);
if ($entry!~/^rolesdef_/) {	}
my ($area,$role)=split(/=/,$entry);
$area=~s/\_\w\w$//;
my ($trole,$tend,$tstart)=split(/_/,$role);
if (($trole eq 'dc') \|\| ($trole eq 'su')) {
my $active=1;
if ($tend) {
if ($tend<$now) { $active=0; }
}
if ($tstart) {
if ($tstart>$now) { $active=0; }
}
if ($active) { return 1; }
}
}
}	}
}
return 0;	return 0;
}	}

# -------------------------------------------------------- Get user privileges	# -------------------------------------------------------- Get user privileges

sub rolesinit {	sub rolesinit {
my ($domain,$username,$authhost)=@_;	my ($domain, $username) = @_;
my $now=time;	my %userroles = ('user.login.time' => time);
my %userroles = ('user.login.time' => $now);	my %rolesdump = &dump("roles", $domain, $username) or return \%userroles;
my $rolesdump=reply("dump:$domain:$username:roles",$authhost);
if (($rolesdump eq 'con_lost') \|\| ($rolesdump eq '') \|\|	# firstaccess and timerinterval are related to timed maps/resources.
($rolesdump =~ /^error:/)) {	# also, blocking can be triggered by an activating timer
return \%userroles;	# it's saved in the user's %env.
}	my %firstaccess = &dump('firstaccesstimes', $domain, $username);
my %firstaccess = &dump('firstaccesstimes',$domain,$username);	my %timerinterval = &dump('timerinterval', $domain, $username);
my %timerinterval = &dump('timerinterval',$domain,$username);	my (%coursetimerstarts, %firstaccchk, %firstaccenv, %coursetimerintervals,
my (%coursetimerstarts,%firstaccchk,%firstaccenv,	%timerintchk, %timerintenv);
%coursetimerintervals,%timerintchk,%timerintenv);
foreach my $key (keys(%firstaccess)) {	foreach my $key (keys(%firstaccess)) {
my ($cid,$rest) = split(/\0/,$key);	my ($cid, $rest) = split(/\0/, $key);
$coursetimerstarts{$cid}{$rest} = $firstaccess{$key};	$coursetimerstarts{$cid}{$rest} = $firstaccess{$key};
}	}

foreach my $key (keys(%timerinterval)) {	foreach my $key (keys(%timerinterval)) {
my ($cid,$rest) = split(/\0/,$key);	my ($cid,$rest) = split(/\0/,$key);
$coursetimerintervals{$cid}{$rest} = $timerinterval{$key};	$coursetimerintervals{$cid}{$rest} = $timerinterval{$key};
}	}

my %allroles=();	my %allroles=();
my %allgroups=();	my %allgroups=();

if ($rolesdump ne '') {	for my $area (grep { ! /^rolesdef_/ } keys %rolesdump) {
foreach my $entry (split(/&/,$rolesdump)) {	my $role = $rolesdump{$area};
if ($entry!~/^rolesdef_/) {	$area =~ s/\_\w\w$//;
my ($area,$role)=split(/=/,$entry);
$area=~s/\_\w\w$//;	my ($trole, $tend, $tstart, $group_privs);
my ($trole,$tend,$tstart,$group_privs);
if ($role=~/^cr/) {	if ($role =~ /^cr/) {
# Custom role, defined by a user	# Custom role, defined by a user
# e.g., user.role.cr/msu/smith/mynewrole	# e.g., user.role.cr/msu/smith/mynewrole
if ($role=~m\|^(cr/$match_domain/$match_username/[a-zA-Z0-9]+)_(.*)$\|) {	if ($role =~ m\|^(cr/$match_domain/$match_username/[a-zA-Z0-9]+)_(.*)$\|) {
($trole,my $trest)=($role=~m\|^(cr/$match_domain/$match_username/[a-zA-Z0-9]+)_(.*)$\|);	$trole = $1;
($tend,$tstart)=split('_',$trest);	($tend, $tstart) = split('_', $2);
} else {	} else {
$trole=$role;	$trole = $role;
}	}
} elsif ($role =~ m\|^gr/\|) {	} elsif ($role =~ m\|^gr/\|) {
# Role of member in a group, defined within a course/community	# Role of member in a group, defined within a course/community
# e.g., user.role.gr/msu/04935610a19ee4a5fmsul1/leopards	# e.g., user.role.gr/msu/04935610a19ee4a5fmsul1/leopards
($trole,$tend,$tstart) = split(/_/,$role);	($trole, $tend, $tstart) = split(/_/, $role);
next if ($tstart eq '-1');	next if $tstart eq '-1';
($trole,$group_privs) = split(/\//,$trole);	($trole, $group_privs) = split(/\//, $trole);
$group_privs = &unescape($group_privs);	$group_privs = &unescape($group_privs);
} else {	} else {
# Just a normal role, defined in roles.tab	# Just a normal role, defined in roles.tab
($trole,$tend,$tstart)=split(/_/,$role);	($trole, $tend, $tstart) = split(/_/,$role);
}	}
my %new_role = &set_arearole($trole,$area,$tstart,$tend,$domain,
$username);	my %new_role = &set_arearole($trole,$area,$tstart,$tend,$domain,
@userroles{keys(%new_role)} = @new_role{keys(%new_role)};	$username);
if (($tend!=0) && ($tend<$now)) { $trole=''; }	@userroles{keys(%new_role)} = @new_role{keys(%new_role)};
if (($tstart!=0) && ($tstart>$now)) { $trole=''; }
if (($area ne '') && ($trole ne '')) {	# role expired or not available yet?
my $spec=$trole.'.'.$area;	$trole = '' if ($tend != 0 && $tend < $userroles{'user.login.time'}) or
my ($tdummy,$tdomain,$trest)=split(/\//,$area);	($tstart != 0 && $tstart > $userroles{'user.login.time'});
if ($trole =~ /^cr\//) {
# Custom role, defined by a user	next if $area eq '' or $trole eq '';
&custom_roleprivs(\%allroles,$trole,$tdomain,$trest,$spec,$area);
} elsif ($trole eq 'gr') {	my $spec = "$trole.$area";
# Role of a member in a group, defined within a course/community	my ($tdummy, $tdomain, $trest) = split(/\//, $area);
&group_roleprivs(\%allgroups,$area,$group_privs,$tend,$tstart);
} else {	if ($trole =~ /^cr\//) {
# Normal role, defined in roles.tab	# Custom role, defined by a user
&standard_roleprivs(\%allroles,$trole,$tdomain,$spec,$trest,$area);	&custom_roleprivs(\%allroles,$trole,$tdomain,$trest,$spec,$area);
}	} elsif ($trole eq 'gr') {
if ($trole ne 'gr') {	# Role of a member in a group, defined within a course/community
my $cid = $tdomain.'_'.$trest;	&group_roleprivs(\%allgroups,$area,$group_privs,$tend,$tstart);
unless ($firstaccchk{$cid}) {	next;
if (ref($coursetimerstarts{$cid}) eq 'HASH') {	} else {
foreach my $item (keys(%{$coursetimerstarts{$cid}})) {	# Normal role, defined in roles.tab
$firstaccenv{'course.'.$cid.'.firstaccess.'.$item} =	&standard_roleprivs(\%allroles,$trole,$tdomain,$spec,$trest,$area);
$coursetimerstarts{$cid}{$item};	}
}
}	my $cid = $tdomain.'_'.$trest;
$firstaccchk{$cid} = 1;	unless ($firstaccchk{$cid}) {
}	if (ref($coursetimerstarts{$cid}) eq 'HASH') {
unless ($timerintchk{$cid}) {	foreach my $item (keys(%{$coursetimerstarts{$cid}})) {
if (ref($coursetimerintervals{$cid}) eq 'HASH') {	$firstaccenv{'course.'.$cid.'.firstaccess.'.$item} =
foreach my $item (keys(%{$coursetimerintervals{$cid}})) {	$coursetimerstarts{$cid}{$item};
$timerintenv{'course.'.$cid.'.timerinterval.'.$item} =
$coursetimerintervals{$cid}{$item};
}
}
$timerintchk{$cid} = 1;
}
}	}
}	}
}	$firstaccchk{$cid} = 1;
	}
	unless ($timerintchk{$cid}) {
	if (ref($coursetimerintervals{$cid}) eq 'HASH') {
	foreach my $item (keys(%{$coursetimerintervals{$cid}})) {
	$timerintenv{'course.'.$cid.'.timerinterval.'.$item} =
	$coursetimerintervals{$cid}{$item};
	}
	}
	$timerintchk{$cid} = 1;
}	}
my ($author,$adv) = &set_userprivs(\%userroles,\%allroles,\%allgroups);
$userroles{'user.adv'} = $adv;
$userroles{'user.author'} = $author;
$env{'user.adv'}=$adv;
}	}

	@userroles{'user.author', 'user.adv'} = &set_userprivs(\%userroles,
	\%allroles, \%allgroups);
	$env{'user.adv'} = $userroles{'user.adv'};

return (\%userroles,\%firstaccenv,\%timerintenv);	return (\%userroles,\%firstaccenv,\%timerintenv);
}	}

Line 4995 sub delete_env_groupprivs {	Line 5049 sub delete_env_groupprivs {
sub check_adhoc_privs {	sub check_adhoc_privs {
my ($cdom,$cnum,$update,$refresh,$now,$checkrole,$caller) = @_;	my ($cdom,$cnum,$update,$refresh,$now,$checkrole,$caller) = @_;
my $cckey = 'user.role.'.$checkrole.'./'.$cdom.'/'.$cnum;	my $cckey = 'user.role.'.$checkrole.'./'.$cdom.'/'.$cnum;
	my $setprivs;
if ($env{$cckey}) {	if ($env{$cckey}) {
my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend);	my ($role,$where,$trolecode,$tstart,$tend,$tremark,$tstatus,$tpstart,$tpend);
&role_status($cckey,$update,$refresh,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);	&role_status($cckey,$update,$refresh,$now,\$role,\$where,\$trolecode,\$tstatus,\$tstart,\$tend);
unless (($tstatus eq 'is') \|\| ($tstatus eq 'will_not')) {	unless (($tstatus eq 'is') \|\| ($tstatus eq 'will_not')) {
&set_adhoc_privileges($cdom,$cnum,$checkrole,$caller);	&set_adhoc_privileges($cdom,$cnum,$checkrole,$caller);
	$setprivs = 1;
}	}
} else {	} else {
&set_adhoc_privileges($cdom,$cnum,$checkrole,$caller);	&set_adhoc_privileges($cdom,$cnum,$checkrole,$caller);
	$setprivs = 1;
}	}
	return $setprivs;
}	}

sub set_adhoc_privileges {	sub set_adhoc_privileges {
Line 5075 sub del {	Line 5133 sub del {

# -------------------------------------------------------------- dump interface	# -------------------------------------------------------------- dump interface

	sub unserialize {
	my ($rep, $escapedkeys) = @_;

	return {} if $rep =~ /^error/;

	my %returnhash=();
	foreach my $item (split /\&/, $rep) {
	my ($key, $value) = split(/=/, $item, 2);
	$key = unescape($key) unless $escapedkeys;
	next if $key =~ /^error: 2 /;
	$returnhash{$key} = Apache::lonnet::thaw_unescape($value);
	}
	#return %returnhash;
	return \%returnhash;
	}

	# see Lond::dump_with_regexp
	# if $escapedkeys hash keys won't get unescaped.
sub dump {	sub dump {
my ($namespace,$udomain,$uname,$regexp,$range)=@_;	my ($namespace,$udomain,$uname,$regexp,$range,$escapedkeys)=@_;
if (!$udomain) { $udomain=$env{'user.domain'}; }	if (!$udomain) { $udomain=$env{'user.domain'}; }
if (!$uname) { $uname=$env{'user.name'}; }	if (!$uname) { $uname=$env{'user.name'}; }
my $uhome=&homeserver($uname,$udomain);	my $uhome=&homeserver($uname,$udomain);

	my $reply;
	if (grep { $_ eq $uhome } current_machine_ids()) {
	# user is hosted on this machine
	$reply = LONCAPA::Lond::dump_with_regexp(join(":", ($udomain,
	$uname, $namespace, $regexp, $range)), $loncaparevs{$uhome});
	return %{unserialize($reply, $escapedkeys)};
	}
if ($regexp) {	if ($regexp) {
$regexp=&escape($regexp);	$regexp=&escape($regexp);
} else {	} else {
Line 5092 sub dump {	Line 5175 sub dump {
if (!($rep =~ /^error/ )) {	if (!($rep =~ /^error/ )) {
foreach my $item (@pairs) {	foreach my $item (@pairs) {
my ($key,$value)=split(/=/,$item,2);	my ($key,$value)=split(/=/,$item,2);
$key = &unescape($key);	$key = unescape($key) unless $escapedkeys;
	#$key = &unescape($key);
next if ($key =~ /^error: 2 /);	next if ($key =~ /^error: 2 /);
$returnhash{$key}=&thaw_unescape($value);	$returnhash{$key}=&thaw_unescape($value);
}	}
Line 5105 sub dump {	Line 5189 sub dump {

sub dumpstore {	sub dumpstore {
my ($namespace,$udomain,$uname,$regexp,$range)=@_;	my ($namespace,$udomain,$uname,$regexp,$range)=@_;
if (!$udomain) { $udomain=$env{'user.domain'}; }	# same as dump but keys must be escaped. They may contain colon separated
if (!$uname) { $uname=$env{'user.name'}; }	# lists of values that may themself contain colons (e.g. symbs).
my $uhome=&homeserver($uname,$udomain);	return &dump($namespace, $udomain, $uname, $regexp, $range, 1);
if ($regexp) {
$regexp=&escape($regexp);
} else {
$regexp='.';
}
my $rep=&reply("dump:$udomain:$uname:$namespace:$regexp:$range",$uhome);
my @pairs=split(/\&/,$rep);
my %returnhash=();
foreach my $item (@pairs) {
my ($key,$value)=split(/=/,$item,2);
next if ($key =~ /^error: 2 /);
$returnhash{$key}=&thaw_unescape($value);
}
return %returnhash;
}	}

# -------------------------------------------------------------- keys interface	# -------------------------------------------------------------- keys interface
Line 5147 sub currentdump {	Line 5217 sub currentdump {
$sdom = $env{'user.domain'} if (! defined($sdom));	$sdom = $env{'user.domain'} if (! defined($sdom));
$sname = $env{'user.name'} if (! defined($sname));	$sname = $env{'user.name'} if (! defined($sname));
my $uhome = &homeserver($sname,$sdom);	my $uhome = &homeserver($sname,$sdom);
my $rep=reply('currentdump:'.$sdom.':'.$sname.':'.$courseid,$uhome);	my $rep;

	if (grep { $_ eq $uhome } current_machine_ids()) {
	$rep = LONCAPA::Lond::dump_profile_database(join(":", ($sdom, $sname,
	$courseid)));
	} else {
	$rep = reply('currentdump:'.$sdom.':'.$sname.':'.$courseid,$uhome);
	}

return if ($rep =~ /^(error:\|no_such_host)/);	return if ($rep =~ /^(error:\|no_such_host)/);
#	#
my %returnhash=();	my %returnhash=();
Line 5645 sub usertools_access {	Line 5723 sub usertools_access {
unofficial => 1,	unofficial => 1,
community => 1,	community => 1,
);	);
	} elsif ($context eq 'requestauthor') {
	%tools = (
	requestauthor => 1,
	);
} else {	} else {
%tools = (	%tools = (
aboutme => 1,	aboutme => 1,
blog => 1,	blog => 1,
	webdav => 1,
portfolio => 1,	portfolio => 1,
);	);
}	}
Line 5663 sub usertools_access {	Line 5746 sub usertools_access {
if ($action ne 'reload') {	if ($action ne 'reload') {
if ($context eq 'requestcourses') {	if ($context eq 'requestcourses') {
return $env{'environment.canrequest.'.$tool};	return $env{'environment.canrequest.'.$tool};
	} elsif ($context eq 'requestauthor') {
	return $env{'environment.canrequest.author'};
} else {	} else {
return $env{'environment.availabletools.'.$tool};	return $env{'environment.availabletools.'.$tool};
}	}
}	}
}	}

my ($toolstatus,$inststatus);	my ($toolstatus,$inststatus,$envkey);
	if ($context eq 'requestauthor') {
	$envkey = $context;
	} else {
	$envkey = $context.'.'.$tool;
	}

if (($udom eq $env{'user.domain'}) && ($uname eq $env{'user.name'}) &&	if (($udom eq $env{'user.domain'}) && ($uname eq $env{'user.name'}) &&
($action ne 'reload')) {	($action ne 'reload')) {
$toolstatus = $env{'environment.'.$context.'.'.$tool};	$toolstatus = $env{'environment.'.$envkey};
$inststatus = $env{'environment.inststatus'};	$inststatus = $env{'environment.inststatus'};
} else {	} else {
if (ref($userenvref) eq 'HASH') {	if (ref($userenvref) eq 'HASH') {
$toolstatus = $userenvref->{$context.'.'.$tool};	$toolstatus = $userenvref->{$envkey};
$inststatus = $userenvref->{'inststatus'};	$inststatus = $userenvref->{'inststatus'};
} else {	} else {
my %userenv = &userenvironment($udom,$uname,$context.'.'.$tool,'inststatus');	my %userenv = &userenvironment($udom,$uname,$envkey,'inststatus');
$toolstatus = $userenv{$context.'.'.$tool};	$toolstatus = $userenv{$envkey};
$inststatus = $userenv{'inststatus'};	$inststatus = $userenv{'inststatus'};
}	}
}	}
Line 5747 sub usertools_access {	Line 5837 sub usertools_access {
}	}
}	}
} else {	} else {
if ($context eq 'tools') {	if (($context eq 'tools') && ($tool ne 'webdav')) {
$access = 1;	$access = 1;
} else {	} else {
$access = 0;	$access = 0;
Line 7468 sub assignrole {	Line 7558 sub assignrole {
}	}
}	}
}	}
	} elsif ($context eq 'requestauthor') {
	if (($udom eq $env{'user.domain'}) && ($uname eq $env{'user.name'}) &&
	($url eq '/'.$udom.'/') && ($role eq 'au')) {
	if ($env{'environment.requestauthor'} eq 'automatic') {
	$refused = '';
	} else {
	my %domdefaults = &get_domain_defaults($udom);
	if (ref($domdefaults{'requestauthor'}) eq 'HASH') {
	my $checkbystatus;
	if ($env{'user.adv'}) {
	my $disposition = $domdefaults{'requestauthor'}{'_LC_adv'};
	if ($disposition eq 'automatic') {
	$refused = '';
	} elsif ($disposition eq '') {
	$checkbystatus = 1;
	}
	} else {
	$checkbystatus = 1;
	}
	if ($checkbystatus) {
	if ($env{'environment.inststatus'}) {
	my @inststatuses = split(/,/,$env{'environment.inststatus'});
	foreach my $type (@inststatuses) {
	if (($type ne '') &&
	($domdefaults{'requestauthor'}{$type} eq 'automatic')) {
	$refused = '';
	}
	}
	} elsif ($domdefaults{'requestauthor'}{'default'} eq 'automatic') {
	$refused = '';
	}
	}
	}
	}
	}
}	}
if ($refused) {	if ($refused) {
&logthis('Refused assignrole: '.$udom.' '.$uname.' '.$url.	&logthis('Refused assignrole: '.$udom.' '.$uname.' '.$url.
Line 7518 sub assignrole {	Line 7643 sub assignrole {
if ($answer eq 'ok') {	if ($answer eq 'ok') {
&userrolelog($role,$uname,$udom,$url,$start,$end);	&userrolelog($role,$uname,$udom,$url,$start,$end);
# for course roles, perform group memberships changes triggered by role change.	# for course roles, perform group memberships changes triggered by role change.
&courserolelog($role,$uname,$udom,$url,$origstart,$origend,$delflag,$selfenroll,$context);
unless ($role =~ /^gr/) {	unless ($role =~ /^gr/) {
&Apache::longroup::group_changes($udom,$uname,$url,$role,$origend,	&Apache::longroup::group_changes($udom,$uname,$url,$role,$origend,
$origstart,$selfenroll,$context);	$origstart,$selfenroll,$context);
}	}
	if (($role eq 'cc') \|\| ($role eq 'in') \|\|
	($role eq 'ep') \|\| ($role eq 'ad') \|\|
	($role eq 'ta') \|\| ($role eq 'st') \|\|
	($role=~/^cr/) \|\| ($role eq 'gr') \|\|
	($role eq 'co')) {
	&courserolelog($role,$uname,$udom,$url,$origstart,$origend,$delflag,
	$selfenroll,$context);
	} elsif (($role eq 'li') \|\| ($role eq 'dg') \|\| ($role eq 'sc') \|\|
	($role eq 'au') \|\| ($role eq 'dc')) {
	&domainrolelog($role,$uname,$udom,$url,$origstart,$origend,$delflag,
	$context);
	} elsif (($role eq 'ca') \|\| ($role eq 'aa')) {
	&coauthorrolelog($role,$uname,$udom,$url,$origstart,$origend,$delflag,
	$context);
	}
if ($role eq 'cc') {	if ($role eq 'cc') {
&autoupdate_coowners($url,$end,$start,$uname,$udom);	&autoupdate_coowners($url,$end,$start,$uname,$udom);
}	}
Line 9817 sub devalidate_slots_cache {	Line 9956 sub devalidate_slots_cache {
&devalidate_cache_new('allslots',$hashid);	&devalidate_cache_new('allslots',$hashid);
}	}

	sub get_coursechange {
	my ($cdom,$cnum) = @_;
	if ($cdom eq '' \|\| $cnum eq '') {
	return unless ($env{'request.course.id'});
	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	}
	my $hashid=$cdom.'_'.$cnum;
	my ($change,$cached)=&is_cached_new('crschange',$hashid);
	if ((defined($cached)) && ($change ne '')) {
	return $change;
	} else {
	my %crshash;
	%crshash = &get('environment',['internal.contentchange'],$cdom,$cnum);
	if ($crshash{'internal.contentchange'} eq '') {
	$change = $env{'course.'.$cdom.'_'.$cnum.'.internal.created'};
	if ($change eq '') {
	%crshash = &get('environment',['internal.created'],$cdom,$cnum);
	$change = $crshash{'internal.created'};
	}
	} else {
	$change = $crshash{'internal.contentchange'};
	}
	my $cachetime = 600;
	&do_cache_new('crschange',$hashid,$change,$cachetime);
	}
	return $change;
	}

	sub devalidate_coursechange_cache {
	my ($cnum,$cdom)=@_;
	my $hashid=$cnum.':'.$cdom;
	&devalidate_cache_new('crschange',$hashid);
	}

# ------------------------------------------------- Update symbolic store links	# ------------------------------------------------- Update symbolic store links

sub symblist {	sub symblist {
Line 9844 sub symblist {	Line 10018 sub symblist {
# --------------------------------------------------------------- Verify a symb	# --------------------------------------------------------------- Verify a symb

sub symbverify {	sub symbverify {
my ($symb,$thisurl)=@_;	my ($symb,$thisurl,$encstate)=@_;
my $thisfn=$thisurl;	my $thisfn=$thisurl;
$thisfn=&declutter($thisfn);	$thisfn=&declutter($thisfn);
# direct jump to resource in page or to a sequence - will construct own symbs	# direct jump to resource in page or to a sequence - will construct own symbs
Line 9880 sub symbverify {	Line 10054 sub symbverify {
}	}
if (	if (
&symbclean(&declutter($bighash{'map_id_'.$mapid}).'___'.$resid.'___'.$thisfn)	&symbclean(&declutter($bighash{'map_id_'.$mapid}).'___'.$resid.'___'.$thisfn)
eq $symb) {	eq $symb) {
	if (ref($encstate)) {
	$$encstate = $bighash{'encrypted_'.$id};
	}
if (($env{'request.role.adv'}) \|\|	if (($env{'request.role.adv'}) \|\|
($bighash{'encrypted_'.$id} eq $env{'request.enc'}) \|\|	($bighash{'encrypted_'.$id} eq $env{'request.enc'}) \|\|
($thisurl eq '/adm/navmaps')) {	($thisurl eq '/adm/navmaps')) {
$okay=1;	$okay=1;
}	}
}	}
}	}
Line 9961 sub deversion {	Line 10138 sub deversion {
sub symbread {	sub symbread {
my ($thisfn,$donotrecurse)=@_;	my ($thisfn,$donotrecurse)=@_;
my $cache_str='request.symbread.cached.'.$thisfn;	my $cache_str='request.symbread.cached.'.$thisfn;
if (defined($env{$cache_str})) { return $env{$cache_str}; }	if (defined($env{$cache_str})) {
	if (($thisfn) \|\| ($env{$cache_str} ne '')) {
	return $env{$cache_str};
	}
	}
# no filename provided? try from environment	# no filename provided? try from environment
unless ($thisfn) {	unless ($thisfn) {
if ($env{'request.symb'}) {	if ($env{'request.symb'}) {
Line 10778 sub declutter {	Line 10959 sub declutter {
$thisfn=~s\|^adm/wrapper/\|\|;	$thisfn=~s\|^adm/wrapper/\|\|;
$thisfn=~s\|^adm/coursedocs/showdoc/\|\|;	$thisfn=~s\|^adm/coursedocs/showdoc/\|\|;
$thisfn=~s/^res\///;	$thisfn=~s/^res\///;
	$thisfn=~s/^priv\///;
unless (($thisfn =~ /^ext/) \|\| ($thisfn =~ /\.(page\|sequence)___\d+___ext/)) {	unless (($thisfn =~ /^ext/) \|\| ($thisfn =~ /\.(page\|sequence)___\d+___ext/)) {
$thisfn=~s/\?.+$//;	$thisfn=~s/\?.+$//;
}	}
Line 11696 B<idput($udom,%ids)>: store away a list	Line 11878 B<idput($udom,%ids)>: store away a list

=item *	=item *
X<rolesinit()>	X<rolesinit()>
B<rolesinit($udom,$username,$authhost)>: get user privileges	B<rolesinit($udom,$username)>: get user privileges.
	returns user role, first access and timer interval hashes

	=item *
	X<privileged()>
	B<privileged($username,$domain)>: returns a true if user has a
	privileged and active role (i.e. su or dc), false otherwise.

=item *	=item *
X<getsection()>	X<getsection()>
Line 12070 returns the data handle	Line 12258 returns the data handle

=item *	=item *

symbverify($symb,$thisfn) : verifies that $symb actually exists and is	symbverify($symb,$thisfn,$encstate) : verifies that $symb actually exists
a possible symb for the URL in $thisfn, and if is an encryypted	and is a possible symb for the URL in $thisfn, and if is an encrypted
resource that the user accessed using /enc/ returns a 1 on success, 0	resource that the user accessed using /enc/ returns a 1 on success, 0
on failure, user must be in a course, as it assumes the existance of	on failure, user must be in a course, as it assumes the existence of
the course initial hash, and uses $env('request.course.id'}	the course initial hash, and uses $env('request.course.id'}. The third
	arg is an optional reference to a scalar. If this arg is passed in the
	call to symbverify, it will be set to 1 if the symb has been set to be
	encrypted; otherwise it will be null.

=item *	=item *

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

Removed from v.1.1168
changed lines
	Added in v.1.1190