Swen: Scriptfehler ?

Beitrag lesen

Hallo,

ich habe ein kleines Script, mit dem Textdaten ausgegeben werden. Zum Aufruf des Scriptes in HTML möchte ich den img-Tag verwenden. Bei dem muss aber ja das Script ein Bild zurückgeben.

Nun habe ich dafür dieses Script "gebastelt":

#!/usr/bin/perl

use CGI;

print "Content-type: text/plain\n\n";
$numm = param('num');
$file = '../ads/bannerclick'.$numm.'.inc';
open(INFO, $file);  # File öffnen
@lines = <INFO>;  # in Array einlesen
close(INFO);   # File schliessen
print @lines;   # Array ausgeben

print "Content-type: image/gif\n\n";
open (GIF, "http://www.xyz.de/Pics/blind.gif") || die "not found $!";
@pic=< GIF >;
print @pic;
close (GIF);

Leider funktioniert es nicht. Die Daten der .inc-Dateien werden nicht ausgegeben. Und das 1x1-gif wird auch nicht ausgegeben.

Vielleicht kann mir hier jemand helfen ?

Danke,
Swen