richy19
12-07-2004, 17:37
Hallo Leute,
ich habe folgendes Problem.
Ich muss ein kleines Perl Script schreiben, welches eine PDF Datei (die nicht im DocumentRoot des Apache liegt) öffnet, und dieses dann als Binären PDF Stream an den Browser sendet.
Ich bin bisher zu folgendem Ansatz gekommen:
use CGI::Carp qw(fatalsToBrowser);
use IO::File;
print "Content-type: application/pdf\n\n";
$infile1 = "d:\\mrtg\\daten\\efax\\faxin\\c00000024.pdf";
#$infh1 = new IO::File;
open(PDF, $infile1) or die "Can't open $infile1 $!";
binmode PDF;
#sysread $infh1, $buffer, 2097152;
while (!eof(PDF)) {
print $_;
}
close $infh1;
Hab in dem Code schonmal etwas rumgebastelt, aber egal wie ich es gemacht habe, es öffnet sich der Acrobat Reader und dann erscheint die Fehlermeldung, dass entweder das Stammdokument defekt sei oder sonstige Fehlermeldungen.
Hat jemand eine Lösung wie das Funktioniert??
Für nen Beispielcodeschnipsel bin ich sehr dankbar.
Gruss
Richy
ich habe folgendes Problem.
Ich muss ein kleines Perl Script schreiben, welches eine PDF Datei (die nicht im DocumentRoot des Apache liegt) öffnet, und dieses dann als Binären PDF Stream an den Browser sendet.
Ich bin bisher zu folgendem Ansatz gekommen:
use CGI::Carp qw(fatalsToBrowser);
use IO::File;
print "Content-type: application/pdf\n\n";
$infile1 = "d:\\mrtg\\daten\\efax\\faxin\\c00000024.pdf";
#$infh1 = new IO::File;
open(PDF, $infile1) or die "Can't open $infile1 $!";
binmode PDF;
#sysread $infh1, $buffer, 2097152;
while (!eof(PDF)) {
print $_;
}
close $infh1;
Hab in dem Code schonmal etwas rumgebastelt, aber egal wie ich es gemacht habe, es öffnet sich der Acrobat Reader und dann erscheint die Fehlermeldung, dass entweder das Stammdokument defekt sei oder sonstige Fehlermeldungen.
Hat jemand eine Lösung wie das Funktioniert??
Für nen Beispielcodeschnipsel bin ich sehr dankbar.
Gruss
Richy