| line |
true |
false |
branch |
|
265
|
0 |
2 |
unless &GetOptions(\%options, 'config=s', 'lastmail=s', 'mailrc=s', 'test=i', 'logfile=s', 'logclean', 'verbose', 'nomail', 'mode=s', 'help|h', 'version|v') |
|
281
|
1 |
5 |
if defined $hash{$_} |
|
284
|
0 |
2 |
if $options{'help'} |
|
285
|
0 |
2 |
if $options{'version'} |
|
288
|
1 |
1 |
unless $options{'config'} |
|
289
|
1 |
0 |
unless -f $options{'config'} |
|
296
|
0 |
0 |
unless $cfg->SectionExists($db) |
|
300
|
0 |
0 |
if defined $val |
|
303
|
0 |
0 |
unless $self->{$db} |
|
304
|
0 |
0 |
if $opts{'driver'} =~ /mysql/i |
|
308
|
0 |
0 |
if $self->test |
|
321
|
0 |
0 |
if ($mode =~ /day/) |
|
326
|
0 |
0 |
unless ($mode =~ /^(daily|weekly|reports|monthly|sun|mon|tue|wed|thu|fri|sat)$/) |
|
364
|
0 |
0 |
if ($self->test) { } |
|
|
0 |
0 |
elsif ($mode ne 'daily') { } |
|
368
|
0 |
0 |
unless @authors |
|
374
|
0 |
0 |
unless ($next) |
|
383
|
0 |
0 |
if $self->verbose |
|
390
|
0 |
0 |
if $self->verbose |
|
393
|
0 |
0 |
if $self->verbose |
|
394
|
0 |
0 |
unless $author |
|
396
|
0 |
0 |
unless ($author) |
|
409
|
0 |
0 |
if ($prefs->{'active'} == 2) |
|
411
|
0 |
0 |
if $self->verbose |
|
417
|
0 |
0 |
$prefs ? : |
|
|
0 |
0 |
if $self->verbose |
|
418
|
0 |
0 |
unless $prefs |
|
419
|
0 |
0 |
if $self->verbose |
|
420
|
0 |
0 |
if $prefs->{'ignored'} |
|
421
|
0 |
0 |
if $self->verbose |
|
422
|
0 |
0 |
if $prefs->{'report'} != $report_type |
|
423
|
0 |
0 |
if $self->verbose |
|
424
|
0 |
0 |
if $self->verbose |
|
425
|
0 |
0 |
unless $prefs->{'grades'}{$row->{'state'}} or $prefs->{'grades'}{'ALL'} |
|
426
|
0 |
0 |
if $self->verbose |
|
433
|
0 |
0 |
if ($row->{'version'} and $prefs->{'version'} and $prefs->{'version'} ne 'ALL') |
|
434
|
0 |
0 |
if ($prefs->{'version'} eq 'LATEST') { } |
|
436
|
0 |
0 |
if $self->verbose |
|
437
|
0 |
0 |
if $self->verbose |
|
438
|
0 |
0 |
if @vers and $vers[0][0] ne $row->{'version'} |
|
442
|
0 |
0 |
if $self->verbose |
|
443
|
0 |
0 |
unless $m{$row->{'version'}} |
|
448
|
0 |
0 |
if ($row->{'platform'} and $prefs->{'platform'} and $prefs->{'platform'} ne 'ALL') |
|
453
|
0 |
0 |
if ($1 and $1 eq 'NOT') { } |
|
454
|
0 |
0 |
if $self->verbose |
|
455
|
0 |
0 |
if $row->{'platform'} =~ /$prefs->{'platform'}/ |
|
457
|
0 |
0 |
if $self->verbose |
|
458
|
0 |
0 |
unless $row->{'platform'} =~ /$prefs->{'platform'}/ |
|
463
|
0 |
0 |
if ($row->{'perl'} and $prefs->{'perl'} and $prefs->{'perl'} ne 'ALL') |
|
473
|
0 |
0 |
if ($1 and $1 eq 'NOT') { } |
|
474
|
0 |
0 |
if $self->verbose |
|
475
|
0 |
0 |
if $perlv =~ /$prefs->{'perl'}/ and $v =~ /$prefs->{'perl'}/ |
|
477
|
0 |
0 |
if $self->verbose |
|
478
|
0 |
0 |
unless $perlv =~ /$prefs->{'perl'}/ or $v =~ /$prefs->{'perl'}/ |
|
483
|
0 |
0 |
if $self->verbose |
|
484
|
0 |
0 |
if not $prefs->{'patches'} and $row->{'perl'} =~ /(RC\d+|patch)/ |
|
487
|
0 |
0 |
if ($prefs->{'tuple'} eq 'FIRST') |
|
490
|
0 |
0 |
if $self->verbose |
|
491
|
0 |
0 |
if @count > 0 |
|
494
|
0 |
0 |
if $self->verbose |
|
496
|
0 |
0 |
if ($mode eq 'reports') |
|
505
|
0 |
0 |
unless $rows |
|
507
|
0 |
0 |
if ($mode ne 'reports') |
|
509
|
0 |
0 |
if $self->verbose |
|
512
|
0 |
0 |
if $self->verbose |
|
515
|
0 |
0 |
$pause ? : |
|
528
|
0 |
0 |
if (not $prefs->{'active'} or $prefs->{'active'} == 0) |
|
536
|
0 |
0 |
unless @auth |
|
538
|
0 |
0 |
unless @dist |
|
541
|
0 |
0 |
if $self->verbose |
|
570
|
0 |
0 |
unless $reports |
|
571
|
0 |
0 |
if ($self->verbose) { } |
|
594
|
0 |
0 |
if $self->nomail |
|
605
|
0 |
0 |
if ($full) |
|
642
|
0 |
0 |
unless (-f $self->lastmail) |
|
647
|
0 |
0 |
if (defined $id) |
|
649
|
0 |
0 |
if ($text =~ /$mode=\d+/) { } |
|
660
|
0 |
0 |
if ($id) = $text =~ /$mode=(\d+)/ |
|
667
|
0 |
0 |
unless (defined $id) |
|
669
|
0 |
0 |
@lastid ? : |
|
675
|
0 |
0 |
if $self->nomail |
|
687
|
0 |
0 |
if ($mode eq 'monthly') { } |
|
|
0 |
0 |
elsif ($mode eq 'daily' or $mode eq 'reports') { } |
|
696
|
0 |
0 |
if ($date[3] < 1) |
|
698
|
0 |
0 |
if ($date[4] == 2 and $date[5] % 4) { } |
|
|
0 |
0 |
elsif ($date[3] == 2) { } |
|
|
0 |
0 |
elsif ($date[3] == 4 or $date[3] == 6 or $date[3] == 9 or $date[3] == 11) { } |
|
707
|
0 |
0 |
if ($date[4] < 1) |
|
715
|
0 |
0 |
unless @report |
|
724
|
0 |
0 |
unless $author |
|
727
|
0 |
0 |
if ($author and $dist) |
|
728
|
0 |
0 |
if (defined $PREFS{$author}{'dists'}{$dist}) |
|
733
|
0 |
0 |
if (@rows) |
|
742
|
0 |
0 |
if ($author) |
|
743
|
0 |
0 |
if (defined $PREFS{$author}{'default'}) |
|
748
|
0 |
0 |
if (@auth) |
|
752
|
0 |
0 |
if (@rows) { } |
|
809
|
0 |
0 |
if ($nntpid) { } |
|
816
|
0 |
0 |
if $rows[0]{'article'} =~ /=3D/ |
|
818
|
0 |
0 |
unless $mail |
|
823
|
0 |
0 |
unless $subject |
|
831
|
0 |
0 |
if $encoding and $encoding eq 'base64' |
|
835
|
0 |
0 |
$pause ? : |
|
847
|
0 |
0 |
unless @rows |
|
850
|
0 |
0 |
if ($@) |
|
873
|
0 |
0 |
$author2 ? : |
|
874
|
0 |
0 |
$pause ? : |
|
891
|
0 |
0 |
unless ($parms->{'author'}) |
|
915
|
0 |
0 |
unless $self->tt->process($template, $parms, \$text) |
|
920
|
0 |
0 |
if $parms->{'reply'} |
|
928
|
0 |
0 |
if ($self->nomail) { } |
|
|
0 |
0 |
elsif (my $fh = 'IO::File'->new($cmd)) { } |
|
931
|
0 |
0 |
unless my $fh = 'IO::File'->new('mailer-debug.log', 'a+') |
|
958
|
0 |
0 |
if ($file and -f $file) { } |
|
967
|
0 |
0 |
if ($response->is_success) { } |
|
970
|
0 |
0 |
unless $data |
|
977
|
0 |
0 |
unless $p |
|
993
|
0 |
0 |
unless $creator and $self->{'testers'}{$creator} |
|
1007
|
0 |
0 |
unless $dist and $vers |
|
1014
|
0 |
0 |
unless $dist and $vers |
|
1016
|
0 |
0 |
unless ($AUTHORS{$dist} and $AUTHORS{$dist}{$vers}) |
|
1018
|
0 |
0 |
@author ? : |
|
1032
|
0 |
0 |
if ($@ or not $mech->success or not $mech->content) { } |
|
1033
|
0 |
0 |
if (-f $sponsorfile) { } |
|
1044
|
0 |
0 |
unless $data |
|
1056
|
0 |
0 |
if $SPONSORS[-1]{'url'} |
|
1057
|
0 |
0 |
if $SPONSORS[-1]{'body'} |
|
1058
|
0 |
0 |
if $SPONSORS[-1]{'body'} |
|
1080
|
0 |
0 |
unless my $log = $self->logfile |
|
1081
|
0 |
0 |
unless -f $log |
|
1086
|
0 |
0 |
$self->logclean ? : |
|
1089
|
0 |
0 |
unless my $fh = 'IO::File'->new($log, $mode) |
|
1098
|
0 |
0 |
if defined $value |