Grafik ueber cgi-skript anzeigen

[Rolf]

Hallo,

versuchs mal so:
---
open(BILD, $bilddatei) or &fehler;

Den Header senden...

print "Content-type: image/jpeg\n\n";

binmode(BILD); # Hier ist der Knackpunkt!
binmode(STDOUT);

while(read(BILD, $puffer, 1024)) {
print $puffer;
}
close(BILD);

Fehler parieren

sub fehler{
print "content-type:text/html\n\n";
print "Kann Bilddatei nicht öffnen";
exit;
}
---
Viele Grüße, Rolf