loncom/build/add_domain_coordinator_privilege.pl - diff

Return to add_domain_coordinator_privilege.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.8, 2012/08/17 22:43:03	version 1.10, 2015/03/10 21:26:04
Line 238 system('/bin/chown',"www:www","$dompath/	Line 238 system('/bin/chown',"www:www","$dompath/
# Log with domainconfiguser in nohist_rolelog.db	# Log with domainconfiguser in nohist_rolelog.db
my $domconfiguser = $domain.'-domainconfig';	my $domconfiguser = $domain.'-domainconfig';
my $subdir = $domconfiguser;	my $subdir = $domconfiguser;
$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/;	$subdir =~ s/^(.)(.)(.).*$/$1\/$2\/$3/;

my $rolelogref = &LONCAPA::locking_hash_tie("$dompath/$subdir/$domconfiguser/nohist_rolelog.db",&GDBM_WRCREAT());	my $rolelogref = &LONCAPA::locking_hash_tie("$dompath/$subdir/$domconfiguser/nohist_rolelog.db",&GDBM_WRCREAT());
my $domlogkey = &LONCAPA::escape($now.'00000'.$$.'000000');	my $domlogkey = &LONCAPA::escape($now.'00000'.$$.'000000');
Line 261 my $domlogvalue = {	Line 261 my $domlogvalue = {
$rolelogref->{$domlogkey}=&freeze_escape($domlogvalue);	$rolelogref->{$domlogkey}=&freeze_escape($domlogvalue);
&LONCAPA::locking_hash_untie($rolelogref);	&LONCAPA::locking_hash_untie($rolelogref);

system('/bin/chown',"www:www","$dompath/$subdir/nohist_rolelog.db"); # Must be writeable by httpd process.	system('/bin/chown',"www:www","$dompath/$subdir/$domconfiguser/nohist_rolelog.db"); # Must be writeable by httpd process.
system('/bin/chown',"www:www","$dompath/$subdir/nohist_rolelog.db.lock");	system('/bin/chown',"www:www","$dompath/$subdir/$domconfiguser/nohist_rolelog.db.lock");

=pod	=pod