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