Hallo,
ich möchte mit hilfe eines Formulares einen nummer eingeben, die in meinem script
eine pdf-datei aufrufen soll und an den browser zurückgeben soll, so das automatisch
acrobat reader aufgerufen wird.
in meinem fall erst mal nur eine datei zur auswahl -> testen.
ich gebe also di nummer 001160 ein und möchte die datei 400842.pdf erhalten,
hier ist mal mein script:
#!/perl/bin/perl.exe
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$nummer=$FORM{"nummer"};
if (nummer == 001160)
{
print "Content-type: application/pdf \n\n";
print "4008420.pdf";
}
else
{
print "Fehler";
}
Ich kann die Datei mit einem normalen link ohne Probleme aufrufen, aber über das script
gibt er mir immer die Fehlermeldung: "Document contained no data. Try later, or contact the server‚s
administrator." als Popup-Fenster.
Info: Der Webserver läuft unter Windows NT Server 4.0 mit IIS4 und ActivePerl.