mrezzonico
Member
Hallo,
um PDF-Dateien in unserem Intranet zu visualisieren, habe ich folgende Perl-script:
#!/usr/bin/perl
$file = "file.pdf";
print "Content-Type: application/pdf\n\n";
open(FILE, $file);
while(<FILE>) {
print $_;
}
close FILE;
Alles läuft perfekt, aber mit Firefox und grössen Dateien (> 30MB) besteht ein Problem.
In diesem Fall "Acrobat Reader" gibt folgenden Fehler:
"Die Datei ist beschädigt und kann nicht repariert werden" (ich habe aus Italienisch übersetzt).
Ich habe dann einfach eine html-Seite mit einen link an "file.pdf" gemacht und mit "ethereal" geschaut.
Ich habe festgestellt, dass wenn ich folgende Zeilen in meinen Perl-script einfüge ...
print "Accept-Ranges: bytes\r\n";
print "Content-Length: 35964175\r\n";
print "Content-Range: bytes 246435-36210609/36210610\r\n";
print "If-Range: \"418c82-22887b2-9f333cc00\"\r\n";
... dann läuft ok, aber natürlich nur mit dieser PDF-Datei (mit allen anderen PDF-Dateien läuft nicht).
35964175 ist natürlich die Grösse von "file.pdf"
Meine Frage ist folgende: wie kann ich diese Lösung modifizieren damit mein Perl-script für alle PDF-Dateien läuft ?
Grüsse. Miche
um PDF-Dateien in unserem Intranet zu visualisieren, habe ich folgende Perl-script:
#!/usr/bin/perl
$file = "file.pdf";
print "Content-Type: application/pdf\n\n";
open(FILE, $file);
while(<FILE>) {
print $_;
}
close FILE;
Alles läuft perfekt, aber mit Firefox und grössen Dateien (> 30MB) besteht ein Problem.
In diesem Fall "Acrobat Reader" gibt folgenden Fehler:
"Die Datei ist beschädigt und kann nicht repariert werden" (ich habe aus Italienisch übersetzt).
Ich habe dann einfach eine html-Seite mit einen link an "file.pdf" gemacht und mit "ethereal" geschaut.
Ich habe festgestellt, dass wenn ich folgende Zeilen in meinen Perl-script einfüge ...
print "Accept-Ranges: bytes\r\n";
print "Content-Length: 35964175\r\n";
print "Content-Range: bytes 246435-36210609/36210610\r\n";
print "If-Range: \"418c82-22887b2-9f333cc00\"\r\n";
... dann läuft ok, aber natürlich nur mit dieser PDF-Datei (mit allen anderen PDF-Dateien läuft nicht).
35964175 ist natürlich die Grösse von "file.pdf"
Meine Frage ist folgende: wie kann ich diese Lösung modifizieren damit mein Perl-script für alle PDF-Dateien läuft ?
Grüsse. Miche