version 1.24, 2012/12/18 13:05:41
|
version 1.25, 2013/04/04 15:50:05
|
Line 365 if (open(PIPE,"perl distprobe|")) {
|
Line 365 if (open(PIPE,"perl distprobe|")) {
|
$distro = <PIPE>; |
$distro = <PIPE>; |
close(PIPE); |
close(PIPE); |
} |
} |
|
|
|
my $setpasswd = 0; |
if ($distro =~ /^ubuntu|debian/) { |
if ($distro =~ /^ubuntu|debian/) { |
open(OUT,"|usermod -p `mkpasswd $passwd` $username"); |
open(OUT,"|usermod -p `mkpasswd $passwd` $username"); |
close(OUT); |
close(OUT); |
} else { |
$setpasswd = 1; |
|
} elsif ($distro =~ /^suse(\d+)\.(\d)$/) { |
|
if (($1 > 12) || (($1 == 12) && ($2 > 1))) { |
|
open(OUT,"|chpasswd"); |
|
print(OUT "$username:$passwd\n"); |
|
close(OUT); |
|
$setpasswd = 1; |
|
} |
|
} |
|
unless ($setpasswd) { |
open(OUT,"|passwd --stdin $username"); |
open(OUT,"|passwd --stdin $username"); |
print(OUT $passwd."\n"); |
print(OUT $passwd."\n"); |
close(OUT); |
close(OUT); |