use Image::Size; my $fname = "JPGfilelist.txt"; ### File should be text formatted as such: # title:Title Name For Every Page # filename.jpg:Description open (IN, $fname) || die "can't open $fname\n"; my $prevpic = undef; my $settitle = ""; while () { chomp; next if /^#/; my ($picname, $pictext) = split (/:/,$_); $settitle = $pictext and next if ($picname eq "title"); my $picroot = $picname; $picroot =~ s/\.JPG//i; # make list of pictures, save their captions and real names push @pics, $picroot; $captions{$picroot} = $pictext; $longname{$picroot} = $picname; # if it doesn't have a thumbnail we have to make one make_thumbnail($picname) unless -e "thumb_$picroot.jpg"; # make the next-and-prev relationships if (defined($prevpic)) { $prev{$picroot} = $prevpic; } else { $prev{$picroot} = "index" }; $next{$prevpic} = $picroot unless $prevpic eq ""; $prevpic = $picroot; } # set the last individual page to have its next go to the index page $next{$prevpic} = "index"; ##### Making the index page for the set with all thumbnails open OUT, ">index.html" || die "can't open index.html $!\n"; print OUT "\n"; print OUT "$settitle\n"; print OUT "\n"; print OUT "

$settitle

\n"; print OUT "\n"; my $count = 0; for (@pics) { my $picroot = $_; my $pictext = $captions{$picroot}; my $picname = $longname{$picroot}; print OUT "\n"; $count++; if ($count eq 4) { $count = 0; print OUT "\n"; } } close OUT; ##### Making individual picture pages for (@pics) { my $filename = "$_.html"; open OUT, ">$filename" || die "can't open $filename $!\n"; $nextpagename = "$next{$_}.html"; $prevpagename = "$prev{$_}.html"; my $nextlink = ""; my $prevlink = ""; # no next link if it's the last page $nextlink = "Next" unless ($nextpagename eq "index.html"); # prev part should link Prev and Index, or just Index if first page if ($prevpagename eq "index.html") { $prevlink = "Index Page "; } else { $prevlink = "Previous Index Page "; } print OUT "\n"; print OUT "$settitle\n"; print OUT "\n"; print OUT "

$settitle

\n"; print OUT "

$pictext

$prevlink$nextlink

\n"; print OUT "\n"; print OUT "
\n"; print OUT "

$captions{$_}

\n"; print OUT "
\n"; print OUT "

(c) Deanna Rubin 2009.

\n"; print OUT "\n"; close OUT; } ##### Making thumbnail files using mogrify # We want them to be a max of 150 x 150 sub make_thumbnail { my $picname = shift; my $picroot = $picname; $picroot =~ s/\.JPG//i; my ($width, $height) = imgsize($picname); return unless $width; print "making thumbnail for $width x $height $picname\n"; my ($thumbheight, $thumbwidth); if ($width > $height) { $thumbwidth = 150; $thumbheight = (150 * $height) / $width; } else { $thumbheight = 150; $thumbwidth = int ((150 * $width) / $height); } my $thumbname = "thumb_$picroot.jpg"; system "cp $picname $thumbname"; system "mogrify -resize ${thumbwidth}x$thumbheight $thumbname"; }