| line |
true |
false |
branch |
|
60
|
0 |
217 |
unless my $user = $args{'user'}
|
|
61
|
0 |
217 |
unless $user =~ /$Unix::Passwd::File::re_user/
|
|
66
|
115 |
102 |
if ($tx_action eq 'check_state') { }
|
|
|
102 |
0 |
elsif ($tx_action eq 'fix_state') { }
|
|
68
|
0 |
115 |
unless $res->[0] == 200 or $res->[0] == 404
|
|
70
|
12 |
103 |
if $res->[0] == 404
|
|
71
|
0 |
103 |
if $dry_run
|
|
147
|
0 |
273 |
unless my $user = $args{'user'}
|
|
148
|
0 |
273 |
unless $user =~ /$Unix::Passwd::File::re_user/
|
|
155
|
149 |
124 |
if ($tx_action eq 'check_state') { }
|
|
|
124 |
0 |
elsif ($tx_action eq 'fix_state') { }
|
|
157
|
0 |
149 |
unless $res->[0] == 200 or $res->[0] == 404
|
|
159
|
17 |
132 |
if ($res->[0] == 200) { }
|
|
160
|
15 |
2 |
if (not defined $uid or $uid == $res->[2]{'uid'}) { }
|
|
167
|
0 |
132 |
if $dry_run
|
|
191
|
122 |
2 |
if ($res->[0] == 200) { }
|
|
226
|
0 |
39 |
unless my $user = $args{'user'}
|
|
227
|
0 |
39 |
unless $user =~ /$Unix::Passwd::File::re_user/
|
|
230
|
0 |
39 |
unless my $add_to = $args{'add_to'}
|
|
232
|
0 |
39 |
unless my $del_from = $args{'delete_from'}
|
|
236
|
20 |
19 |
if ($tx_action eq 'check_state') { }
|
|
|
19 |
0 |
elsif ($tx_action eq 'fix_state') { }
|
|
238
|
0 |
20 |
unless $res->[0] == 200
|
|
243
|
19 |
1 |
unless $_ ~~ $cur_groups
|
|
246
|
19 |
1 |
if $_ ~~ $cur_groups
|
|
249
|
19 |
1 |
if (@needs_add or @needs_del) { }
|
|
250
|
0 |
19 |
if $dry_run
|
|
364
|
1 |
8 |
unless my $taid = $args{-'tx_action_id'}
|
|
365
|
0 |
8 |
unless my $user = $args{'user'}
|
|
366
|
0 |
8 |
unless $user =~ /$Unix::Passwd::File::re_user/
|
|
376
|
1 |
7 |
unless $group ~~ \@$member_of
|
|
379
|
0 |
16 |
if $_ ~~ \@$not_member_of
|
|
388
|
0 |
8 |
unless $res->[0] == 200
|
|
415
|
8 |
0 |
if ($exists) { }
|
|
416
|
0 |
8 |
unless ($should_exist)
|
|
417
|
0 |
0 |
if $dry_run
|
|
423
|
0 |
0 |
if ($should_aexist) { }
|
|
|
0 |
0 |
elsif ($should_exist) { }
|
|
426
|
0 |
0 |
if $dry_run
|
|
433
|
8 |
0 |
if ($exists) { }
|
|
436
|
8 |
40 |
if $l->{'group'} eq $group
|
|
439
|
7 |
33 |
if $l->{'group'} ~~ \@$member_of and not $user ~~ \@mm
|
|
441
|
7 |
33 |
if $l->{'group'} ~~ \@$not_member_of and $user ~~ \@mm
|
|
443
|
7 |
1 |
if @needs_add or @needs_del
|
|
449
|
0 |
0 |
unless (not @$not_member_of and @$member_of == 1 and $member_of->[0] eq $group)
|
|
460
|
0 |
8 |
if ($create_home and not $exists && -d $home)
|
|
461
|
0 |
0 |
if $dry_run
|
|
463
|
0 |
0 |
if ($use_skel) { }
|
|
464
|
0 |
0 |
unless -d $skel_dir
|
|
492
|
7 |
1 |
if (@do) { }
|