|
Lines 5350-5355
Link Here
|
| 5350 |
next if length($http_data) < 8; |
5353 |
next if length($http_data) < 8; |
| 5351 |
$partnum++; |
5354 |
$partnum++; |
| 5352 |
$parttext = sprintf("%02d",$partnum); |
5355 |
$parttext = sprintf("%02d",$partnum); |
|
|
5356 |
|
| 5357 |
## from http://sourceforge.net/tracker/?func=detail&aid=2019799&group_id=107384&atid=647491 |
| 5358 |
### Chunk Check |
| 5359 |
if ( $http_header =~ /Transfer-Encoding: chunked/ ) { |
| 5360 |
my $new_http_data=""; |
| 5361 |
my $chunksize=-1; |
| 5362 |
my $pos=0; |
| 5363 |
until ($chunksize==0) { |
| 5364 |
my $eolpos=index($http_data,"\r\n",$pos); |
| 5365 |
$chunksize=hex(substr($http_data,$pos,$eolpos - $pos)); |
| 5366 |
$pos=($eolpos+2); |
| 5367 |
if ($chunksize > 0) { |
| 5368 |
$new_http_data.=substr($http_data,$pos,$chunksize); |
| 5369 |
} |
| 5370 |
$pos+=($chunksize+2); |
| 5371 |
} |
| 5372 |
$http_data=$new_http_data; |
| 5373 |
} |
| 5353 |
|
5374 |
|
| 5354 |
### Part - Checks |
5375 |
### Part - Checks |
| 5355 |
$http_type = &File_Type($http_data); |
5376 |
$http_type = &File_Type($http_data); |
