line |
true |
false |
branch |
47
|
0 |
0 |
if ($data->{'create_home'} or $data->{'create-home'}) { } |
|
0 |
0 |
elsif ($data->{'no_create_home'} or $data->{'no-create-home'}) { } |
|
0 |
0 |
elsif (exists $data->{'no_create_home'} and $data->{'no_create_home'} == 0 or exists $data->{'no-create-home'} and $data->{'no-create-home'} == 0) { } |
59
|
0 |
0 |
if (not defined $uid) { } |
68
|
0 |
0 |
if ($data->{'uid'}) |
72
|
0 |
0 |
if ($data->{'home'}) |
76
|
0 |
0 |
if ($should_create_home and not defined $uid) |
80
|
0 |
0 |
if (exists $data->{'shell'}) |
84
|
0 |
0 |
if ($data->{'comment'}) |
88
|
0 |
0 |
if ($data->{'expire'}) |
92
|
0 |
0 |
if ($data->{'groups'}) |
108
|
0 |
0 |
if ($retval == 0) { } |
116
|
0 |
0 |
if (exists $data->{'password'}) |
130
|
0 |
0 |
if ($pw_retval != 0) |
138
|
0 |
0 |
if ($new_pw_md5 eq $old_pw_md5) { } |
161
|
0 |
0 |
if (exists $data->{'delete_home'}) |
166
|
0 |
0 |
if ($? == 67) { } |
|
0 |
0 |
elsif ($? != 0) { } |
198
|
0 |
0 |
if ($? != 0) |
207
|
0 |
0 |
exists $data->[9] ? : |
223
|
0 |
0 |
if (not defined $self->get_gid($group)) { } |
228
|
0 |
0 |
if (exists $data->{'gid'}) |
233
|
0 |
0 |
if ($? != 0) |
244
|
0 |
0 |
if (exists $data->{'gid'}) |
255
|
0 |
0 |
unless (eval {
do {
my @content = split(/\n/u, cat("/etc/group"), 0);
my $gid = $data->{'gid'};
foreach $_ (@content) {
s/^$group:([^:]+):(\d+):/${group}:$1:${gid}:/u;
};
my $fh = file_write("/etc/group");
$fh->write(join("\n", @content));
$fh->close;
1
}
}) |
288
|
0 |
0 |
if ($? != 0) |
309
|
0 |
0 |
if ($? != 0) |