Revision e652a0c2
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| bin/mozilla/datev.pl | ||
|---|---|---|
| 421 | 421 |
chdir($cwd); |
| 422 | 422 |
|
| 423 | 423 |
open(IN, $tmp_name) || die("open $tmp_name");
|
| 424 |
print("Content-Type: application/zip\n");
|
|
| 425 |
print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
|
|
| 426 |
while (<IN>) {
|
|
| 427 |
print($_); |
|
| 428 |
} |
|
| 424 |
$::locale->with_raw_io(\*STDOUT, sub {
|
|
| 425 |
print("Content-Type: application/zip\n");
|
|
| 426 |
print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
|
|
| 427 |
while (<IN>) {
|
|
| 428 |
print($_); |
|
| 429 |
} |
|
| 430 |
}); |
|
| 429 | 431 |
close(IN); |
| 430 | 432 |
|
| 431 | 433 |
unlink($tmp_name); |
Auch abrufbar als: Unified diff
ZIP-Dateien raw auf STDOUT ausgeben