| line |
true |
false |
branch |
|
218
|
0 |
12 |
unless $options{'incomingDirectory'} |
|
276
|
1 |
2 |
unless $self->{'forceChunkSize'} |
|
326
|
54 |
0 |
if ($required_params) |
|
359
|
16 |
38 |
if ($method eq "POST") |
|
365
|
0 |
410 |
unless (exists $info->{$param} and defined $info->{$param}) |
|
371
|
0 |
54 |
if (@invalid) |
|
377
|
0 |
270 |
if (exists $info->{$param} and not $info->{$param} =~ /^[0-9]+$/) |
|
388
|
1 |
107 |
if (exists $info->{$param} and not $info->{$param} <= $self->{'maxChunkCount'}) |
|
398
|
0 |
54 |
if (($info->{'flowChunkNumber'} || 0) > ($info->{'flowTotalChunks'} || 0)) |
|
409
|
0 |
54 |
if (exists $info->{$param} and $info->{$param} =~ m([/\\])) |
|
420
|
0 |
108 |
if (exists $info->{$param} and $info->{$param} =~ m([/\\]\.\.[/\\])) |
|
430
|
0 |
108 |
if (exists $info->{$param} and $info->{$param} =~ /[\x00-\x1f]/) |
|
442
|
0 |
108 |
if (exists $info->{$param} and $info->{$param} > $self->{'maxChunkSize'}) |
|
455
|
2 |
1 |
if (exists $info->{$param} and $info->{$param} < $self->{'minChunkSize'} and $info->{'flowChunkNumber'} < $info->{'flowTotalChunks'} || $info->{'flowTotalChunks'} <= 1) |
|
471
|
0 |
54 |
if (not $min_max_error and ($info->{'flowTotalSize'} || 0) > $self->{'maxFileSize'}) { } |
|
|
2 |
52 |
elsif (not $min_max_error and $method eq 'POST' and $info->{'localChunkSize'} > $info->{'flowChunkSize'}) { } |
|
|
0 |
52 |
elsif (not $min_max_error and $info->{'flowCurrentChunkSize'} < $self->expectedChunkSize($info)) { } |
|
|
1 |
51 |
elsif (not $min_max_error and $method eq 'POST' and $info->{'localChunkSize'} < $info->{'flowCurrentChunkSize'}) { } |
|
|
0 |
51 |
elsif (not $min_max_error and $info->{'flowCurrentChunkSize'} > $self->expectedChunkSize($info)) { } |
|
533
|
0 |
122 |
if (not $info->{'flowTotalChunks'}) { } |
|
|
80 |
42 |
elsif ($index != $info->{'flowTotalChunks'}) { } |
|
|
0 |
42 |
elsif (not $info->{'flowChunkSize'}) { } |
|
|
2 |
40 |
elsif (not $info->{'flowTotalSize'}) { } |
|
551
|
32 |
8 |
if ($info->{'flowTotalSize'} % $info->{'flowChunkSize'}) { } |
|
572
|
0 |
0 |
unless (-d $dir) |
|
573
|
0 |
0 |
unless mkdir $dir |
|
576
|
0 |
0 |
if ($wipe) |
|
598
|
73 |
3 |
unless defined $sessionPrefix |
|
628
|
0 |
29 |
if (@messages) |
|
634
|
23 |
6 |
if ($exists) { } |
|
654
|
3 |
12 |
unless ($complete) |
|
673
|
15 |
0 |
if $index |
|
675
|
0 |
15 |
unless open my $chunk, "<", $chunkname |
|
709
|
1 |
7 |
if (not defined $content_type) { } |
|
|
0 |
7 |
elsif ($content_type eq '') { } |
|
|
7 |
0 |
elsif (not $self->{'allowedContentType'}->($content_type)) { } |
|
753
|
11 |
2 |
if (200 == $status) { } |
|
756
|
11 |
0 |
if ($t) { } |
|
804
|
0 |
4 |
if $digest |
|
827
|
0 |
42 |
unless opendir my $dir, $incoming |
|
841
|
28 |
14 |
wantarray ? : |
|
868
|
30 |
30 |
if (not exists $mtime{$upload} or $mtime{$upload} < $cutoff) { } |
|
873
|
12 |
18 |
if $stat[9] > $mtime{$upload} |
|
883
|
18 |
42 |
if (exists $mtime{$upload} and $mtime{$upload} < $cutoff) |
|
888
|
6 |
7 |
wantarray ? : |
|
910
|
0 |
0 |
unless unlink $f |