| line |
true |
false |
branch |
|
266
|
0 |
2 |
unless &GetOptions(\%options, 'config=s', 'lastmail=s', 'mailrc=s', 'test=i', 'logfile=s', 'logclean', 'verbose', 'nomail', 'mode=s', 'help|h', 'version|v')
|
|
282
|
1 |
5 |
if defined $hash{$_}
|
|
285
|
0 |
2 |
if $options{'help'}
|
|
286
|
0 |
2 |
if $options{'version'}
|
|
289
|
1 |
1 |
unless $options{'config'}
|
|
290
|
1 |
0 |
unless -f $options{'config'}
|
|
297
|
0 |
0 |
unless $cfg->SectionExists($db)
|
|
301
|
0 |
0 |
if defined $val
|
|
304
|
0 |
0 |
unless $self->{$db}
|
|
305
|
0 |
0 |
if $opts{'driver'} =~ /mysql/i
|
|
309
|
0 |
0 |
if $self->test
|
|
322
|
0 |
0 |
if ($mode =~ /day/)
|
|
327
|
0 |
0 |
unless ($mode =~ /^(daily|weekly|reports|monthly|sun|mon|tue|wed|thu|fri|sat)$/)
|
|
371
|
0 |
0 |
if ($self->test) { }
|
|
|
0 |
0 |
elsif ($mode ne 'daily') { }
|
|
375
|
0 |
0 |
unless @authors
|
|
381
|
0 |
0 |
unless ($next)
|
|
390
|
0 |
0 |
if $self->verbose
|
|
397
|
0 |
0 |
if $self->verbose
|
|
400
|
0 |
0 |
if $self->verbose
|
|
401
|
0 |
0 |
unless $author
|
|
403
|
0 |
0 |
unless ($author)
|
|
416
|
0 |
0 |
if ($prefs->{'active'} == 2)
|
|
418
|
0 |
0 |
if $self->verbose
|
|
424
|
0 |
0 |
$prefs ? :
|
|
|
0 |
0 |
if $self->verbose
|
|
425
|
0 |
0 |
unless $prefs
|
|
426
|
0 |
0 |
if $self->verbose
|
|
427
|
0 |
0 |
if $prefs->{'ignored'}
|
|
428
|
0 |
0 |
if $self->verbose
|
|
429
|
0 |
0 |
if $prefs->{'report'} != $report_type
|
|
430
|
0 |
0 |
if $self->verbose
|
|
431
|
0 |
0 |
if $self->verbose
|
|
432
|
0 |
0 |
unless $prefs->{'grades'}{$row->{'state'}} or $prefs->{'grades'}{'ALL'}
|
|
433
|
0 |
0 |
if $self->verbose
|
|
440
|
0 |
0 |
if ($row->{'version'} and $prefs->{'version'} and $prefs->{'version'} ne 'ALL')
|
|
441
|
0 |
0 |
if ($prefs->{'version'} eq 'LATEST') { }
|
|
443
|
0 |
0 |
if $self->verbose
|
|
444
|
0 |
0 |
if $self->verbose
|
|
445
|
0 |
0 |
if @vers and $vers[0][0] ne $row->{'version'}
|
|
449
|
0 |
0 |
if $self->verbose
|
|
450
|
0 |
0 |
unless $m{$row->{'version'}}
|
|
455
|
0 |
0 |
if ($row->{'platform'} and $prefs->{'platform'} and $prefs->{'platform'} ne 'ALL')
|
|
460
|
0 |
0 |
if ($1 and $1 eq 'NOT') { }
|
|
461
|
0 |
0 |
if $self->verbose
|
|
462
|
0 |
0 |
if $row->{'platform'} =~ /$prefs->{'platform'}/
|
|
464
|
0 |
0 |
if $self->verbose
|
|
465
|
0 |
0 |
unless $row->{'platform'} =~ /$prefs->{'platform'}/
|
|
470
|
0 |
0 |
if ($row->{'perl'} and $prefs->{'perl'} and $prefs->{'perl'} ne 'ALL')
|
|
480
|
0 |
0 |
if ($1 and $1 eq 'NOT') { }
|
|
481
|
0 |
0 |
if $self->verbose
|
|
482
|
0 |
0 |
if $perlv =~ /$prefs->{'perl'}/ and $v =~ /$prefs->{'perl'}/
|
|
484
|
0 |
0 |
if $self->verbose
|
|
485
|
0 |
0 |
unless $perlv =~ /$prefs->{'perl'}/ or $v =~ /$prefs->{'perl'}/
|
|
490
|
0 |
0 |
if $self->verbose
|
|
491
|
0 |
0 |
if not $prefs->{'patches'} and $row->{'perl'} =~ /(RC\d+|patch)/
|
|
494
|
0 |
0 |
if ($prefs->{'tuple'} eq 'FIRST')
|
|
497
|
0 |
0 |
if $self->verbose
|
|
498
|
0 |
0 |
if @count > 0
|
|
501
|
0 |
0 |
if $self->verbose
|
|
503
|
0 |
0 |
if ($mode eq 'reports')
|
|
512
|
0 |
0 |
unless $rows
|
|
514
|
0 |
0 |
if ($mode ne 'reports')
|
|
516
|
0 |
0 |
if $self->verbose
|
|
519
|
0 |
0 |
if $self->verbose
|
|
522
|
0 |
0 |
$pause ? :
|
|
535
|
0 |
0 |
if (not $prefs->{'active'} or $prefs->{'active'} == 0)
|
|
543
|
0 |
0 |
unless @auth
|
|
545
|
0 |
0 |
unless @dist
|
|
548
|
0 |
0 |
if $self->verbose
|
|
577
|
0 |
0 |
unless $reports
|
|
578
|
0 |
0 |
if ($self->verbose) { }
|
|
601
|
0 |
0 |
if $self->nomail
|
|
612
|
0 |
0 |
if ($full)
|
|
649
|
0 |
0 |
unless (-f $self->lastmail)
|
|
654
|
0 |
0 |
if (defined $id)
|
|
656
|
0 |
0 |
if ($text =~ /$mode=\d+/) { }
|
|
667
|
0 |
0 |
if ($id) = $text =~ /$mode=(\d+)/
|
|
674
|
0 |
0 |
unless (defined $id)
|
|
676
|
0 |
0 |
@lastid ? :
|
|
682
|
0 |
0 |
if $self->nomail
|
|
694
|
0 |
0 |
if ($mode eq 'monthly') { }
|
|
|
0 |
0 |
elsif ($mode eq 'daily' or $mode eq 'reports') { }
|
|
703
|
0 |
0 |
if ($date[3] < 1)
|
|
705
|
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) { }
|
|
714
|
0 |
0 |
if ($date[4] < 1)
|
|
722
|
0 |
0 |
unless @report
|
|
731
|
0 |
0 |
unless $author
|
|
734
|
0 |
0 |
if ($author and $dist)
|
|
735
|
0 |
0 |
if (defined $PREFS{$author}{'dists'}{$dist})
|
|
740
|
0 |
0 |
if (@rows)
|
|
749
|
0 |
0 |
if ($author)
|
|
750
|
0 |
0 |
if (defined $PREFS{$author}{'default'})
|
|
755
|
0 |
0 |
if (@auth)
|
|
759
|
0 |
0 |
if (@rows) { }
|
|
816
|
0 |
0 |
if ($nntpid) { }
|
|
823
|
0 |
0 |
if $rows[0]{'article'} =~ /=3D/
|
|
825
|
0 |
0 |
unless $mail
|
|
830
|
0 |
0 |
unless $subject
|
|
838
|
0 |
0 |
if $encoding and $encoding eq 'base64'
|
|
842
|
0 |
0 |
$pause ? :
|
|
854
|
0 |
0 |
unless @rows
|
|
858
|
0 |
0 |
if ($row->{'fact'}) { }
|
|
862
|
0 |
0 |
if $@
|
|
869
|
0 |
0 |
unless ($data)
|
|
892
|
0 |
0 |
$author2 ? :
|
|
893
|
0 |
0 |
$pause ? :
|
|
920
|
0 |
0 |
if $@
|
|
928
|
0 |
0 |
unless ($parms->{'author'})
|
|
952
|
0 |
0 |
unless $self->tt->process($template, $parms, \$text)
|
|
957
|
0 |
0 |
if $parms->{'reply'}
|
|
965
|
0 |
0 |
if ($self->nomail) { }
|
|
|
0 |
0 |
elsif (my $fh = 'IO::File'->new($cmd)) { }
|
|
968
|
0 |
0 |
unless my $fh = 'IO::File'->new('mailer-debug.log', 'a+')
|
|
995
|
0 |
0 |
if ($file and -f $file) { }
|
|
1004
|
0 |
0 |
if ($response->is_success) { }
|
|
1007
|
0 |
0 |
unless $data
|
|
1014
|
0 |
0 |
unless $p
|
|
1030
|
0 |
0 |
unless $creator and $self->{'testers'}{$creator}
|
|
1044
|
0 |
0 |
unless $dist and $vers
|
|
1051
|
0 |
0 |
unless $dist and $vers
|
|
1053
|
0 |
0 |
unless ($AUTHORS{$dist} and $AUTHORS{$dist}{$vers})
|
|
1055
|
0 |
0 |
@author ? :
|
|
1069
|
0 |
0 |
if ($@ or not $mech->success or not $mech->content) { }
|
|
1070
|
0 |
0 |
if (-f $sponsorfile) { }
|
|
1081
|
0 |
0 |
unless $data
|
|
1093
|
0 |
0 |
if $SPONSORS[-1]{'url'}
|
|
1094
|
0 |
0 |
if $SPONSORS[-1]{'body'}
|
|
1095
|
0 |
0 |
if $SPONSORS[-1]{'body'}
|
|
1117
|
0 |
0 |
unless my $log = $self->logfile
|
|
1118
|
0 |
0 |
unless -f $log
|
|
1123
|
0 |
0 |
$self->logclean ? :
|
|
1126
|
0 |
0 |
unless my $fh = 'IO::File'->new($log, $mode)
|
|
1135
|
0 |
0 |
if defined $value
|