version 1.14, 2008/01/03 21:16:11
|
version 1.16, 2009/07/17 01:11:11
|
Line 304 foreach (split(//,$passwd)) {if ((ord($_
|
Line 304 foreach (split(//,$passwd)) {if ((ord($_
|
if ($pbad) { |
if ($pbad) { |
die('Password must consist of standard ASCII characters'."\n"); |
die('Password must consist of standard ASCII characters'."\n"); |
} |
} |
open(OUT,"|passwd --stdin $username"); |
|
print(OUT $passwd."\n"); |
my $distro; |
close(OUT); |
if (open(PIPE,"perl distprobe|")) { |
|
$distro = <PIPE>; |
|
close(PIPE); |
|
} |
|
if ($distro =~ /^ubuntu|debian/) { |
|
open(OUT,"|usermod -p `mkpasswd $passwd` $username"); |
|
close(OUT); |
|
} else { |
|
open(OUT,"|passwd --stdin $username"); |
|
print(OUT $passwd."\n"); |
|
close(OUT); |
|
} |
|
|
=pod |
=pod |
|
|
Line 357 close(OUT);
|
Line 368 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 |
|
|