| line |
true |
false |
branch |
|
116
|
0 |
0 |
unless scalar(@{$$this{'log'};} > 0) |
|
121
|
0 |
0 |
if ($smtp = 'Net::SMTP'->new($smtp_server)) { } |
|
148
|
0 |
0 |
if $$this{'level'} == 2 |
|
153
|
0 |
0 |
if ($$this{'level'} >= 1) |
|
155
|
0 |
0 |
if ($config->get('use_syslog') == 1) |
|
162
|
0 |
0 |
if ($config->get('use_syslog') == 1) { } |
|
168
|
0 |
0 |
if ($config->get('use_syslog') == 1) |
|
176
|
0 |
0 |
if ($config->get('mail_to') =~ /\S/ and $config->get('send_warn') == 1) { } |
|
179
|
0 |
0 |
if $config->get('use_syslog') == 1 |
|
189
|
0 |
0 |
if ($config->get('mail_to') =~ /\S/) |
|
192
|
0 |
0 |
if $config->get('use_syslog') == 1 |
|
197
|
0 |
1 |
if $log |
|
217
|
0 |
0 |
/^-/ ? : |
|
238
|
0 |
0 |
unless exists $$this{'args'}{$arg} |
|
251
|
0 |
0 |
unless defined $confname |
|
253
|
0 |
0 |
unless my $conffile = 'Config::General'->new(-'ConfigFile', $confname, -'ExtendedAccess', 1) |
|
259
|
0 |
0 |
unless exists $$this{'default'}{$k} |
|
271
|
0 |
0 |
if exists $$this{'arg'}{$var} |
|
272
|
0 |
0 |
if exists $$this{'conf'}{$var} |
|
273
|
0 |
0 |
if exists $$this{'default'}{$var} |
|
303
|
0 |
0 |
unless my $d = 'DirHandle'->new($dstdir) |
|
308
|
0 |
0 |
unless $config->get('continue') |
|
329
|
0 |
0 |
if (grep /^$running$/, @files) |
|
333
|
0 |
0 |
if (time - $st->ctime < $config->get('max_runtime') * 60) { } |
|
353
|
0 |
0 |
if (open F, "$dstdir/.$interval.ctl") { } |
|
357
|
0 |
0 |
if ($line =~ /^\s*nb_archives\s*:\s*\d+\s*$/) { } |
|
374
|
0 |
0 |
unless open F, ">$dstdir/.$interval.ctl" |
|
387
|
0 |
0 |
if @archives == 0 |
|
394
|
0 |
0 |
if ($require != -1) { } |
|
396
|
0 |
0 |
if ($require > $found) { } |
|
|
0 |
0 |
elsif ($require < $found) { } |
|
400
|
0 |
0 |
$un ? : |
|
428
|
0 |
0 |
if @files != 0 |
|
433
|
0 |
0 |
unless mkdir $dir |
|
445
|
0 |
0 |
$config->get('refresh') || $config->get('update') ? : |
|
450
|
0 |
0 |
if $config->get('update') |
|
455
|
0 |
0 |
if ($config->get('no-links') == 1) { } |
|
461
|
0 |
0 |
exists $$this{'linkdest'} ? : |
|
474
|
0 |
0 |
unless -d "$dstdir/$running" |
|
495
|
0 |
0 |
if (scalar grep(/^$interval.$i$/, @files) == 1) { } |
|
499
|
0 |
0 |
if $j > $require or $j == 0 |
|
520
|
0 |
0 |
unless $exist[$i] == 1 |
|
521
|
0 |
0 |
if defined $roll[$i] and $roll[$i] == 1 |
|
522
|
0 |
0 |
if $next_rank[$i] != -1 and defined $place[$next_rank[$i]] and $place[$next_rank[$i]] == 1 |
|
530
|
0 |
0 |
if ($next_rank[$i] == -1) |
|
540
|
0 |
0 |
unless (defined $place[$next_rank[$i]] and $place[$next_rank[$i]] == 1) |
|
556
|
0 |
0 |
if ($new == -1) { } |
|
564
|
0 |
0 |
unless File::Path::Tiny::rm($path) |
|
579
|
0 |
0 |
unless rename $src, $dst |
|
582
|
0 |
0 |
if $$this{'NORMAL'} == 0 |
|
589
|
0 |
0 |
if $$this{'NORMAL'} == 0 |
|
590
|
0 |
0 |
unless rename $src, $dst |
|
649
|
0 |
0 |
unless my $fcmd = 'FileHandle'->new("$cmd 2>&1|") |
|
659
|
0 |
0 |
if ($rc) |
|
666
|
0 |
0 |
if $! |
|
675
|
0 |
0 |
if exists $ok_codes{$retcode} and $ok_codes{$retcode} == 1 |
|
678
|
0 |
0 |
unless (exists $warn_codes{$retcode} and $warn_codes{$retcode} == 1) |
|
696
|
0 |
0 |
unless GetOptions \%arg_conf, 'init=s', \$init, 'c=s', \$config_file, 'continue', 'help', \&_usage, 'man', \&_man, 'debug', 'dry-run', 'link-dest=s', 'mail_from=s', 'mail_to=s', 'max_runtime=i', 'no-links', 'no-roll', 'refresh', 'rsync_retcode_ok=s', 'rsync_retcode_warn=s', 'ro=s@', 'ro_default=s', 'send_warn=i', 'smtp_server=s', 'update', 'use_syslog=i', 'verbose' |
|
724
|
0 |
0 |
if ($config_file) { } |
|
738
|
0 |
0 |
$config->get('verbose') ? : |
|
|
0 |
0 |
$config->get('debug') ? : |
|
742
|
0 |
0 |
unless my $interval = shift @ARGV |
|
746
|
0 |
0 |
if ($init) { } |
|
748
|
0 |
0 |
unless $init =~ /^\d+$/ |
|
749
|
0 |
0 |
unless $dstdir = shift @ARGV |
|
753
|
0 |
0 |
unless $srcdir = shift @ARGV |
|
754
|
0 |
0 |
unless $dstdir = shift @ARGV |
|
757
|
0 |
0 |
if scalar @ARGV != 0 |
|
761
|
0 |
0 |
if ($init) { } |
|
769
|
0 |
0 |
if ($rocknRoll->rock($srcdir) == 0) |
|
774
|
0 |
0 |
unless $config->get('no-roll') or $config->get('refresh') or $config->get('update') |