| line |
true |
false |
branch |
|
263
|
0 |
2 |
unless &GetOptions(\%options, 'config=s', 'lastmail=s', 'mailrc=s', 'test=i', 'logfile=s', 'logclean', 'verbose', 'nomail', 'mode=s', 'help|h', 'version|v') |
|
279
|
1 |
5 |
if defined $hash{$_} |
|
282
|
0 |
2 |
if $options{'help'} |
|
283
|
0 |
2 |
if $options{'version'} |
|
286
|
1 |
1 |
unless $options{'config'} |
|
287
|
1 |
0 |
unless -f $options{'config'} |
|
294
|
0 |
0 |
unless $cfg->SectionExists($db) |
|
298
|
0 |
0 |
if defined $val |
|
301
|
0 |
0 |
unless $self->{$db} |
|
302
|
0 |
0 |
if $opts{'driver'} =~ /mysql/i |
|
306
|
0 |
0 |
if $self->test |
|
319
|
0 |
0 |
if ($mode =~ /day/) |
|
324
|
0 |
0 |
unless ($mode =~ /^(daily|weekly|reports|monthly|sun|mon|tue|wed|thu|fri|sat)$/) |
|
362
|
0 |
0 |
if ($self->test) { } |
|
|
0 |
0 |
elsif ($mode ne 'daily') { } |
|
366
|
0 |
0 |
unless @authors |
|
372
|
0 |
0 |
unless ($next) |
|
381
|
0 |
0 |
if $self->verbose |
|
388
|
0 |
0 |
if $self->verbose |
|
391
|
0 |
0 |
if $self->verbose |
|
392
|
0 |
0 |
unless $author |
|
394
|
0 |
0 |
unless ($author) |
|
407
|
0 |
0 |
if ($prefs->{'active'} == 2) |
|
409
|
0 |
0 |
if $self->verbose |
|
415
|
0 |
0 |
$prefs ? : |
|
|
0 |
0 |
if $self->verbose |
|
416
|
0 |
0 |
unless $prefs |
|
417
|
0 |
0 |
if $self->verbose |
|
418
|
0 |
0 |
if $prefs->{'ignored'} |
|
419
|
0 |
0 |
if $self->verbose |
|
420
|
0 |
0 |
if $prefs->{'report'} != $report_type |
|
421
|
0 |
0 |
if $self->verbose |
|
422
|
0 |
0 |
if $self->verbose |
|
423
|
0 |
0 |
unless $prefs->{'grades'}{$row->{'state'}} or $prefs->{'grades'}{'ALL'} |
|
424
|
0 |
0 |
if $self->verbose |
|
431
|
0 |
0 |
if ($row->{'version'} and $prefs->{'version'} and $prefs->{'version'} ne 'ALL') |
|
432
|
0 |
0 |
if ($prefs->{'version'} eq 'LATEST') { } |
|
434
|
0 |
0 |
if $self->verbose |
|
435
|
0 |
0 |
if $self->verbose |
|
436
|
0 |
0 |
if @vers and $vers[0][0] ne $row->{'version'} |
|
440
|
0 |
0 |
if $self->verbose |
|
441
|
0 |
0 |
unless $m{$row->{'version'}} |
|
446
|
0 |
0 |
if ($row->{'platform'} and $prefs->{'platform'} and $prefs->{'platform'} ne 'ALL') |
|
451
|
0 |
0 |
if ($1 and $1 eq 'NOT') { } |
|
452
|
0 |
0 |
if $self->verbose |
|
453
|
0 |
0 |
if $row->{'platform'} =~ /$prefs->{'platform'}/ |
|
455
|
0 |
0 |
if $self->verbose |
|
456
|
0 |
0 |
unless $row->{'platform'} =~ /$prefs->{'platform'}/ |
|
461
|
0 |
0 |
if ($row->{'perl'} and $prefs->{'perl'} and $prefs->{'perl'} ne 'ALL') |
|
471
|
0 |
0 |
if ($1 and $1 eq 'NOT') { } |
|
472
|
0 |
0 |
if $self->verbose |
|
473
|
0 |
0 |
if $perlv =~ /$prefs->{'perl'}/ and $v =~ /$prefs->{'perl'}/ |
|
475
|
0 |
0 |
if $self->verbose |
|
476
|
0 |
0 |
unless $perlv =~ /$prefs->{'perl'}/ or $v =~ /$prefs->{'perl'}/ |
|
481
|
0 |
0 |
if $self->verbose |
|
482
|
0 |
0 |
if not $prefs->{'patches'} and $row->{'perl'} =~ /(RC\d+|patch)/ |
|
485
|
0 |
0 |
if ($prefs->{'tuple'} eq 'FIRST') |
|
488
|
0 |
0 |
if $self->verbose |
|
489
|
0 |
0 |
if @count > 0 |
|
492
|
0 |
0 |
if $self->verbose |
|
494
|
0 |
0 |
if ($mode eq 'reports') |
|
503
|
0 |
0 |
unless $rows |
|
505
|
0 |
0 |
if ($mode ne 'reports') |
|
507
|
0 |
0 |
if $self->verbose |
|
510
|
0 |
0 |
if $self->verbose |
|
513
|
0 |
0 |
$pause ? : |
|
526
|
0 |
0 |
if (not $prefs->{'active'} or $prefs->{'active'} == 0) |
|
534
|
0 |
0 |
unless @auth |
|
536
|
0 |
0 |
unless @dist |
|
539
|
0 |
0 |
if $self->verbose |
|
568
|
0 |
0 |
unless $reports |
|
569
|
0 |
0 |
if ($self->verbose) { } |
|
592
|
0 |
0 |
if $self->nomail |
|
603
|
0 |
0 |
if ($full) |
|
640
|
0 |
0 |
unless (-f $self->lastmail) |
|
645
|
0 |
0 |
if (defined $id) |
|
647
|
0 |
0 |
if ($text =~ /$mode=\d+/) { } |
|
658
|
0 |
0 |
if ($id) = $text =~ /$mode=(\d+)/ |
|
665
|
0 |
0 |
unless (defined $id) |
|
667
|
0 |
0 |
@lastid ? : |
|
673
|
0 |
0 |
if $self->nomail |
|
685
|
0 |
0 |
if ($mode eq 'monthly') { } |
|
|
0 |
0 |
elsif ($mode eq 'daily' or $mode eq 'reports') { } |
|
694
|
0 |
0 |
if ($date[3] < 1) |
|
696
|
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) { } |
|
705
|
0 |
0 |
if ($date[4] < 1) |
|
713
|
0 |
0 |
unless @report |
|
722
|
0 |
0 |
unless $author |
|
725
|
0 |
0 |
if ($author and $dist) |
|
726
|
0 |
0 |
if (defined $PREFS{$author}{'dists'}{$dist}) |
|
731
|
0 |
0 |
if (@rows) |
|
740
|
0 |
0 |
if ($author) |
|
741
|
0 |
0 |
if (defined $PREFS{$author}{'default'}) |
|
746
|
0 |
0 |
if (@auth) |
|
750
|
0 |
0 |
if (@rows) { } |
|
807
|
0 |
0 |
if ($nntpid) { } |
|
814
|
0 |
0 |
if $rows[0]{'article'} =~ /=3D/ |
|
816
|
0 |
0 |
unless $mail |
|
821
|
0 |
0 |
unless $subject |
|
829
|
0 |
0 |
if $encoding and $encoding eq 'base64' |
|
833
|
0 |
0 |
$pause ? : |
|
845
|
0 |
0 |
unless @rows |
|
848
|
0 |
0 |
if ($@) |
|
871
|
0 |
0 |
$author2 ? : |
|
872
|
0 |
0 |
$pause ? : |
|
889
|
0 |
0 |
unless ($parms->{'author'}) |
|
913
|
0 |
0 |
unless $self->tt->process($template, $parms, \$text) |
|
918
|
0 |
0 |
if $parms->{'reply'} |
|
926
|
0 |
0 |
if ($self->nomail) { } |
|
|
0 |
0 |
elsif (my $fh = 'IO::File'->new($cmd)) { } |
|
929
|
0 |
0 |
unless my $fh = 'IO::File'->new('mailer-debug.log', 'a+') |
|
956
|
0 |
0 |
if ($file and -f $file) { } |
|
965
|
0 |
0 |
if ($response->is_success) { } |
|
968
|
0 |
0 |
unless $data |
|
975
|
0 |
0 |
unless $p |
|
991
|
0 |
0 |
unless $creator and $self->{'testers'}{$creator} |
|
1005
|
0 |
0 |
unless $dist and $vers |
|
1012
|
0 |
0 |
unless $dist and $vers |
|
1014
|
0 |
0 |
unless ($AUTHORS{$dist} and $AUTHORS{$dist}{$vers}) |
|
1016
|
0 |
0 |
@author ? : |
|
1027
|
0 |
0 |
if $@ or not $mech->success or not $mech->content |
|
1032
|
0 |
0 |
unless $data |
|
1044
|
0 |
0 |
if $SPONSORS[-1]{'url'} |
|
1045
|
0 |
0 |
if $SPONSORS[-1]{'body'} |
|
1046
|
0 |
0 |
if $SPONSORS[-1]{'body'} |
|
1065
|
0 |
0 |
unless my $log = $self->logfile |
|
1066
|
0 |
0 |
unless -f $log |
|
1071
|
0 |
0 |
$self->logclean ? : |
|
1074
|
0 |
0 |
unless my $fh = 'IO::File'->new($log, $mode) |
|
1083
|
0 |
0 |
if defined $value |