| line | % | coverage | branch |
|---|
| 68 | 50 | T | F | unless &GetOptions("dry-run", \$dry_run, "interactive|i", \$interactive, "bcc", \$bcc, "bcc-to=s", \$bcc_to, "from=s", \$from, "smtp=s", \$smtp_arg, "trusted=s", \@trusted, "timeout=i", \$timeout, "verbose", \$verbose, "help", \$help) |
| 81 | 100 | T | F | if $help |
| 83 | 50 | T | F | unless ($dry_run or $from) |
| 88 | 50 | T | F | if ($from and not $from =~ /\@/) |
| 97 | 50 | T | F | if ($bcc_to) { } |
| 50 | T | F | elsif ($bcc) { } |
| 98 | 0 | T | F | unless $bcc_to =~ /\@/ |
| 102 | 0 | T | F | unless $from |
| 112 | 50 | T | F | if (@ARGV) { } |
| 115 | 50 | T | F | unless my($safe_path) = $ARGV[0] =~ /\A([^\x00\r\n]+)\z/ |
| 117 | 100 | T | F | if $safe_path =~ m[(?:^|/)\.\.(?:/|$)] |
| 119 | 50 | T | F | unless open my $fh, "<:raw", $safe_path |
| 129 | 50 | T | F | unless defined $raw and length $raw |
| 135 | 50 | T | F | if $verbose |
| 146 | 100 | T | F | unless (@contacts) |
| 167 | 50 | T | F | unless @unresolved |
| 172 | 100 | T | F | if ($u->{'type'} eq 'url_host') { } |
| 203 | 50 | T | F | if ($dry_run) |
| 218 | 0 | T | F | if ($interactive) |
| 223 | 0 | T | F | unless (defined $ans and lc $ans eq "y") |
| 229 | 0 | T | F | if $verbose |
| 244 | 0 | T | F | if ($ok) { } |
| 255 | 0 | T | F | $failed ? : |
| 272 | 50 | T | F | if $bcc |
| 306 | 50 | T | F | if (defined $raw_ref and length $$raw_ref) { } |
| 310 | 50 | T | F | $total < $preview ? : |
| 312 | 50 | T | F | $total < $preview ? : |
| 313 | 50 | T | F | if $total > $preview |
| 328 | 50 | T | F | if ($n_routes > $n_contacts) { } |
| 330 | 0 | T | F | $n_contacts == 1 ? : |
| 0 | T | F | $n_routes == 1 ? : |
| 334 | 50 | T | F | $n_contacts == 1 ? : |
| 346 | 50 | T | F | if (@form_cs) |
| 355 | 0 | T | F | if $c->{'form_domain'} |
| 356 | 0 | T | F | if ($c->{'form_paste'}) |
| 359 | 0 | T | F | if ($c->{'form_upload'}) |
| 380 | 0 | T | F | unless (open $tty, "<", "/dev/tty") |
| 386 | 0 | T | F | if defined $ans |
| 424 | 0 | T | F | if (my $dump = $ENV{'SUBMIT_ABUSE_DUMP_MIME'}) |
| 425 | 0 | T | F | if (open my $fh, ">", $dump) |
| 440 | 0 | T | F | unless ($smtp) |
| 447 | 0 | T | F | unless $smtp->mail("") |
| 448 | 0 | T | F | unless $smtp->to($a{'to'}) |
| 450 | 0 | T | F | if $a{'bcc'} |
| 451 | 0 | T | F | unless $smtp->data |
| 452 | 0 | T | F | unless $smtp->datasend($mail) |
| 453 | 0 | T | F | unless $smtp->dataend |
| 458 | 0 | T | F | unless ($ok) |
| 500 | 0 | T | F | if $orig and $orig->{'ip'} |
| 508 | 50 | T | F | if $mail_from |
| 517 | 50 | T | F | unless $rcpt_seen{$addr}++ |
| 522 | 50 | T | F | if $arrival |
| 526 | 50 | T | F | if $rdomain |
| 532 | 50 | T | F | unless $uri_seen{$u->{'url'}}++ |
| 537 | 50 | T | F | if $auth_res |
| 570 | 0 | T | F | if (defined $a{'original'} and length ${$a{'original'};}) |
| 588 | 0 | T | F | if $a{'bcc'} |
| 642 | 50 | T | F | $orig ? : |