version 1.24, 2012/12/18 13:05:41
|
version 1.27, 2015/01/03 02:45:22
|
Line 360 if ($pbad) {
|
Line 360 if ($pbad) {
|
"\n"); |
"\n"); |
} |
} |
|
|
my $distro; |
my ($distro,$nostdin); |
if (open(PIPE,"perl distprobe|")) { |
if (open(PIPE,"perl distprobe|")) { |
$distro = <PIPE>; |
$distro = <PIPE>; |
close(PIPE); |
close(PIPE); |
} |
} |
if ($distro =~ /^ubuntu|debian/) { |
if ($distro =~ /^ubuntu|debian/) { |
|
$nostdin = 1; |
|
} elsif ($distro =~ /^suse([\d.]+)$/) { |
|
if ($1 > 12.2) { |
|
$nostdin = 1; |
|
} |
|
} elsif ($distro =~ /^sles(\d+)$/) { |
|
if ($1 > 11) { |
|
$nostdin = 1; |
|
} |
|
} |
|
if ($nostdin) { |
open(OUT,"|usermod -p `mkpasswd $passwd` $username"); |
open(OUT,"|usermod -p `mkpasswd $passwd` $username"); |
close(OUT); |
close(OUT); |
} else { |
} else { |