| line |
true |
false |
branch |
|
37
|
0 |
0 |
unless open my $fh, "-|", $command, @args |
|
40
|
0 |
0 |
wantarray ? : |
|
45
|
54 |
77 |
unless open my $fh, "<", $fn |
|
46
|
77 |
0 |
wantarray ? : |
|
78
|
20 |
18 |
-e "$qmail_dir/control/locals" ? : |
|
84
|
0 |
36 |
unless (($_) = lc($_) =~ /$ascii/) |
|
89
|
0 |
54 |
unless (($_) = lc($_) =~ /$ascii/) |
|
95
|
0 |
185 |
unless (($_) = /$ascii/) |
|
96
|
19 |
166 |
if (/^#/) { } |
|
|
91 |
75 |
elsif (s/^=([^:]+)://) { } |
|
|
55 |
20 |
elsif (s/^\+([^:]+)://) { } |
|
|
20 |
0 |
elsif (/^\.$/) { } |
|
120
|
0 |
0 |
unless (($_) = /$ascii/) |
|
128
|
21 |
17 |
if exists $virtualdomains{$domain} |
|
133
|
6 |
31 |
if exists $virtualdomains{$wildcard} |
|
136
|
2 |
9 |
if exists $virtualdomains{''} |
|
150
|
22 |
22 |
unless $parts[$_] eq "-" |
|
160
|
7 |
34 |
unless (my($local) = lc($in) =~ /$valid/) |
|
162
|
12 |
22 |
if (exists $users_exact{$local}) { } |
|
168
|
19 |
242 |
if (exists $users_wild{$try}) |
|
176
|
3 |
0 |
if ($qmail_dir eq "t/fixtures") |
|
185
|
7 |
51 |
unless (my($address) = lc($in) =~ /$valid/) |
|
187
|
2 |
49 |
unless $address =~ /\@/ |
|
190
|
19 |
30 |
if exists $locals{$domain} |
|
193
|
22 |
8 |
if defined $prepend |
|
200
|
11 |
25 |
if (@_ == 1) |
|
203
|
7 |
4 |
unless (my($address) = lc($in) =~ /$valid/) |
|
206
|
1 |
3 |
unless defined $local |
|
215
|
9 |
19 |
unless (length $dashext) |
|
216
|
8 |
1 |
if -e "$homedir/.qmail" |
|
221
|
18 |
20 |
if -e "$homedir/.qmail-$_" |
|
229
|
0 |
0 |
unless ($valias_exec) |
|
236
|
0 |
0 |
if $? == 0 |
|
243
|
0 |
0 |
unless ($vuser_exec) |
|
247
|
0 |
0 |
unless eval {
do {
_readpipe($vuser_exec, $address)
}
} |
|
248
|
0 |
0 |
if $? == 0 |
|
255
|
7 |
23 |
unless (my($address) = lc($in) =~ /$valid/) |
|
258
|
3 |
20 |
unless defined $local |
|
262
|
0 |
20 |
unless -r $homedir and -x _ |
|
263
|
1 |
19 |
if (stat _)[2] & 16 |
|
264
|
0 |
19 |
if (stat _)[2] & 2 |
|
265
|
1 |
18 |
if -k _ |
|
269
|
0 |
18 |
unless defined $dot_qmail |
|
270
|
0 |
18 |
unless length $dot_qmail |
|
272
|
0 |
18 |
unless -e $dot_qmail |
|
273
|
0 |
18 |
unless -r $dot_qmail |
|
274
|
1 |
17 |
unless -s _ |
|
278
|
7 |
10 |
if ($dot_qmail[0] =~ /^\|\s*\S*vdelivermail/) |
|
279
|
1 |
6 |
unless ($address =~ /\@/) |
|
290
|
5 |
1 |
if ($dot_qmail[0] =~ /bounce-no-mailbox/) |
|
291
|
1 |
4 |
if -d "$homedir/$origlocal" |
|
292
|
1 |
3 |
if valias($address) |
|
293
|
1 |
2 |
if vuser($address) |
|
294
|
1 |
1 |
if ($VPOPMAIL_EXT) |
|
298
|
1 |
0 |
if vuser($chunks[$_] . '@' . $domain) |
|
306
|
2 |
8 |
if ($dot_qmail[0] =~ /^\|bouncesaying\s+(.*)/) |
|
308
|
1 |
1 |
if @args > 1 |
|
312
|
1 |
7 |
if grep /ezmlm/, @dot_qmail |
|
313
|
1 |
6 |
if grep /^\|/, @dot_qmail |