How to output image from a perl script 1

[oolalaus]

I am working on something to show image on a html page like this
<img src="

http://www.mystite.com/CGI-BIN/photo.pl?photoid=100">

instead of
<img src="100.gif">

Has anybody done this before? Can somebody tell me how this is done

 

[TrojanWarBlade]

Your perl script needs to output a header for an image adn then echo back the data for that image directly.

open FH, "photo_${photoid}.jpg" or handle_error();
print "Content-type: image/jpeg\n\n";
while(<FH>) {
  print;
}
close FH;

Assuming the filenames are photo_100.jpg and similar and that $photoid holds that 100.


Trojan.

 

[oolalaus]

I did something like this, but gives me "premature end of script headers"

Can u help?

#!/usr/bin/perl

open FH, "/shop/images/full.gif" or handle_error();
print "Content-type: image/gif\n\n";
while(<FH>) {
print;
}
close FH;

 

[TrojanWarBlade]

I just checked it on my system and it works fine for me.
My code:

#!/usr/bin/perl -w

use strict;

open FH, "/var/[URL unfurl="true"]www/icons/PythonPowered.png"[/URL] or die "Failed to load image";
print "Content-type: image/png\n\n";
while(<FH>) {
  print;
}
close FH;

Trojan.

 

[TrojanWarBlade]

Are you sure your file is opening the file correctly?
I would suggest that your code is possibly executing the "handle_error()".


Trojan.

 

[oolalaus]

Actually the file is from a different location like

open FH, "

http://www.xyz.com/shop/images/full.gif"

is the code still supposed to work?

 

[TrojanWarBlade]

No,
Not if it's on a different webserver.
You'll need to read the image from the other webserver and echo it out as shown before.
You'll need to use somthing like "use LWP::UserAgent;" to access the other webserver.

my $ua = LWP::UserAgent->new;
my $response = $ua->get(’[URL unfurl="true"]http://www.xyz.com/shop/images/full.gif’);[/URL]
if ($response->is_success) {
    print $response->content;  # or whatever
}
else {
    handle_error($response->status_line);
}

Something like that maybe.




Trojan.

 

[oolalaus]

premature end of script headers" error, am I doing something wrong?

#!/usr/bin/perl

my $ua = LWP::UserAgent->new;
my $response = $ua->get(’

http://www.xyz.com/shop/images/full.gif’);

print "Content-type: image/gif \n\n";
if ($response->is_success) {
print $response->content; # or whatever
}else{
print $response->status_line;
}

 

[TrojanWarBlade]

You are missing the "use LWP::UserAgent;" line at the top of your code. Add that and then test your code with "perl -c photo.pl" to ensure it compiles and should run.


Trojan.

 

[oolalaus]

It worked .. it worked!! Thank you very much!!

I added the "use" thing had problem again.
The problem was with ftp, file was transferd from desktop to server in binary mode and some extra stuff was added after each line.

Thank you.

 

[TrojanWarBlade]

Of course it worked!
;-)
Now you need to consider your error checking very carefully.


Trojan.

 

[TrojanWarBlade]

I would also point out that you should not really be pulling data from a server unless you have permission.
I hope that the server where the images are is yours or you have permission to pull images from it.


Trojan.