|
Lines 70-76
if ( $op eq 'download' ) {
Link Here
|
| 70 |
my $ftype = $file->{'file_type'}; |
70 |
my $ftype = $file->{'file_type'}; |
| 71 |
|
71 |
|
| 72 |
my $magic = File::LibMagic->new(); |
72 |
my $magic = File::LibMagic->new(); |
| 73 |
my $magic_info = $magic->info_from_string( $file->{'file_content'} ); |
73 |
my $test_str = substr( $file->{'file_content'}, 0, 99 ); |
|
|
74 |
my $magic_info = $magic->info_from_string( \$test_str ); |
| 74 |
my $magic_mime_type = $magic_info->{mime_type}; |
75 |
my $magic_mime_type = $magic_info->{mime_type}; |
| 75 |
if ( $input->param('view') && ( $magic_mime_type && $allowed_ftypes->{$magic_mime_type} ) ) { |
76 |
if ( $input->param('view') && ( $magic_mime_type && $allowed_ftypes->{$magic_mime_type} ) ) { |
| 76 |
print $input->header( |
77 |
print $input->header( |
| 77 |
- |
|
|