| line |
true |
false |
branch |
|
32
|
0 |
0 |
unless ($self->datasend($_)) |
|
64
|
0 |
195 |
unless $$self{'debug'} |
|
66
|
0 |
195 |
if $$self{'stderr'} |
|
96
|
16 |
0 |
if exists $$self{'tmpDir'} |
|
108
|
0 |
8 |
unless sysopen $fh, $idFile, 66 |
|
110
|
0 |
8 |
unless flock $fh, 2 |
|
112
|
2 |
6 |
unless (defined $id) |
|
113
|
0 |
8 |
if (++$id < 0) |
|
114
|
0 |
8 |
unless seek $fh, 0, 0 |
|
116
|
0 |
8 |
unless truncate $fh, 0 |
|
118
|
0 |
8 |
unless printf $fh "%d\n", $id |
|
120
|
0 |
8 |
unless close $fh |
|
145
|
8 |
0 |
if ($$self{'noMails'}) |
|
146
|
8 |
0 |
if (ref $$self{'noMails'} eq 'SCALAR') { } |
|
156
|
0 |
0 |
if ($host) |
|
162
|
0 |
0 |
unless ($smtp) |
|
167
|
0 |
0 |
if (not $msender =~ /\@/ and $$cfg{'unqualified_domain'}) |
|
170
|
0 |
0 |
unless ($smtp->mail($sender)) |
|
175
|
0 |
0 |
$addIspMailGate ? : |
|
|
0 |
0 |
unless ($smtp->to($addIspMailGate ? "$r.ispmailgate" : $r)) |
|
180
|
0 |
0 |
unless ($smtp->data) |
|
184
|
0 |
0 |
unless ($entity->print($smtp)) |
|
187
|
0 |
0 |
if (not $smtp->dataend) |
|
219
|
0 |
0 |
unless ($ifh->seek(0, 0)) |
|
223
|
0 |
0 |
if ($$self{'noMails'}) |
|
226
|
0 |
0 |
if (ref $$self{'noMails'} eq 'SCALAR') { } |
|
236
|
0 |
0 |
unless ($smtp) |
|
239
|
0 |
0 |
unless ($smtp->mail($sender)) |
|
244
|
0 |
0 |
unless ($smtp->to($r . '.ispmailgate')) |
|
249
|
0 |
0 |
unless ($smtp->data) |
|
255
|
0 |
0 |
unless ($smtp->datasend($line)) |
|
259
|
0 |
0 |
unless ($smtp->dataend and $smtp->quit) |
|
262
|
0 |
0 |
if ($ifh->error or not $ifh->close) |
|
268
|
0 |
0 |
unless (-d $keepDir or mkdir $keepDir, 504) |
|
271
|
0 |
0 |
unless (rename $fileName, $keepFile) |
|
276
|
0 |
0 |
if $smtp->mail($sender) and $smtp->to($$cfg{'postmaster'}) and $smtp->data and $smtp->datasend("Failed to parse mail, kept in $keepFile\n") and $smtp->dataend |
|
309
|
0 |
16 |
if ($address =~ /\<(.*)\>/) { } |
|
|
0 |
16 |
elsif ($address =~ /(.*?)\s*\(.*\)/) { } |
|
330
|
8 |
0 |
if (!$rec || $recipient =~ /$rec/ and !$sen || $sender =~ /$sen/) |
|
339
|
0 |
8 |
if (not ref $_) { } |
|
375
|
0 |
8 |
unless (-d $tmpDir or mkdir $tmpDir, 504) |
|
382
|
0 |
8 |
unless ($ofh) |
|
387
|
0 |
8 |
unless ($ifh) |
|
392
|
0 |
8 |
unless ($sender) |
|
393
|
0 |
0 |
if (defined(my $line = $ifh->getline)) { } |
|
394
|
0 |
0 |
if ($line =~ /^\s*from\s+(\S+)\s+/i) { } |
|
411
|
0 |
8 |
if ($@ or not $entity) |
|
442
|
8 |
5 |
if (@$r > 2) |
|
443
|
8 |
0 |
unless ($eOrig) |
|
453
|
0 |
8 |
if $@ |
|
454
|
3 |
5 |
if (length $msg) |
|
475
|
0 |
3 |
unless $eOrig->mime_type |
|
484
|
5 |
0 |
if ($$r[1] eq $eOrig and $fOrig->IsEq($$r[2])) |
|
489
|
5 |
0 |
if (@$r == 2) |
|
498
|
8 |
5 |
if (@rList) |
|
523
|
8 |
0 |
$attr ? : |
|
530
|
7 |
0 |
if ($$self{'tmpDir'}) |