| line |
true |
false |
branch |
|
103
|
0 |
4 |
if (not $type->can('can_ipv6')) { } |
|
|
4 |
0 |
elsif ($type->can_ipv6) { } |
|
109
|
4 |
0 |
if $IOCLASS eq 'IO::Socket::IP' |
|
133
|
24 |
4 |
if (defined $ver) { } |
|
154
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
168
|
0 |
0 |
if (ref $arg->{'SSL_Advanced'} eq 'HASH') |
|
176
|
0 |
0 |
if (ref $arg->{'SSL_Client_Certificate'} eq 'HASH') |
|
191
|
0 |
0 |
if $_ eq 'SSL_Client_Certificate' |
|
197
|
0 |
0 |
unless ($ssl_args{'SSL_use_cert'} or $ssl_args{'SSL_verify_mode'}) |
|
221
|
0 |
0 |
$encrypt_mode eq 'C' ? : |
|
227
|
0 |
0 |
if ($debug and defined $arg->{'DebugLogFile'}) |
|
240
|
0 |
0 |
$arg->{'DisableContext'} || $encrypt_mode eq 'C' ? : |
|
254
|
0 |
0 |
$debug == 99 ? : |
|
257
|
0 |
0 |
$debug == 90 ? : |
|
262
|
0 |
0 |
if ($use_logfile) { } |
|
|
0 |
0 |
elsif ($use_glob) { } |
|
263
|
0 |
0 |
$debug == 2 ? : |
|
265
|
0 |
0 |
if -f $f and $open_mode ne '>>' |
|
269
|
0 |
0 |
unless open $FTPS_ERROR, "$open_mode $f" |
|
280
|
0 |
0 |
if ($use_logfile or $use_glob) { } |
|
|
0 |
0 |
elsif ($debug) { } |
|
281
|
0 |
0 |
if ($f_exists) { } |
|
298
|
0 |
0 |
if ($debug) |
|
305
|
0 |
0 |
$debug >= 2 ? : |
|
|
0 |
0 |
$die ? : |
|
307
|
0 |
0 |
unless $host |
|
309
|
0 |
0 |
if $encrypt_mode ne 'I' and $encrypt_mode ne 'E' and $encrypt_mode ne 'C' |
|
314
|
0 |
0 |
if $data_prot ne 'C' and $data_prot ne 'S' and $data_prot ne 'E' and $data_prot ne 'P' |
|
321
|
0 |
0 |
if ($ipv6 and defined $domain) |
|
322
|
0 |
0 |
exists $arg->{'Domain'} ? : |
|
324
|
0 |
0 |
unless defined $domain |
|
331
|
0 |
0 |
if (exists $arg->{'ProxyArgs'}) { } |
|
343
|
0 |
0 |
if ($@) |
|
346
|
0 |
0 |
unless (defined $socket) |
|
360
|
0 |
0 |
if defined $localaddr |
|
361
|
0 |
0 |
if $ipv6 and defined $domain |
|
363
|
0 |
0 |
unless $socket = $IOCLASS->new(%socketArgs) |
|
384
|
0 |
0 |
if ($encrypt_mode eq 'C') { } |
|
386
|
0 |
0 |
unless response($socket) == 2 |
|
400
|
0 |
0 |
if (defined $ssl_args{'SSL_version'}) { } |
|
|
0 |
0 |
elsif ($use_ssl) { } |
|
410
|
0 |
0 |
unless exists $ssl_args{'Timeout'} |
|
415
|
0 |
0 |
if ($reuseSession) |
|
425
|
0 |
0 |
if ($type->can('can_client_sni') and $type->can_client_sni) |
|
426
|
0 |
0 |
unless exists $ssl_args{'SSL_hostname'} |
|
429
|
0 |
0 |
if ($encrypt_mode eq 'E') |
|
431
|
0 |
0 |
unless response($socket) == 2 |
|
434
|
0 |
0 |
$use_ssl ? : |
|
435
|
0 |
0 |
unless response($socket) == 2 |
|
444
|
0 |
0 |
unless ($obj) |
|
445
|
0 |
0 |
unless (exists do {
*$socket
}->{'_FTPSSL_arguments'}) |
|
447
|
0 |
0 |
if $debug |
|
453
|
0 |
0 |
unless (exists do {
*$obj
}->{'_FTPSSL_arguments'}) |
|
455
|
0 |
0 |
if $debug |
|
459
|
0 |
0 |
if ($encrypt_mode eq 'I') |
|
461
|
0 |
0 |
unless $obj->response == 2 |
|
471
|
0 |
0 |
if (defined $fixHelp) |
|
475
|
0 |
0 |
if (ref $fixHelp eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($fixHelp == -1) { } |
|
|
0 |
0 |
elsif ($fixHelp) { } |
|
478
|
0 |
0 |
if $k ne 'HELP' |
|
510
|
0 |
0 |
if defined $pasvHost |
|
514
|
0 |
0 |
if $xWait |
|
516
|
0 |
0 |
if $debug >= 2 |
|
520
|
0 |
0 |
if ($reuseSession or $enableCtx or ref $arg->{'SSL_Client_Certificate'} eq 'HASH') |
|
527
|
0 |
0 |
if (exists do {
*$obj
}->{'_SSL_arguments'}{$key}) |
|
531
|
0 |
0 |
if (exists do {
*$obj
}->{'_SSL_arguments'}{$key}) |
|
535
|
0 |
0 |
if (exists do {
*$obj
}->{'_SSL_arguments'}{$key}) { } |
|
|
0 |
0 |
elsif (exists $ssl_args{$key}) { } |
|
543
|
0 |
0 |
if (exists do {
*$obj
}->{'_SSL_arguments'}{$key} and not exists $ssl_reuse{$key}) |
|
554
|
0 |
0 |
if ($debug) |
|
555
|
0 |
0 |
if (ref $arg->{'SSL_Client_Certificate'} eq 'HASH') |
|
574
|
0 |
0 |
if (defined $user and $user ne '') |
|
585
|
0 |
0 |
if ($logged_on) |
|
588
|
0 |
0 |
if ($arg->{'debug_no_help'}) |
|
597
|
0 |
0 |
if ($arg->{'debug'} and $arg->{'debug_extra'}) |
|
599
|
0 |
0 |
if ($hlp eq '') { } |
|
600
|
0 |
0 |
$arg->{'OverrideHELP'} ? : |
|
608
|
0 |
0 |
if ($arg->{'FixPutTs'} and not $self->supported('MFMT')) |
|
611
|
0 |
0 |
if ($arg->{'FixGetTs'} and not $self->supported('MDTM')) |
|
623
|
0 |
0 |
unless $self->_quit |
|
634
|
0 |
0 |
unless ($epsv_mode eq '1' or $epsv_mode eq '2') |
|
639
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'dcsc_mode'} != 2 and do {
*$self
}->{'_FTPSSL_arguments'}{'dcsc_mode'} != 3) |
|
641
|
0 |
0 |
unless ($self->command('EPSV', 'ALL')->response == 2) |
|
648
|
0 |
0 |
$epsv_mode eq '1' ? : |
|
651
|
0 |
0 |
unless ($self->command('EPSV', $epsv_mode)->response == 2) |
|
667
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Pret'}) |
|
668
|
0 |
0 |
unless ($self->command('PRET', @_)->response == 2) |
|
674
|
0 |
0 |
unless ($self->command('PASV')->response == 2) |
|
675
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Pret'}) { } |
|
|
0 |
0 |
elsif ($self->last_message =~ /(^|\s)PRET($|[\s.!?])/i) { } |
|
695
|
0 |
0 |
unless ($msg =~ /(\d+)\s(.*)\(((\d+,?)+)\)\.?/) |
|
705
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'OverridePASV'}) |
|
718
|
0 |
0 |
$ipver == 2 ? : |
|
719
|
0 |
0 |
unless ($self->response == 2) |
|
726
|
0 |
0 |
unless ($msg =~ /[(](.)(.)(.)(\d+)(.)[)]/) |
|
742
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Crypt'} ne 'C') |
|
744
|
0 |
0 |
unless ($self->_prot) |
|
750
|
0 |
0 |
if ($mode == 1) { } |
|
|
0 |
0 |
elsif ($mode == 2 or $mode == 3) { } |
|
755
|
0 |
0 |
$mode == 4 || $mode == 5 || $mode == 6 ? : |
|
765
|
0 |
0 |
if $host eq '' or $port eq '' |
|
789
|
0 |
0 |
if (exists $ftps_ref->{'myProxyArgs'}) |
|
800
|
0 |
0 |
if ($ftps_ref->{'data_prot'} eq 'P') { } |
|
|
0 |
0 |
elsif ($ftps_ref->{'data_prot'} eq 'C' and exists $ftps_ref->{'myProxyArgs'}) { } |
|
|
0 |
0 |
elsif ($ftps_ref->{'data_prot'} eq 'C') { } |
|
801
|
0 |
0 |
if (exists $ftps_ref->{'myProxyArgs'}) |
|
810
|
0 |
0 |
unless $socket = 'Net::SSLeay::Handle'->make_socket($host, $port) |
|
815
|
0 |
0 |
unless $socket = 'Net::HTTPTunnel'->new(%proxyArgs) |
|
824
|
0 |
0 |
unless $socket = $IOCLASS->new(%socketArgs) |
|
849
|
0 |
0 |
if ($ftps_ref->{'data_prot'} eq 'P' and exists $ftps_ref->{'myContext'}) { } |
|
|
0 |
0 |
elsif ($ftps_ref->{'data_prot'} eq 'P') { } |
|
|
0 |
0 |
elsif ($ftps_ref->{'data_prot'} eq 'C') { } |
|
854
|
0 |
0 |
if ($self->can('can_client_sni') and $self->can_client_sni) |
|
858
|
0 |
0 |
unless $io = 'IO::Socket::SSL'->start_SSL($ftps_ref->{'data_ch'}, \%ssl_opts) |
|
886
|
0 |
0 |
if ($skt->can('autoflush')) { } |
|
903
|
0 |
0 |
if ($io->can('close')) { } |
|
931
|
0 |
0 |
$nlst_flg ? : |
|
|
0 |
0 |
unless ($self->prep_data_channel($nlst_flg ? 'NLST' : 'LIST')) |
|
935
|
0 |
0 |
$nlst_flg ? : |
|
|
0 |
0 |
unless ($nlst_flg ? $self->_nlst($path) : $self->_list($path)) |
|
945
|
0 |
0 |
unless (defined $io) |
|
950
|
0 |
0 |
unless (defined $len) |
|
951
|
0 |
0 |
if $! == 4 |
|
952
|
0 |
0 |
$nlst_flg ? : |
|
963
|
0 |
0 |
if ($self->response != 2) |
|
977
|
0 |
0 |
unless ($nlst_flg) |
|
978
|
0 |
0 |
if $dati =~ s/^\s*total\s+\d+\s*$//im |
|
983
|
0 |
0 |
if (defined $pattern) |
|
990
|
0 |
0 |
if ($nlst_flg) { } |
|
991
|
0 |
0 |
if ($pattern =~ /[*]/) |
|
1009
|
0 |
0 |
if $_ =~ /$pattern/i |
|
1015
|
0 |
0 |
$nlst_flg ? : |
|
1018
|
0 |
0 |
if ($len > 0) |
|
1025
|
0 |
0 |
if ($trail) |
|
1029
|
0 |
0 |
$dati ? : |
|
1037
|
0 |
0 |
unless -f $file_name |
|
1038
|
0 |
0 |
if do {
*$self
}->{'_FTPSSL_arguments'}{'type'} eq 'I' |
|
1042
|
0 |
0 |
unless (open $fd, "< $file_name") |
|
1058
|
0 |
0 |
unless (defined $len) |
|
1059
|
0 |
0 |
unless ($! == 4) |
|
1076
|
0 |
0 |
unless defined $offset |
|
1078
|
0 |
0 |
if ($offset > $max_offset) |
|
1084
|
0 |
0 |
if $offset == $max_offset |
|
1088
|
0 |
0 |
unless (open $fd, "+< $file_name") |
|
1094
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'type'} eq 'I') { } |
|
1095
|
0 |
0 |
unless (binmode $fd) |
|
1109
|
0 |
0 |
if $size > $offset |
|
1120
|
0 |
0 |
if ($diff == -1 and $cr_only) |
|
1130
|
0 |
0 |
if ($diff == 0) |
|
1136
|
0 |
0 |
if ($diff > 0) { } |
|
1138
|
0 |
0 |
if $size > $diff |
|
1148
|
0 |
0 |
unless $pos |
|
1151
|
0 |
0 |
unless (defined $len) |
|
1152
|
0 |
0 |
unless ($! == 4) |
|
1159
|
0 |
0 |
unless ($pos) |
|
1164
|
0 |
0 |
unless (truncate $fd, $pos) |
|
1182
|
0 |
0 |
if ($offset < -1) |
|
1189
|
0 |
0 |
unless ($file_loc) |
|
1195
|
0 |
0 |
if ($self->_isa_glob($file_loc)) { } |
|
1196
|
0 |
0 |
if ($offset == -1) |
|
1204
|
0 |
0 |
if ($offset == -1) { } |
|
|
0 |
0 |
elsif ($offset) { } |
|
1206
|
0 |
0 |
unless defined $offset |
|
1209
|
0 |
0 |
unless defined $offset |
|
1213
|
0 |
0 |
$offset ? : |
|
1214
|
0 |
0 |
unless (open $localfd, "$mode $file_loc") |
|
1222
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'type'} eq 'I') |
|
1223
|
0 |
0 |
unless (binmode $localfd) |
|
1224
|
0 |
0 |
if ($close_file) |
|
1226
|
0 |
0 |
unless $offset |
|
1233
|
0 |
0 |
unless ($self->prep_data_channel('RETR', $file_rem)) |
|
1234
|
0 |
0 |
if ($close_file) |
|
1236
|
0 |
0 |
unless $offset |
|
1243
|
0 |
0 |
defined $c && $c eq 'Net::FTPSSL::xget' ? : |
|
1244
|
0 |
0 |
$cb_idx == 1 ? : |
|
1248
|
0 |
0 |
$offset ? : |
|
1249
|
0 |
0 |
unless ($rest and $self->_retr($file_rem)) |
|
1250
|
0 |
0 |
if ($close_file) |
|
1252
|
0 |
0 |
unless $offset |
|
1255
|
0 |
0 |
if ($offset and $rest) |
|
1267
|
0 |
0 |
unless (defined $io) |
|
1268
|
0 |
0 |
if ($close_file) |
|
1270
|
0 |
0 |
unless $offset |
|
1276
|
0 |
0 |
if $trace_flag |
|
1283
|
0 |
0 |
unless (defined $len) |
|
1284
|
0 |
0 |
if $! == 4 |
|
1285
|
0 |
0 |
if $close_file |
|
1289
|
0 |
0 |
if ($fix_cr_issue) |
|
1291
|
0 |
0 |
if ($data eq "\r") |
|
1300
|
0 |
0 |
if ($last_char eq "\r") { } |
|
|
0 |
0 |
elsif ($prev ne '') { } |
|
1315
|
0 |
0 |
if $trace_flag and $cnt % 10 == 0 |
|
1320
|
0 |
0 |
if ($len > 0) |
|
1322
|
0 |
0 |
unless defined $written |
|
1328
|
0 |
0 |
if ($prev ne '') |
|
1331
|
0 |
0 |
if ($len > 0) |
|
1333
|
0 |
0 |
unless defined $written |
|
1341
|
0 |
0 |
if ($trail) |
|
1343
|
0 |
0 |
unless defined $written |
|
1347
|
0 |
0 |
if $trace_flag |
|
1352
|
0 |
0 |
if ($self->response != 2) |
|
1353
|
0 |
0 |
if $close_file |
|
1357
|
0 |
0 |
if ($close_file) |
|
1359
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'FixGetTs'}) |
|
1361
|
0 |
0 |
if $tm |
|
1373
|
0 |
0 |
if ($resp and do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm) |
|
1384
|
0 |
0 |
if ($resp and do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm) |
|
1396
|
0 |
0 |
if ($resp) |
|
1402
|
0 |
0 |
if ($msg =~ /(FILE|name):\s*([^\s)]+)($|[\s)])/im) { } |
|
|
0 |
0 |
elsif ($msg =~ /Transfer starting for\s+([^\s]+)($|\s)/im) { } |
|
|
0 |
0 |
elsif (do {
*$self
}->{'_FTPSSL_arguments'}{'uput'} == 1) { } |
|
1423
|
0 |
0 |
if ($requested_file_name ne '?') |
|
1426
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm) |
|
1453
|
0 |
0 |
unless defined $prefix |
|
1454
|
0 |
0 |
unless defined $postfix |
|
1460
|
0 |
0 |
if (defined $c and $c eq 'Net::FTPSSL::xput' || $c eq 'Net::FTPSSL::xtransfer') { } |
|
1474
|
0 |
0 |
if ($base ne $file) |
|
1477
|
0 |
0 |
if ($pbase eq $prefix) |
|
1488
|
0 |
0 |
if ($scratch_name eq $file) |
|
1503
|
0 |
0 |
unless ($file_rem) |
|
1504
|
0 |
0 |
if ($self->_isa_glob($file_loc)) |
|
1513
|
0 |
0 |
unless $scratch_name |
|
1515
|
0 |
0 |
unless ($self->all_supported('STOR', 'DELE', 'RNFR', 'RNTO')) |
|
1526
|
0 |
0 |
if ($resp) |
|
1540
|
0 |
0 |
if ($resp and do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} and defined $tm) |
|
1547
|
0 |
0 |
unless ($resp) |
|
1567
|
0 |
0 |
unless ($file_loc) |
|
1571
|
0 |
0 |
if ($self->_isa_glob($file_loc)) |
|
1577
|
0 |
0 |
unless $scratch_name |
|
1579
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'net_ftpssl_rest_offset'}) |
|
1587
|
0 |
0 |
if ($resp) |
|
1590
|
0 |
0 |
unless move($scratch_name, $file_loc) |
|
1608
|
0 |
0 |
if (ref $dest_ftp eq '' or ref $dest_ftp ne 'Net::FTPSSL') |
|
1623
|
0 |
0 |
if ($stmp != $dtmp) |
|
1631
|
0 |
0 |
if ($stmp ne $dtmp) |
|
1641
|
0 |
0 |
if (ref $remote_file or $remote_file eq '') |
|
1644
|
0 |
0 |
if (ref $dest_file or $dest_file eq '') |
|
1647
|
0 |
0 |
if ($offset < -1) |
|
1653
|
0 |
0 |
defined $c && $c eq 'Net::FTPSSL::xtransfer' ? : |
|
1654
|
0 |
0 |
$cb_idx == 1 ? : |
|
1655
|
0 |
0 |
$cb_idx == 1 ? : |
|
1661
|
0 |
0 |
if ($offset == -1) |
|
1663
|
0 |
0 |
unless defined $offset |
|
1669
|
0 |
0 |
unless $dest_ftp->prep_data_channel('STOR', $dest_file) |
|
1670
|
0 |
0 |
$offset ? : |
|
1672
|
0 |
0 |
unless ($restart and $response) |
|
1673
|
0 |
0 |
if $restart and $offset |
|
1678
|
0 |
0 |
unless defined $dio |
|
1683
|
0 |
0 |
unless ($self->prep_data_channel('RETR', $remote_file)) |
|
1688
|
0 |
0 |
$offset ? : |
|
1689
|
0 |
0 |
unless ($rest and $self->_retr($remote_file)) |
|
1690
|
0 |
0 |
if ($offset and $rest) |
|
1701
|
0 |
0 |
unless (defined $sio) |
|
1708
|
0 |
0 |
if $trace_flag |
|
1716
|
0 |
0 |
unless (defined $len) |
|
1717
|
0 |
0 |
if $! == 4 |
|
1723
|
0 |
0 |
if $trace_flag and $cnt % 10 == 0 |
|
1729
|
0 |
0 |
if ($len > 0) |
|
1731
|
0 |
0 |
unless (defined $written) |
|
1745
|
0 |
0 |
if ($trail and $len > 0) |
|
1747
|
0 |
0 |
unless (defined $written) |
|
1754
|
0 |
0 |
if $trace_flag |
|
1762
|
0 |
0 |
if ($resp1 != 2 or $resp2 != 2) |
|
1767
|
0 |
0 |
if ($cb_idx == 1 and $sArg->{'FixGetTs'} and $dArg->{'FixPutTs'}) |
|
1787
|
0 |
0 |
if (ref $dest_ftp eq '' or ref $dest_ftp ne 'Net::FTPSSL') |
|
1794
|
0 |
0 |
if (defined $sArg->{'net_ftpssl_rest_offset'}) |
|
1797
|
0 |
0 |
if (defined $dArg->{'net_ftpssl_rest_offset'}) |
|
1801
|
0 |
0 |
if ($self->_isa_glob($remote_file)) |
|
1804
|
0 |
0 |
if ($self->_isa_glob($dest_file)) |
|
1809
|
0 |
0 |
unless ($dest_ftp->all_supported('STOR', 'DELE', 'RNFR', 'RNTO')) |
|
1815
|
0 |
0 |
unless $scratch_name |
|
1819
|
0 |
0 |
if ($sdie != $ddie) |
|
1830
|
0 |
0 |
if ($resp) |
|
1844
|
0 |
0 |
if ($resp and $sArg->{'FixGetTs'} and $dArg->{'FixPutTs'}) |
|
1852
|
0 |
0 |
unless ($resp) |
|
1871
|
0 |
0 |
if ($offset >= $len) { } |
|
|
0 |
0 |
elsif ($offset) { } |
|
1897
|
0 |
0 |
if ($self->_isa_glob($file_loc) and not $file_rem) |
|
1901
|
0 |
0 |
unless ($file_rem) |
|
1905
|
0 |
0 |
if ($offset < -1) |
|
1914
|
0 |
0 |
if ($offset and $func ne 'put' and $func ne 'append') |
|
1918
|
0 |
0 |
if ($offset == -1) |
|
1920
|
0 |
0 |
unless (defined $offset) |
|
1930
|
0 |
0 |
if ($self->_isa_glob($file_loc)) { } |
|
1934
|
0 |
0 |
unless (open $localfd, "< $file_loc") |
|
1941
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'type'} eq 'I') |
|
1942
|
0 |
0 |
unless (binmode $localfd) |
|
1950
|
0 |
0 |
if ($func eq 'uput') { } |
|
|
0 |
0 |
elsif ($func eq 'xput') { } |
|
|
0 |
0 |
elsif ($func eq 'put') { } |
|
|
0 |
0 |
elsif ($func eq 'append') { } |
|
1960
|
0 |
0 |
unless ($self->prep_data_channel($cmd, $file_rem)) |
|
1961
|
0 |
0 |
if $close_file |
|
1966
|
0 |
0 |
unless (defined do {
*$self
}->{'_FTPSSL_arguments'}{'alloc_size'}) |
|
1967
|
0 |
0 |
if ($close_file and -f $file_loc) |
|
1977
|
0 |
0 |
if ($func eq 'uput') { } |
|
|
0 |
0 |
elsif ($func eq 'xput') { } |
|
|
0 |
0 |
elsif ($func eq 'put') { } |
|
|
0 |
0 |
elsif ($func eq 'append') { } |
|
1982
|
0 |
0 |
$offset ? : |
|
1990
|
0 |
0 |
unless ($restart and $response) |
|
1991
|
0 |
0 |
if $close_file |
|
1992
|
0 |
0 |
if ($restart and $offset and $func eq 'get') |
|
1999
|
0 |
0 |
unless $close_file |
|
2006
|
0 |
0 |
unless (defined $io) |
|
2007
|
0 |
0 |
if $close_file |
|
2012
|
0 |
0 |
if $trace_flag |
|
2018
|
0 |
0 |
unless (defined $len) |
|
2019
|
0 |
0 |
if $! == 4 |
|
2025
|
0 |
0 |
if ($fix_cr_issue) |
|
2031
|
0 |
0 |
if ($offset) |
|
2035
|
0 |
0 |
if $trace_flag and $cnt % 10 == 0 |
|
2038
|
0 |
0 |
if ($len > 0) |
|
2040
|
0 |
0 |
unless defined $written |
|
2049
|
0 |
0 |
if ($trail) |
|
2050
|
0 |
0 |
if ($fix_cr_issue) |
|
2056
|
0 |
0 |
if ($offset) |
|
2060
|
0 |
0 |
if ($len > 0) |
|
2062
|
0 |
0 |
unless defined $written |
|
2067
|
0 |
0 |
if $trace_flag |
|
2070
|
0 |
0 |
if ($close_file) |
|
2072
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'}) |
|
2080
|
0 |
0 |
if ($self->response != 2) |
|
2095
|
0 |
0 |
if ($self->supported('ALLO') and $self->_alloc($size)) { } |
|
2122
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'} =~ /\"(.*)\".*/) { } |
|
2193
|
0 |
0 |
if ($arg->{'OverrideHELP'} or exists $help->{$cmd}) { } |
|
2201
|
0 |
0 |
if ($result and $cmd eq 'SITE' and $sub_cmd ne '') |
|
2203
|
0 |
0 |
if (exists $help2->{$sub_cmd}) { } |
|
|
0 |
0 |
elsif (scalar keys %{$help2;} > 0) { } |
|
2215
|
0 |
0 |
if ($result and $cmd eq 'FEAT' and $sub_cmd ne '') |
|
2217
|
0 |
0 |
if (exists $feat2->{$sub_cmd}) { } |
|
2219
|
0 |
0 |
if (exists $feat2->{'OPTS'} and exists $feat2->{'OPTS'}{$sub_cmd}) |
|
2229
|
0 |
0 |
if ($result and $cmd eq 'OPTS' and $sub_cmd ne '') |
|
2231
|
0 |
0 |
if (exists $feat3->{'OPTS'} and exists $feat3->{'OPTS'}{$sub_cmd}) { } |
|
|
0 |
0 |
elsif (exists $feat3->{'sub_cmd'}) { } |
|
2253
|
0 |
0 |
unless defined $_ and $_ ne '' |
|
2255
|
0 |
0 |
if $self->supported($_) |
|
2259
|
0 |
0 |
$cnt >= 1 ? : |
|
2270
|
0 |
0 |
if do {
*$self
}->{'_FTPSSL_arguments'}{'OverrideHELP'} |
|
2274
|
0 |
0 |
unless defined $help |
|
2284
|
0 |
0 |
if $key eq 'HELP' and $help_flag |
|
2286
|
0 |
0 |
if ($mode and not exists $help->{$key}) { } |
|
|
0 |
0 |
elsif (not $mode and exists $help->{$key}) { } |
|
2305
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Crypt'} eq 'C') |
|
2311
|
0 |
0 |
unless ($self->_pbsz and $self->_prot($prot)) |
|
2320
|
0 |
0 |
$self->supported('NOOP') ? : |
|
2323
|
0 |
0 |
unless ($self->command('CCC')->response == 2) |
|
2337
|
0 |
0 |
unless ($self->stop_SSL('SSL_no_shutdown', 0, 'SSL_fast_shutdown', 1)) |
|
2354
|
0 |
0 |
if $ok eq 2 |
|
2357
|
0 |
0 |
if ($ok == 2) |
|
2385
|
0 |
0 |
defined $cmd ? : |
|
2386
|
0 |
0 |
if $cmd2 =~ /^\s*(\S+)(\s|$)/ |
|
2391
|
0 |
0 |
if ($cmd2 eq 'STOR' or $cmd2 eq 'RETR' or $cmd2 eq 'NLST' or $cmd2 eq 'LIST' or $cmd2 eq 'STOU' or $cmd2 eq 'APPE' or $cmd2 eq 'MLSD') { } |
|
|
0 |
0 |
elsif ($cmd2 eq 'CCC') { } |
|
|
0 |
0 |
elsif ($cmd2 eq '') { } |
|
|
0 |
0 |
elsif ($cmd2 eq 'HELP' and exists do {
*$self
}->{'_FTPSSL_arguments'}{'OverrideHELP'} || exists do {
*$self
}->{'_FTPSSL_arguments'}{'removeHELP'}) { } |
|
2414
|
0 |
0 |
if ($msg ne '') |
|
2465
|
0 |
0 |
if ($slp) |
|
2496
|
0 |
0 |
if ($resp and $opt ne do {
*$self
}->{'_FTPSSL_arguments'}{'data_prot'}) |
|
2555
|
0 |
0 |
if $res == 1 |
|
2560
|
0 |
0 |
if ($res == 5 and $msg =~ /Invalid number of parameters/) |
|
2604
|
0 |
0 |
if (defined $local) { } |
|
|
0 |
0 |
elsif (do {
*$self
}->{'_FTPSSL_arguments'}{'FixPutTs'} < 0) { } |
|
2605
|
0 |
0 |
$local ? : |
|
2614
|
0 |
0 |
if ($GMT_flag) { } |
|
2644
|
0 |
0 |
if ($msg =~ /(^|\D)(\d{14})($|\D)/) { } |
|
|
0 |
0 |
elsif ($msg =~ /(^|\D)19(\d{3})(\d{10})($|\D)/) { } |
|
2670
|
0 |
0 |
if ($self->command('MDTM', @_)->response == 2) |
|
2688
|
0 |
0 |
if (defined $local) { } |
|
|
0 |
0 |
elsif (do {
*$self
}->{'_FTPSSL_arguments'}{'FixGetTs'} < 0) { } |
|
2689
|
0 |
0 |
$local ? : |
|
2695
|
0 |
0 |
if ($self->command('MDTM', $remote_file)->response == 2) |
|
2699
|
0 |
0 |
if (defined $time_str and $time_str =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/) |
|
2705
|
0 |
0 |
if ($GMT_flag) { } |
|
2722
|
0 |
0 |
if ($self->supported('SIZE')) { } |
|
|
0 |
0 |
elsif ($self->supported('STAT')) { } |
|
|
0 |
0 |
elsif ($self->all_supported('MLST', 'OPTS')) { } |
|
2723
|
0 |
0 |
if ($self->command('SIZE', $file, @_)->response == 2 and $self->message =~ /\d+\s+(\d+)($|\D)/) |
|
2731
|
0 |
0 |
if ($self->command('STAT', $file, @_)->response == 2) |
|
2737
|
0 |
0 |
if ($cnt == 3 and $msg[1] =~ /\s(\d+)\s+$rFile/) |
|
2741
|
0 |
0 |
if ($cnt == 3 and $msg[1] =~ /\s(\d+)\s+(\S+)\s+(\d+)\s+(\d+:\d+)\s+$rFile/) |
|
2766
|
0 |
0 |
if (defined $size and $size >= 0) |
|
2786
|
0 |
0 |
if ($self->cwd($dir)) { } |
|
2823
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
2826
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'myContext'}) |
|
2833
|
0 |
0 |
if (exists do {
*$self
}->{'_SSL_arguments'}{$_}) { } |
|
|
0 |
0 |
elsif (exists do {
*$self
}->{'_FTPSSL_arguments'}{'start_SSL_opts'}{$_}) { } |
|
|
0 |
0 |
elsif (exists do {
*$self
}->{$_}) { } |
|
2852
|
0 |
0 |
if ($cnt > 0) |
|
2856
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
2865
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
2868
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'myContext'}) |
|
2876
|
0 |
0 |
if (defined $val) { } |
|
|
0 |
0 |
elsif (exists $dcValues{$key}) { } |
|
2889
|
0 |
0 |
if ($cnt > 0) |
|
2893
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
2923
|
0 |
0 |
unless ($all_cmds or exists $arg->{'help_cmds_msg'}) |
|
2929
|
0 |
0 |
if (exists $arg->{'removeHELP'} and $arg->{'removeHELP'} == 1) { } |
|
|
0 |
0 |
elsif (exists $arg->{'OverrideHELP'}) { } |
|
2933
|
0 |
0 |
if scalar keys %{$ft;} > 0 |
|
2948
|
0 |
0 |
if ($all_cmds and exists $arg->{'help_cmds_msg'}) { } |
|
|
0 |
0 |
elsif (exists $$arg{"help_${cmd}_msg"}) { } |
|
|
0 |
0 |
elsif (exists $arg->{'help_cmds_no_syntax_available'}) { } |
|
2951
|
0 |
0 |
if exists $arg->{$key} |
|
2957
|
0 |
0 |
if exists $arg->{$key} |
|
2961
|
0 |
0 |
if (exists $arg->{'help_cmds_found'}{$cmd} or $arg->{'OverrideHELP'}) { } |
|
2973
|
0 |
0 |
if ($all_cmds) { } |
|
2976
|
0 |
0 |
if $sts != 2 |
|
2983
|
0 |
0 |
if $sts != 2 |
|
2986
|
0 |
0 |
if (not $all_cmds and $arg->{'help_cmds_msg'} eq $self->last_message) |
|
2993
|
0 |
0 |
if ($all_cmds) { } |
|
|
0 |
0 |
elsif ($site_cmd) { } |
|
2997
|
0 |
0 |
if (scalar keys %help > 0) |
|
2998
|
0 |
0 |
if ($help{'FEAT'}) |
|
3002
|
0 |
0 |
unless $help{$_} |
|
3008
|
0 |
0 |
if ($help{'SITE'}) |
|
3011
|
0 |
0 |
if $self->last_status_code == 2 |
|
3015
|
0 |
0 |
if (scalar keys %siteHelp == 0) |
|
3029
|
0 |
0 |
if (scalar keys %help > 0) |
|
3060
|
0 |
0 |
if ($ok) |
|
3063
|
0 |
0 |
if (scalar keys %{$siteHelp;} > 0) |
|
3064
|
0 |
0 |
if (defined $help) |
|
3065
|
0 |
0 |
unless exists $help->{'SITE'} |
|
3067
|
0 |
0 |
unless exists $siteHelp->{'HELP'} |
|
3071
|
0 |
0 |
if $msg |
|
3095
|
0 |
0 |
if $line eq '' |
|
3107
|
0 |
0 |
if ($site_cmd and $lst[0] eq 'SITE' and $lst[1] =~ /^[A-Z]+$/) { } |
|
|
0 |
0 |
elsif (not $line =~ /[a-z()]/) { } |
|
3115
|
0 |
0 |
unless $_ =~ /[*]$/ |
|
3138
|
0 |
0 |
if (exists $arg->{'help_FEAT_msg2'}) |
|
3177
|
0 |
0 |
if (exists $arg->{'help_FEAT_found2'} and not exists $arg->{'help_FEAT_found2'}{'OPTS'}) |
|
3186
|
0 |
0 |
if ($arg->{'removeHELP'}) { } |
|
|
0 |
0 |
elsif (exists $arg->{'OverrideHELP'}) { } |
|
3190
|
0 |
0 |
if ($remove == 0) |
|
3192
|
0 |
0 |
if $#lst != -1 |
|
3198
|
0 |
0 |
if ($remove ne '') |
|
3205
|
0 |
0 |
if ($remove ne '') |
|
3211
|
0 |
0 |
if ($status == 2) |
|
3222
|
0 |
0 |
if defined $lead and $lead =~ /^\d+[\s-]?$/ |
|
3224
|
0 |
0 |
if $line eq '' |
|
3231
|
0 |
0 |
if $part[0] =~ /[*]$/ or defined $part[1] and $part[1] eq '*' |
|
3234
|
0 |
0 |
if ($#part == 0) { } |
|
3243
|
0 |
0 |
if ($may_change) |
|
3250
|
0 |
0 |
exists $res{'OPTS'} ? : |
|
3261
|
0 |
0 |
unless (exists $arg->{'help_FEAT_msg2'}) |
|
3267
|
0 |
0 |
unless ($status == 2 or $disable_croak) |
|
3285
|
0 |
0 |
if (defined $turn_on) |
|
3286
|
0 |
0 |
if ($turn_on) { } |
|
|
0 |
0 |
elsif (exists do {
*$self
}->{'_FTPSSL_arguments'}{'Croak'}) { } |
|
3305
|
0 |
0 |
unless ($true) |
|
3307
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Croak'}) |
|
3309
|
0 |
0 |
if (defined $c and $c ne 'Net::FTPSSL::login') |
|
3334
|
0 |
0 |
if (defined $self) { } |
|
3340
|
0 |
0 |
if $should_we_print |
|
3341
|
0 |
0 |
if $should_we_die |
|
3351
|
0 |
0 |
if (defined $replace_mode and uc($msg || '') ne '') |
|
3352
|
0 |
0 |
if ($replace_mode and uc(do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'} || '') ne '') { } |
|
3359
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'Croak'}) |
|
3364
|
0 |
0 |
if (ref $self eq 'Net::FTPSSL' and not exists do {
*$self
}->{'_FTPSSL_arguments'}{'_command_failed_'} and not exists do {
*$self
}->{'_FTPSSL_arguments'}{'recursion'} and $c ne 'Net::FTPSSL::command' and $c ne 'Net::FTPSSL::response') |
|
3378
|
0 |
0 |
if (defined $replace_mode and uc($msg || '') ne '' and do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} == 2) |
|
3387
|
0 |
0 |
if (defined $replace_mode and uc($msg || '') ne '' and do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
3416
|
0 |
0 |
/\n/ ? : |
|
3422
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
3423
|
0 |
0 |
ref $self eq 'Net::FTPSSL' ? : |
|
3424
|
0 |
0 |
if ($data =~ /^PASS\s/) { } |
|
|
0 |
0 |
elsif ($data =~ /^USER\s/) { } |
|
3437
|
0 |
0 |
unless (defined $written) |
|
3485
|
0 |
0 |
if exists do {
*$self
}->{'_FTPSSL_arguments'}{'_command_failed_'} |
|
3488
|
0 |
0 |
ref $self eq 'Net::FTPSSL' ? : |
|
3492
|
0 |
0 |
do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} && do {
*$self
}->{'_FTPSSL_arguments'}{'debug_extra'} ? : |
|
3501
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) |
|
3502
|
0 |
0 |
if do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} |
|
3506
|
0 |
0 |
if ($done and $complete) |
|
3520
|
0 |
0 |
if ($res > 0) { } |
|
|
0 |
0 |
elsif (do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'} ne '') { } |
|
3526
|
0 |
0 |
if $done and $complete |
|
3530
|
0 |
0 |
if ($done and $complete) { } |
|
|
0 |
0 |
elsif ($cnt == 0 or $! ne '') { } |
|
3535
|
0 |
0 |
if ($cnt > 0) |
|
3576
|
0 |
0 |
$bracket == 2 ? : |
|
3579
|
0 |
0 |
unless (defined $msg) |
|
3583
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
3585
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'_hide_value_in_response_'}) |
|
3591
|
0 |
0 |
if ($bracket) { } |
|
3597
|
0 |
0 |
if (defined $sep and not $sep =~ /^\s*$/) |
|
3683
|
0 |
0 |
substr(${$data_ref;}, -2) eq "\r\n" ? : |
|
3685
|
0 |
0 |
if ($debug) |
|
3686
|
0 |
0 |
exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'} ? : |
|
3687
|
0 |
0 |
$ccc_kludge ? : |
|
3692
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) { } |
|
3703
|
0 |
0 |
if (substr(${$data_ref;}, 0, 1) eq "\n") |
|
3705
|
0 |
0 |
if (substr(${$ref;}, -1) eq "\r") |
|
3708
|
0 |
0 |
if $debug |
|
3709
|
0 |
0 |
if (${$data_ref;} eq "\n") |
|
3717
|
0 |
0 |
if (${$ref;} ne '' and substr(${$ref;}, -length($splt)) ne $splt) |
|
3723
|
0 |
0 |
if ($end_with_cr) { } |
|
3740
|
0 |
0 |
if (exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) { } |
|
3765
|
0 |
0 |
if ($done) |
|
3776
|
0 |
0 |
if ($test =~ /^(\d{3})([-\s])(.*)$/s) |
|
3778
|
0 |
0 |
$sep eq ' ' ? : |
|
3781
|
0 |
0 |
$sep eq ' ' ? : |
|
3788
|
0 |
0 |
if ($ccc_kludge and $term and not $done) |
|
3789
|
0 |
0 |
if $debug |
|
3798
|
0 |
0 |
if $debug |
|
3801
|
0 |
0 |
if ($sep eq '-' and $term) |
|
3819
|
0 |
0 |
if $debug |
|
3821
|
0 |
0 |
if (not exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) { } |
|
|
0 |
0 |
elsif ($trunc ne '') { } |
|
3834
|
0 |
0 |
if ($test =~ /^(\d{3})([-\s])(.*)$/s) |
|
3836
|
0 |
0 |
$sep eq ' ' ? : |
|
3839
|
0 |
0 |
$sep eq ' ' ? : |
|
3844
|
0 |
0 |
if ($end_with_cr and exists do {
*$self
}->{'_FTPSSL_arguments'}{'next_ftp_msg'}) |
|
3849
|
0 |
0 |
if ($ccc_kludge and $next_kludge and not $end_response && $response_complete) |
|
3850
|
0 |
0 |
if $debug |
|
3877
|
0 |
0 |
if (defined $self and do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} and $force || exists do {
*$self
}->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}) |
|
3888
|
0 |
0 |
unless (exists $warn_list{'OTHER'}) |
|
3909
|
0 |
0 |
if $_ eq 'OTHER' |
|
3915
|
0 |
0 |
if (exists $warn_list{'OTHER'} and defined $warn_list{'OTHER'}) |
|
3917
|
0 |
0 |
if (ref $func_ref eq 'CODE') { } |
|
|
0 |
0 |
elsif ($func_ref eq '' or $func_ref eq 'DEFAULT') { } |
|
|
0 |
0 |
elsif ($func_ref ne 'IGNORE') { } |
|
3933
|
0 |
0 |
if (do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
3936
|
0 |
0 |
if (exists $warn_list{$self}) |
|
3954
|
0 |
4 |
if (exists $warn_list{'OTHER'}) |
|
3988
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'}) |
|
3999
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'last_ftp_msg'}) |
|
4022
|
0 |
0 |
if (defined $func_ref and defined $end_func_ref) { } |
|
4044
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'callback_end_func'}) |
|
4049
|
0 |
0 |
if (defined $res) |
|
4050
|
0 |
0 |
if ($res eq '') { } |
|
4071
|
0 |
0 |
if (defined do {
*$self
}->{'_FTPSSL_arguments'}{'callback_func'}) |
|
4080
|
0 |
0 |
defined $data_len_ref ? : |
|
4109
|
0 |
0 |
if defined $host |
|
4115
|
0 |
0 |
if (ref $obj eq 'HASH') { } |
|
4134
|
0 |
0 |
unless (defined $host) |
|
4135
|
0 |
0 |
unless /^(io_|_SSL|SSL)/ |
|
4137
|
0 |
0 |
$hash ? : |
|
4143
|
0 |
0 |
if (defined $sep and not $sep =~ /^\s*$/) { } |
|
4163
|
0 |
0 |
$lvl == 0 ? : |
|
4164
|
0 |
0 |
defined $sep_ref->[$lvl] ? : |
|
4167
|
0 |
0 |
unless defined $val |
|
4170
|
0 |
0 |
unless ref $val |
|
4173
|
0 |
0 |
if $val =~ /SCALAR\(0/ |
|
4180
|
0 |
0 |
if ($val =~ /ARRAY\(0/) { } |
|
|
0 |
0 |
elsif ($val =~ /HASH\((0x[\da-zA-Z]+)\)/) { } |
|
4190
|
0 |
0 |
if (exists $loop_ref->{$key}) { } |
|
4220
|
0 |
0 |
if (defined $self and exists do {
*$self
}->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}) { } |
|
|
0 |
0 |
elsif (defined $FTPS_ERROR) { } |
|
4240
|
0 |
0 |
if (defined $self and do {
*$self
}->{'_FTPSSL_arguments'}{'debug'}) |
|
4250
|
0 |
0 |
if (defined $self and exists do {
*$self
}->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}) |
|
4261
|
0 |
0 |
if (defined $self and exists do {
*$self
}->{'_FTPSSL_arguments'}{'ftpssl_filehandle'}) |
|
4263
|
0 |
0 |
if do {
*$self
}->{'_FTPSSL_arguments'}{'debug'} == 2 |
|
4277
|
0 |
0 |
if (defined $fh) |
|
4279
|
0 |
0 |
if ($tmp) |
|
4280
|
0 |
0 |
if $tmp eq 'GLOB' or $fh->isa('IO::Handle') |
|
4299
|
0 |
0 |
if ($domain =~ /^\d+$/) { } |
|
|
0 |
0 |
elsif ($domain =~ /^AF_/i) { } |
|
4304
|
0 |
0 |
if ($type->can(uc $domain)) |
|
4310
|
0 |
0 |
unless (defined $ret) |