|
Lines 59-67
if ( $op eq 'download' ) {
Link Here
|
| 59 |
my $fname = $file->{'file_name'}; |
59 |
my $fname = $file->{'file_name'}; |
| 60 |
my $ftype = $file->{'file_type'}; |
60 |
my $ftype = $file->{'file_type'}; |
| 61 |
print $input->header( |
61 |
print $input->header( |
| 62 |
-type => $file->{'file_type'}, |
62 |
-type => $file->{'file_type'}, |
| 63 |
-charset => 'utf-8', |
63 |
-charset => 'utf-8', |
| 64 |
-attachment => $file->{'file_name'} |
64 |
'Content-Security-Policy' => "default-src 'none'; script-src 'none';" |
| 65 |
); |
65 |
); |
| 66 |
print $file->{'file_content'}; |
66 |
print $file->{'file_content'}; |
| 67 |
} else { |
67 |
} else { |
| 68 |
- |
|
|