Does anyone know how to print an in perl, not using the <img src=""> tag but incorporating the image into the perl script.
Matt
Matt
Apr 11, 1999, 10:34 PM
User (214 posts)
Apr 11, 1999, 10:34 PM
Post #5 of 7
Views: 5372
This should help you:
print "Location: http://yourserver.com/yourimage.gif\n\n"
Regards,
Pasha
------------------
webmaster@find.virtualave.net
http://find.virtualave.net
Code:
print "Location: http://yourserver.com/yourimage.gif\n\n"
Regards,
Pasha
------------------
webmaster@find.virtualave.net
http://find.virtualave.net
Apr 12, 1999, 3:56 AM
User (194 posts)
Apr 12, 1999, 3:56 AM
Post #6 of 7
Views: 5360
Hi.
First check that you are trying to print out the appropriate file type...meaning if you are using this script on a jpg you need to change this:
"Content-type: image/gif\n\n"
To:
"Content-type: image/jpg\n\n"
Otherwise you might want to try changing this line:
while (<IMG> ) { print;}
to
while (<IMG> ) { print $_;}
I think this might work...
What Pasha is suggesting will not work because you've already print a Content-type header. Though his idea will work if you take out the "Content-type: image/gif\n\n"
It doesn't read in your image first before displaying it!
Hope this helps
Rod
First check that you are trying to print out the appropriate file type...meaning if you are using this script on a jpg you need to change this:
"Content-type: image/gif\n\n"
To:
"Content-type: image/jpg\n\n"
Otherwise you might want to try changing this line:
while (<IMG> ) { print;}
to
while (<IMG> ) { print $_;}
I think this might work...
What Pasha is suggesting will not work because you've already print a Content-type header. Though his idea will work if you take out the "Content-type: image/gif\n\n"
It doesn't read in your image first before displaying it!
Hope this helps
Rod
Apr 12, 1999, 1:49 PM
Novice (24 posts)
Apr 12, 1999, 1:49 PM
Post #7 of 7
Views: 5367
I dont know what the problem is. I tryed everything that you guys suggested and I still have the same problem. My code is :
print "Content-type: image/gif\n\n";
open (IMG, "../public_html/images/city.gif") or die $!;
binmode(IMG);
while (<IMG> ) { print $_;}
close IMG;
exit;The url is http://www.outbreak.dhs.org/images/image.pl
Does anyone have any ideas?
Matt
Code:
#!c:/perl/perl.exe print "Content-type: image/gif\n\n";
open (IMG, "../public_html/images/city.gif") or die $!;
binmode(IMG);
while (<IMG> ) { print $_;}
close IMG;
exit;
Does anyone have any ideas?
Matt