version 1.13, 2007/12/31 16:52:26
|
version 1.15, 2008/03/03 15:25:02
|
Line 357 close(OUT);
|
Line 357 close(OUT);
|
open(OUT, ">$udpath/passwd"); |
open(OUT, ">$udpath/passwd"); |
print(OUT 'unix:'."\n"); |
print(OUT 'unix:'."\n"); |
close(OUT); |
close(OUT); |
`chown www:www $udpath/passwd`; # Must be writeable by httpd process. |
|
|
# Get permissions correct on udpath |
|
|
|
print "Setting permissions on user data directories. This may take a moment, please be patient ...\n"; |
|
`chown -R www:www /home/httpd/lonUsers/$domain` ; # Must be writeable by httpd process. |
|
|
=pod |
=pod |
|
|
Line 400 my $domkey=&LONCAPA::escape('dc:'.$usern
|
Line 404 my $domkey=&LONCAPA::escape('dc:'.$usern
|
$domrolesref->{$domkey}= &LONCAPA::escape('0:'.$now); |
$domrolesref->{$domkey}= &LONCAPA::escape('0:'.$now); |
&LONCAPA::locking_hash_untie($domrolesref); |
&LONCAPA::locking_hash_untie($domrolesref); |
|
|
|
system('/bin/chown',"www:www","$dompath/nohist_domainroles.db"); # Must be writeable by httpd process. |
|
system('/bin/chown',"www:www","$dompath/nohist_domainroles.db.lock"); |
|
|
#Update allusers MySQL table |
#Update allusers MySQL table |
|
|
print "Adding new user to allusers table\n"; |
print "Adding new user to allusers table\n"; |