I have one that I made/copy&pasted from other scripts. All you do is link to view.cgi?variable=pathtoimage . It can handle more variables too, like for me, I have 4 folders: 640, 800, 1024, 1152. You can go to view.cgi?wp=name&size=1024 to load the image from the 1024 folder. Also, I implemented a little coding that can print html from a txt file in a folder you specify. So for example, if you had a picture that you wanted a caption for, just name the .txt file to the same as the picture(before the .jpg), then when you load the page from the script, it will load the capion. Hmmm...I sense no make. I'll paste the script here:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
use CGI;
$cgi = new CGI;
#the variable pairs after the view.cgi?
#it will store view.cgi?wp=XXX as the variable $wp
#same for the size
$wp = $cgi->param("wp");
$size = $cgi->param("size");
#Path to the header and footers
$headfile = 'txt/header.txt';
$footfile = 'txt/footer.txt';
#will retrieve the file txt/XXX.txt if your query string is
#view.cgi?wp=XXX
$detailsfile = 'txt/$wp.txt';
# Get the heading information
unless (open (DATA,"$headfile")) {die (&error);}
if ($uselock eq '1') {
flock DATA, 2;
seek DATA, 0, 0;
}
@headinfo = <DATA>;
if ($uselock eq '1') {
flock DATA, 8;
}
close (DATA);
foreach $headline (@headinfo){
$heading = $heading.$headline;
}
# Get the footer information
unless (open (DATA,"$footfile")) {die (&error);}
if ($uselock eq '1') {
flock DATA, 2;
seek DATA, 0, 0;
}
@footinfo = <DATA>;
if ($uselock eq '1') {
flock DATA, 8;
}
close (DATA);
foreach $footline (@footinfo){
$footer = $footer.$footline;
}
# Get the caption information
unless (open (DATA,"txt/$wp.txt")) {die (&error);}
if ($uselock eq '1') {
flock DATA, 2;
seek DATA, 0, 0;
}
@detailsinfo = <DATA>;
if ($uselock eq '1') {
flock DATA, 8;
}
close (DATA);
foreach $detailsline (@detailsinfo){
$details = $details.$detailsline;
}
print "$heading";
print "$details";
#this will load the image
#remove the $size slash if all images are in same
#directory, then replace with path to directory
print "<img src='$size/$wp.jpg'>";
print "$footer" ;
That should work, unless I messed it up with the comments.