#!/usr/bin/perl # A very simple gallery-maker that creates listing for just one directory. # Use "-t" to sort pictures by timestamp rather than name, and use -N # to control the number of pictures on a row. use strict; use warnings; use Cwd; use File::Basename 'basename'; use Getopt::Std; use Image::Size qw(imgsize); our $cmd = basename $0; our $VERSION = '1.0'; our $timesort = 0; our $now = scalar localtime; our %opts; getopts('tN:', \%opts); our $dir = shift(@ARGV) || cwd; $timesort++ if $opts{t}; our $columns = $opts{N} || 4; opendir(our $dh, $dir) or die "Error opening $dir: $!, stopped"; our @images = grep(/\.(:?jpg|jpeg|gif|png)$/i, readdir($dh)); closedir $dh; if ($timesort) { @images = sort { (lstat $a)[9] <=> (lstat $b)[9] } @images; } else { @images = sort @images; } # Output the boilerplate part of the XHTML $dir = basename $dir; print <<"EO_Header"; Image Gallery - $dir EO_Header print "

Image Gallery - $dir - " . scalar(@images) . " item" . ((@images == 1) ? '' : 's') . "

\n \n"; while (@images) { print " \n"; for (1 .. $columns) { my $image = shift @images; unless ($image) { print " \n"; next; } my ($width, $height) = imgsize($image); my ($theight, $twidth); if ($height > $width) { if ($height <= 200) { $theight = $height; $twidth = $width; } else { $theight = 200; $twidth = $width * (200 / $height); } } else { if ($width <= 200) { $theight = $height; $twidth = $width; } else { $twidth = 200; $theight = $height * (200 / $width); } } print qq( \n); } print " \n"; } print <<"EO_Foot";

Generated by $cmd v$VERSION on $now

EO_Foot exit;