[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
Re:[MacPerl] <img src="cgi-bin/image.pl">
At 4:07 PM 10/21/98, Steve Lee Kelsch wrote:
> Does anyone know how to return an image from MacPerl? Let me explain:
> [snip]
> open( IMAGEFILE, $filePath ) || die "Failed to open \'$filePath\'";
> @theImage = <IMAGEFILE>;
> close( IMAGEFILE );
>
> print @theImage;
> exit();
You are missing binmode and the mime-header:
print "Content-type: image/gif\n\n";
open( IMAGEFILE, $filePath );
binmode IMAGEFILE;
print <IMAGEFILE>;
close( IMAGEFILE );
-Dave
***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch