| 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) { } |
|
247
|
0 |
0 |
if ($protocol eq 'ftp' and $options->{'use_TLS'}) |
|
254
|
0 |
0 |
unless my $class = $protocol_to_class{$protocol} |
|
261
|
0 |
0 |
$options->{'copy_utime'} ? : |
|
|
0 |
0 |
$protocol eq 'ftps' ? : |
|
271
|
0 |
0 |
unless $ftp->ensure_all |
|
291
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
303
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
322
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
339
|
0 |
0 |
if ($dbversion < $self->DATABASE_SCHEMA_VERSION) |
|
349
|
0 |
0 |
if ($dbversion <= 0) |
|
351
|
0 |
0 |
if ($self->{'verbose'}) |
|
381
|
0 |
0 |
unless (exists $options{'copy_utime'}) |
|
386
|
0 |
0 |
if ($self->{'verbose'} >= 3) |
|
395
|
0 |
0 |
unless (eval {
do {
require URI::ftps
}
}) |
|
400
|
0 |
0 |
$remote =~ /^ftps:/ ? : |
|
408
|
0 |
0 |
unless defined $self->{'username'} |
|
411
|
0 |
0 |
if ($self->{'verbose'}) |
|
423
|
0 |
0 |
unless chdir $local_dir |
|
434
|
0 |
0 |
unless $ftp->host($self->{'host'}) and $ftp->login($self->{'username'}) and $ftp->binary |
|
437
|
0 |
0 |
if ($self->{'recheck'}) |
|
449
|
0 |
0 |
unless ($remote_mtime) |
|
452
|
0 |
0 |
if ($self->{'verbose'}) |
|
457
|
0 |
0 |
unless ($self->{'dry_run'}) |
|
495
|
0 |
0 |
if ($filename =~ /$sort_last_regexps->[$i]/) |
|
502
|
0 |
0 |
unless $local_filenames_hash->{$a} <=> $local_filenames_hash->{$b} |
|
513
|
0 |
0 |
if ($filename =~ /[\r\n]/s) |
|
518
|
0 |
0 |
if (my $action_files_hash = $self->{'action_files_hash'}) |
|
521
|
0 |
0 |
unless (exists $action_files_hash->{$filename_abs}) |
|
527
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
536
|
0 |
0 |
$isdir ? : |
|
537
|
0 |
0 |
$isdir ? : |
|
539
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
545
|
0 |
0 |
if (defined $remote_mtime and $remote_mtime == $local_mtime and defined $remote_size and $remote_size == $local_size) |
|
547
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
553
|
0 |
0 |
unless ($self->{'catchup'}) |
|
554
|
0 |
0 |
if ($isdir) { } |
|
558
|
0 |
0 |
if ($self->{'verbose'}) |
|
564
|
0 |
0 |
if $self->{'dry_run'} |
|
575
|
0 |
0 |
if ($self->{'verbose'}) |
|
577
|
0 |
0 |
$size_kbytes >= 10 ? : |
|
587
|
0 |
0 |
if $self->{'dry_run'} |
|
590
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
599
|
0 |
0 |
if (my $throttle_options = $options{'throttle'}) { } |
|
607
|
0 |
0 |
unless open $fh, '<', $filename |
|
612
|
0 |
0 |
unless close $fh |
|
619
|
0 |
0 |
unless $put |
|
624
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
627
|
0 |
0 |
unless $self->ftp->rename($tmpname, $filename) |
|
642
|
0 |
0 |
if $local_filenames_hash->{$filename} |
|
643
|
0 |
0 |
if (my $action_files_hash = $self->{'action_files_hash'}) |
|
644
|
0 |
0 |
unless (exists $action_files_hash->{$filename}) |
|
650
|
0 |
0 |
unless ($self->{'catchup'}) |
|
651
|
0 |
0 |
if ($isdir) { } |
|
654
|
0 |
0 |
if ($self->{'verbose'}) |
|
658
|
0 |
0 |
if $self->{'dry_run'} |
|
661
|
0 |
0 |
unless $self->ftp->rmdir($unslashed, 1) |
|
665
|
0 |
0 |
if ($self->{'verbose'}) |
|
669
|
0 |
0 |
if $self->{'dry_run'} |
|
672
|
0 |
0 |
unless $self->ftp->delete($filename) |
|
681
|
0 |
0 |
unless $ftp->all_ok |
|
684
|
0 |
0 |
unless ($any_changes) |
|
685
|
0 |
0 |
if ($self->{'verbose'}) |
|
705
|
0 |
0 |
unless $options->{'copy_utime'} |
|
706
|
0 |
0 |
if $self->{'protocol'} eq 'sftp' |
|
711
|
0 |
0 |
if ($options->{'copy_utime'} ne '2arg' and $options->{'copy_utime'} ne '5arg') |
|
715
|
0 |
0 |
if ($ret == 2) |
|
725
|
0 |
0 |
if ($options->{'copy_utime'} eq 'MFMT' or $code != 500) |
|
736
|
0 |
0 |
if ($options->{'copy_utime'} ne 'MFMT' and $options->{'copy_utime'} ne '5arg') |
|
740
|
0 |
0 |
if ($ret == 2) |
|
750
|
0 |
0 |
if ($options->{'copy_utime'} eq '2arg' or $code != 500) |
|
763
|
0 |
0 |
if ($options->{'copy_utime'} ne 'MFMT' and $options->{'copy_utime'} ne '2arg') |
|
770
|
0 |
0 |
if ($ret == 2) |
|
780
|
0 |
0 |
if ($options->{'copy_utime'} eq '5arg' or $code != 500) |
|
788
|
0 |
0 |
if ($options->{'copy_utime'} eq 'if_possible') |
|
815
|
0 |
0 |
if ($self->{'verbose'} >= 3) |
|
823
|
0 |
0 |
if ($self->{'verbose'} >= 3) |
|
838
|
0 |
0 |
if ($basename eq $database_filename or $basename eq $database_journal_filename) |
|
844
|
0 |
0 |
if ($basename eq $exclude) |
|
850
|
0 |
0 |
if (defined $re and $basename =~ /$re/) |
|
856
|
0 |
0 |
if (defined $re and $fullname =~ /$re/) |
|
866
|
0 |
0 |
unless (-d $st) |
|
876
|
0 |
0 |
if $relname eq '.' |
|
877
|
0 |
0 |
if (-d $fullname) |
|
891
|
0 |
0 |
if ($self->{'verbose'} >= 3) |
|
924
|
0 |
0 |
if ($self->{'verbose'} >= 2) |
|
931
|
0 |
0 |
unless ($ftp->ok) |
|
946
|
0 |
0 |
if ($dirname ne '') |
|
948
|
0 |
0 |
if ($type eq 'file') { } |
|
|
0 |
0 |
elsif ($type eq 'dir') { } |
|
952
|
0 |
0 |
unless (defined $remote_size) |
|
960
|
0 |
0 |
unless (defined $db_size) |
|
970
|
0 |
0 |
if ($remote_size != $db_size) |
|
979
|
0 |
0 |
if (defined $unique and $seen{$unique}++) |
|
987
|
0 |
0 |
$dirname eq '' ? : |
|
989
|
0 |
0 |
unless $filename =~ /$dirname_re/ |
|
991
|
0 |
0 |
if ($filename =~ m[/$]) |
|
1013
|
0 |
0 |
unless $str =~ /(.*?) (.*)$/ |
|
1084
|
0 |
0 |
if ($key =~ /$re/) |