version 1.22, 2012/08/17 22:43:03
|
version 1.23, 2012/11/20 19:00:52
|
Line 481 $domrolesref->{$domkey}= &LONCAPA::escap
|
Line 481 $domrolesref->{$domkey}= &LONCAPA::escap
|
my $domconfiguser = $domain.'-domainconfig'; |
my $domconfiguser = $domain.'-domainconfig'; |
my $subdir = $domconfiguser; |
my $subdir = $domconfiguser; |
$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/; |
$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/; |
|
$subdir .= "/$domconfiguser"; |
|
|
my $rolelogref = &LONCAPA::locking_hash_tie("$dompath/$subdir/$domconfiguser/nohist_rolelog.db",&GDBM_WRCREAT()); |
if (-d "$dompath/$subdir") { |
my $domlogkey = &LONCAPA::escape($now.'00000'.$$.'000000'); |
my $rolelogref = &LONCAPA::locking_hash_tie("$dompath/$subdir/nohist_rolelog.db",&GDBM_WRCREAT()); |
my $storehash = { |
my $domlogkey = &LONCAPA::escape($now.'00000'.$$.'000000'); |
role => 'dc', |
my $storehash = { |
start => $now, |
role => 'dc', |
end => 0, |
start => $now, |
context => 'server', |
end => 0, |
}; |
context => 'server', |
my $domlogvalue = { |
}; |
'exe_uname' => '', |
my $domlogvalue = { |
'exe_udom' => $domain, |
'exe_uname' => '', |
'exe_time' => $now, |
'exe_udom' => $domain, |
'exe_ip' => '127.0.0.1', |
'exe_time' => $now, |
'delflag' => '', |
'exe_ip' => '127.0.0.1', |
'logentry' => $storehash, |
'delflag' => '', |
'uname' => $username, |
'logentry' => $storehash, |
'udom' => $domain, |
'uname' => $username, |
}; |
'udom' => $domain, |
$rolelogref->{$domlogkey}=&freeze_escape($domlogvalue); |
}; |
&LONCAPA::locking_hash_untie($rolelogref); |
$rolelogref->{$domlogkey}=&freeze_escape($domlogvalue); |
|
&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/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/nohist_rolelog.db.lock"); |
|
} else { |
|
print(&mt('Failed to log role creation as the path to the directory: "[_1]" does not exist.',"$dompath/$subdir/")."\n". |
|
&mt('Please run UPDATE from the top level directory of the extracted LON-CAPA tarball, i.e., two levels up from this current directory (loncom/build).')); |
|
} |
|
|
#Update allusers MySQL table |
#Update allusers MySQL table |
|
|