| line |
true |
false |
branch |
|
115
|
0 |
0 |
if defined $size |
|
124
|
0 |
0 |
unless defined $pathname |
|
147
|
0 |
0 |
if (sysread $sock, $data, 4096) |
|
150
|
0 |
0 |
if (sysread $sock, $data, 4096) |
|
173
|
0 |
0 |
unless setsockopt $sock, 1, 21, "\cO\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000" |
|
174
|
0 |
0 |
unless setsockopt $sock, 1, 20, "\cO\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000" |
|
175
|
0 |
0 |
unless setsockopt $sock, 1, 9, 1 |
|
180
|
0 |
0 |
unless setsockopt $sock, 0, 1, "\cP\000\000\000" |
|
191
|
0 |
0 |
if ($self->{'FTPS'}) |
|
199
|
0 |
0 |
if ($data = readln($sock)) |
|
200
|
0 |
0 |
if $self->{'Debug'} |
|
202
|
0 |
0 |
if $self->{'Debug'} |
|
205
|
0 |
0 |
if ($self->{'Encrypt'} and not $self->{'FTPS'}) |
|
208
|
0 |
0 |
if ($data = readln($sock)) |
|
209
|
0 |
0 |
if $self->{'Debug'} |
|
213
|
0 |
0 |
if ($self->{'Integrity'}) |
|
217
|
0 |
0 |
if ($self->{'Compress'}) |
|
222
|
0 |
0 |
if ($self->{'Compress'}) |
|
227
|
0 |
0 |
if ($self->{'Encrypt'} and not $self->{'FTPS'}) |
|
254
|
0 |
0 |
if ($self->command("RNFR $from")) { } |
|
265
|
0 |
0 |
if $self->{'Debug'} |
|
287
|
0 |
0 |
unless (defined $read) |
|
315
|
0 |
0 |
if $self->{'Debug'} |
|
316
|
0 |
0 |
if ($read =~ /^(\d\d\d)\s(.*)/) |
|
319
|
0 |
0 |
if ($read =~ /^(\d\d\d)-(.*)/) |
|
321
|
0 |
0 |
if $self->{'Debug'} |
|
323
|
0 |
0 |
if ($read =~ /^(\d\d\d)\s(.*)/m) |
|
324
|
0 |
0 |
if ($cont) |
|
328
|
0 |
0 |
if ($read =~ /^(\d\d\d)-(.*)/) |
|
329
|
0 |
0 |
if ($read =~ /^(\d\d\d)\s(.*)/) |
|
330
|
0 |
0 |
if $self->{'Debug'} |
|
338
|
0 |
0 |
if ($code > 399) |
|
346
|
0 |
0 |
if $self->{'Debug'} |
|
357
|
0 |
0 |
if (defined $socket) |
|
359
|
0 |
0 |
if (defined $mask) { } |
|
368
|
0 |
0 |
if ($response and $self->{'FTPCODE'} < 200) |
|
370
|
0 |
0 |
if ($self->{'EncryptData'} == 1) |
|
372
|
0 |
0 |
if $self->{'Debug'} |
|
375
|
0 |
0 |
if ($self->{'Compress'}) { } |
|
376
|
0 |
0 |
unless my $x = 'Compress::Raw::Zlib::Inflate'->new |
|
386
|
0 |
0 |
if $self->{'Debug'} |
|
390
|
0 |
0 |
if $status != Z_OK() |
|
392
|
0 |
0 |
unless $status == Z_STREAM_END() |
|
408
|
0 |
0 |
if ($response) |
|
|
0 |
0 |
if ($response and $self->{'FTPCODE'} < 200) |
|
409
|
0 |
0 |
if $self->{'Debug'} |
|
410
|
0 |
0 |
if $response |
|
419
|
0 |
0 |
unless defined $local |
|
420
|
0 |
0 |
unless $self->{'DontDoType'} |
|
422
|
0 |
0 |
unless defined $socket |
|
423
|
0 |
0 |
if ($self->{'EncryptData'} != 0) |
|
425
|
0 |
0 |
unless ($r) |
|
426
|
0 |
0 |
if $self->{'Debug'} |
|
430
|
0 |
0 |
if ($self->{'EncryptData'} == 1) |
|
432
|
0 |
0 |
if $self->{'Debug'} |
|
435
|
0 |
0 |
if $self->{'Debug'} |
|
438
|
0 |
0 |
if ($putorblat =~ /put/) { } |
|
442
|
0 |
0 |
unless CORE::open L, "$local" |
|
446
|
0 |
0 |
if ($self->{'Compress'}) { } |
|
448
|
0 |
0 |
unless my $x = 'Compress::Raw::Zlib::Deflate'->new(-'Bufsize', $self->{'CompressionBufsize'}, -'Level', $self->{'CompressionLevel'}, -'Strategy', $self->{'CompressionStrategy'}, -'WindowBits', $self->{'CompressionWindowBits'}) |
|
459
|
0 |
0 |
unless $status == Z_OK() |
|
474
|
0 |
0 |
if (defined $self->{'PutUpdateCallback'}) |
|
477
|
0 |
0 |
if $self->{'Debug'} |
|
479
|
0 |
0 |
unless $status == Z_OK() |
|
483
|
0 |
0 |
if $self->{'Debug'} |
|
489
|
0 |
0 |
if (defined $self->{'PutUpdateCallback'}) |
|
494
|
0 |
0 |
if ($self->{'Compress'}) { } |
|
495
|
0 |
0 |
unless my $x = 'Compress::Raw::Zlib::Deflate'->new(-'Bufsize', 8192) |
|
499
|
0 |
0 |
unless $status == Z_OK() |
|
504
|
0 |
0 |
unless $status == Z_OK() |
|
512
|
0 |
0 |
if (defined $self->{'PutUpdateCallback'}) |
|
519
|
0 |
0 |
if $self->{'Debug'} |
|
520
|
0 |
0 |
if (defined $self->{'PutDoneCallBack'}) |
|
547
|
0 |
0 |
unless defined $local |
|
552
|
0 |
0 |
unless setsockopt $socket, 1, 21, "\cO\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000" |
|
553
|
0 |
0 |
unless setsockopt $socket, 1, 20, "\cO\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000" |
|
554
|
0 |
0 |
unless setsockopt $socket, 1, 9, 1 |
|
555
|
0 |
0 |
unless setsockopt $socket, 0, 1, "\cH\000\000\000" |
|
558
|
0 |
0 |
if ($self->{'EncryptData'} != 0) |
|
560
|
0 |
0 |
unless ($r) |
|
561
|
0 |
0 |
if $self->{'Debug'} |
|
565
|
0 |
0 |
if ($self->{'EncryptData'} == 1) |
|
567
|
0 |
0 |
if $self->{'Debug'} |
|
570
|
0 |
0 |
if ($getorslurp =~ /get/) { } |
|
571
|
0 |
0 |
if $self->{'Debug'} |
|
572
|
0 |
0 |
unless CORE::open L, ">$local" |
|
577
|
0 |
0 |
if ($self->{'Compress'}) { } |
|
584
|
0 |
0 |
unless my $x = 'Compress::Raw::Zlib::Inflate'->new |
|
595
|
0 |
0 |
if $self->{'Debug'} |
|
596
|
0 |
0 |
if (defined $self->{'GetUpdateCallback'}) |
|
597
|
0 |
0 |
if $status != Z_OK() |
|
599
|
0 |
0 |
unless $status == Z_STREAM_END() |
|
610
|
0 |
0 |
if $self->{'Debug'} |
|
611
|
0 |
0 |
if (defined $self->{'GetUpdateCallback'}) |
|
622
|
0 |
0 |
if $self->{'Debug'} |
|
625
|
0 |
0 |
if ($self->{'Compress'}) { } |
|
626
|
0 |
0 |
unless my $x = 'Compress::Raw::Zlib::Inflate'->new |
|
637
|
0 |
0 |
if $self->{'Debug'} |
|
638
|
0 |
0 |
if (defined $self->{'GetUpdateCallback'}) |
|
639
|
0 |
0 |
if $status != Z_OK() |
|
641
|
0 |
0 |
unless $status == Z_STREAM_END() |
|
647
|
0 |
0 |
if $self->{'Debug'} |
|
648
|
0 |
0 |
if (defined $self->{'GetUpdateCallback'}) |
|
654
|
0 |
0 |
if $self->{'Debug'} |
|
655
|
0 |
0 |
if (defined $self->{'GetDoneCallBack'}) |
|
662
|
0 |
0 |
if ($tmp = $self->command('PASV')) { } |
|
663
|
0 |
0 |
if ($self->msgcode == 227 and $tmp =~ /[^\d]*(\d+),(\d+),(\d+),(\d+),(\d+),(\d+)/) { } |
|
666
|
0 |
0 |
if $self->{'Debug'} |
|
667
|
0 |
0 |
if $self->{'Debug'} |
|
|
0 |
0 |
if (defined $self->{'ForcePASVIP'}) |
|
670
|
0 |
0 |
if (defined $socket) { } |
|
671
|
0 |
0 |
if $self->{'Debug'} |
|
716
|
0 |
0 |
if ($self->{'Encrypt'}) { } |
|
718
|
0 |
0 |
if ($self->{'EncryptData'} != 0) |