| line |
true |
false |
branch |
|
92
|
0 |
0 |
if ($action) |
|
103
|
0 |
0 |
unless (Getopt::Long::GetOptions("help|?", $set_action, "verbose:+", \$self->{'verbose'}, "V+", \$self->{'verbose'}, "version", $set_action, "n|dry-run", \$self->{'dry_run'}, "recheck", \$self->{'recheck'}, "catchup", \$self->{'catchup'})) |
|
114
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
125
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
151
|
0 |
0 |
if (@ARGV) { } |
|
168
|
0 |
0 |
unless ($self->{'recheck'}) |
|
189
|
0 |
0 |
if $parent eq $filename |
|
200
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
204
|
0 |
0 |
if ($self->{'dry_run'}) |
|
205
|
0 |
0 |
if ($self->{'verbose'}) |
|
210
|
0 |
0 |
if (not defined do {
package App::Upfiles::Conf;
do $config_filename
}) |
|
213
|
0 |
0 |
if (not -e $config_filename) { } |
|
248
|
0 |
0 |
if ($protocol eq "ftp" and $options->{'use_TLS'}) |
|
255
|
0 |
0 |
unless my $class = $protocol_to_class{$protocol} |
|
263
|
0 |
0 |
$options->{'copy_utime'} ? : |
|
|
0 |
0 |
$options->{'passive'} ? : |
|
|
0 |
0 |
$protocol eq 'ftps' ? : |
|
273
|
0 |
0 |
unless $ftp->ensure_all |
|
293
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
305
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
324
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
341
|
0 |
0 |
if ($dbversion < $self->DATABASE_SCHEMA_VERSION) |
|
351
|
0 |
0 |
if ($dbversion <= 0) |
|
353
|
0 |
0 |
if ($self->{'verbose'}) |
|
383
|
0 |
0 |
unless (exists $options{'copy_utime'}) |
|
388
|
0 |
0 |
if ($self->{'verbose'} >= 3) |
|
397
|
0 |
0 |
unless (eval {
do {
require URI::ftps
}
}) |
|
402
|
0 |
0 |
$remote =~ /^ftps:/ ? : |
|
410
|
0 |
0 |
unless defined $self->{'username'} |
|
413
|
0 |
0 |
if ($self->{'verbose'}) |
|
425
|
0 |
0 |
unless chdir $local_dir |
|
436
|
0 |
0 |
unless $ftp->host($self->{'host'}) and $ftp->login($self->{'username'}) and $ftp->binary |
|
439
|
0 |
0 |
if ($self->{'recheck'}) |
|
451
|
0 |
0 |
unless ($remote_mtime) |
|
454
|
0 |
0 |
if ($self->{'verbose'}) |
|
459
|
0 |
0 |
unless ($self->{'dry_run'}) |
|
497
|
0 |
0 |
if ($filename =~ /$sort_last_regexps->[$i]/) |
|
504
|
0 |
0 |
unless $local_filenames_hash->{$a} <=> $local_filenames_hash->{$b} |
|
515
|
0 |
0 |
if ($filename =~ /[\r\n]/s) |
|
520
|
0 |
0 |
if (my $action_files_hash = $self->{'action_files_hash'}) |
|
523
|
0 |
0 |
unless (exists $action_files_hash->{$filename_abs}) |
|
529
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
538
|
0 |
0 |
$isdir ? : |
|
539
|
0 |
0 |
$isdir ? : |
|
541
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
547
|
0 |
0 |
if (defined $remote_mtime and $remote_mtime == $local_mtime and defined $remote_size and $remote_size == $local_size) |
|
549
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
555
|
0 |
0 |
unless ($self->{'catchup'}) |
|
556
|
0 |
0 |
if ($isdir) { } |
|
560
|
0 |
0 |
if ($self->{'verbose'}) |
|
566
|
0 |
0 |
if $self->{'dry_run'} |
|
577
|
0 |
0 |
if ($self->{'verbose'}) |
|
579
|
0 |
0 |
$size_kbytes >= 10 ? : |
|
589
|
0 |
0 |
if $self->{'dry_run'} |
|
592
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
601
|
0 |
0 |
if (my $throttle_options = $options{'throttle'}) { } |
|
609
|
0 |
0 |
unless open $fh, "<", $filename |
|
614
|
0 |
0 |
unless close $fh |
|
621
|
0 |
0 |
unless $put |
|
626
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
629
|
0 |
0 |
unless $self->ftp->rename($tmpname, $filename) |
|
644
|
0 |
0 |
if $local_filenames_hash->{$filename} |
|
645
|
0 |
0 |
if (my $action_files_hash = $self->{'action_files_hash'}) |
|
646
|
0 |
0 |
unless (exists $action_files_hash->{$filename}) |
|
652
|
0 |
0 |
unless ($self->{'catchup'}) |
|
653
|
0 |
0 |
if ($isdir) { } |
|
656
|
0 |
0 |
if ($self->{'verbose'}) |
|
660
|
0 |
0 |
if $self->{'dry_run'} |
|
663
|
0 |
0 |
unless $self->ftp->rmdir($unslashed, 1) |
|
667
|
0 |
0 |
if ($self->{'verbose'}) |
|
671
|
0 |
0 |
if $self->{'dry_run'} |
|
674
|
0 |
0 |
unless $self->ftp->delete($filename) |
|
683
|
0 |
0 |
unless $ftp->all_ok |
|
686
|
0 |
0 |
unless ($any_changes) |
|
687
|
0 |
0 |
if ($self->{'verbose'}) |
|
707
|
0 |
0 |
unless $options->{'copy_utime'} |
|
708
|
0 |
0 |
if $self->{'protocol'} eq "sftp" |
|
713
|
0 |
0 |
if ($options->{'copy_utime'} ne "2arg" and $options->{'copy_utime'} ne "5arg") |
|
717
|
0 |
0 |
if ($ret == 2) |
|
727
|
0 |
0 |
if ($options->{'copy_utime'} eq "MFMT" or $code != 500) |
|
738
|
0 |
0 |
if ($options->{'copy_utime'} ne "MFMT" and $options->{'copy_utime'} ne "5arg") |
|
742
|
0 |
0 |
if ($ret == 2) |
|
752
|
0 |
0 |
if ($options->{'copy_utime'} eq "2arg" or $code != 500) |
|
765
|
0 |
0 |
if ($options->{'copy_utime'} ne "MFMT" and $options->{'copy_utime'} ne "2arg") |
|
772
|
0 |
0 |
if ($ret == 2) |
|
782
|
0 |
0 |
if ($options->{'copy_utime'} eq "5arg" or $code != 500) |
|
790
|
0 |
0 |
if ($options->{'copy_utime'} eq "if_possible") |
|
817
|
0 |
0 |
if ($self->{'verbose'} >= 3) |
|
825
|
0 |
0 |
if ($self->{'verbose'} >= 3) |
|
840
|
0 |
0 |
if ($basename eq $database_filename or $basename eq $database_journal_filename) |
|
846
|
0 |
0 |
if ($basename eq $exclude) |
|
852
|
0 |
0 |
if (defined $re and $basename =~ /$re/) |
|
858
|
0 |
0 |
if (defined $re and $fullname =~ /$re/) |
|
868
|
0 |
0 |
unless (-d $st) |
|
878
|
0 |
0 |
if $relname eq "." |
|
879
|
0 |
0 |
if (-d $fullname) |
|
893
|
0 |
0 |
if ($self->{'verbose'} >= 3) |
|
926
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
933
|
0 |
0 |
unless ($ftp->ok) |
|
948
|
0 |
0 |
if ($dirname ne "") |
|
950
|
0 |
0 |
if ($type eq 'file') { } |
|
|
0 |
0 |
elsif ($type eq 'dir') { } |
|
954
|
0 |
0 |
unless (defined $remote_size) |
|
962
|
0 |
0 |
unless (defined $db_size) |
|
972
|
0 |
0 |
if ($remote_size != $db_size) |
|
981
|
0 |
0 |
if (defined $unique and $seen{$unique}++) |
|
989
|
0 |
0 |
$dirname eq '' ? : |
|
991
|
0 |
0 |
unless $filename =~ /$dirname_re/ |
|
993
|
0 |
0 |
if ($filename =~ m[/$]) |
|
1015
|
0 |
0 |
unless $str =~ /(.*?) (.*)$/ |
|
1086
|
0 |
0 |
if ($key =~ /$re/) |