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