version 1.15, 2008/03/03 15:25:02
|
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 |
|
|