Pictures

#!/usr/bin/env perl # Copyright (c) 2010, Douglas Haber # All rights reserved. # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # * Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # * Redistributions in binary form must reproduce the above # copyright notice, this list of conditions and the following # disclaimer in the documentation and/or other materials provided # with the distribution. # * The names names of the authors may not be used to endorse or # promote products derived from this software without specific # prior written permission. # # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDER AND ITS # CONTRIBUTERS ''AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, # INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE # DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR ITS # CONTRIBUTERS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF # USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, # OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT # OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # photo_page # Generate thumbnails and an index.html gallary page based off of # the specified image files in the current directory. # NOTES: # * The way this was written it really needs to be run in the # same directory as the photos. # * This requires the ImageMagick convert command to be in the # path. # Usage: # photo_page [image files...] # Example Usage: # host:~/photodir$ photo_page *.jpg my $THUMB_WIDTH = 300; my $THUMB_HEIGHT = 225; my $THUMB_EXT = "-TN.JPG"; # Filename extention for thumbnails my $THUMBS_PER_ROW = 3; # The number of thumbnails to display per table row my $PAGE_TEMPLATE = < Pictures !!!TABLE_ROWS!!!

EOF sub main { my $x = 0; my $filename; my $page = $PAGE_TEMPLATE; my $rows = ''; foreach $filename (@ARGV) { my ($thumb) = $filename =~ /^(.*)\.(JPG|PNG)$/i; $thumb .= $THUMB_EXT; system("convert -scale ${THUMB_WIDTH}x${THUMB_HEIGHT} $filename $thumb"); $rows .= "

\n"; if(++$x % $THUMBS_PER_ROW == 0) { $rows .= " \n" . " \n"; } } $page =~ s/!!!TABLE_ROWS!!!/$rows/; if(! open(FD, ">index.html")) { die("ERROR: Unable to write index.html\n"); } print FD $page; close(FD); } main();