#!/usr/bin/perl # make sure, that the path of perl is right (try: which perl) ############################################################### # # Pix2tn by Michael Hahsler 1999 # # This script free for use and modification. # History: V1.0 Oct 18 1999 # V1.1 Mar 08 2004 includes options code by # Juan Carlos Rey Anaya # V1.2 Dec 12 2012 added favicon patch by Darren Meyer # # Usage: Copy this script into the directory with your photos or in # your directory for executables (e.g. ~/bin). Change to the directory # with the photos and run the script. The script will generate the # file welcome.html (the index) and the sub-directories tn and med # (for the thumpnails). # If you want to have the index and the pictures on the Web, the directory # you have to move everything to a directory used by your Web-server # (e.g. ~\www). # # Copyright: This script is under GNU GENERAL PUBLIC LICENSE (GPL) # # Enjoy, # Michael Hahsler # michael@hahsler.net http://michael.hahsler.net # use Getopt::Std; print "pix2tn by Michael Hahsler\n\n"; usage() unless getopts("ht:o:"); usage() if $opt_h; $filename = $opt_o || "index.html"; $title = $opt_t || "My Pics"; $dir = shift || "."; chdir $dir || die "Cannot change to $dir.\n"; my $tnperrow=4; # thumbnails per row my $tnsize=80; # size of thumbnails my $tnquality=25; # quality of thumbnails [0..100] # use small thumbnails with poor quality to speed up your index-page my $medsize=500; # size of thumbnails my $medquality=70; # quality of thumbnails [0..100] # used to create medium sized pictures # possible image extensions (jpg, gif) #- my @pics = (<*.jpg>,<*.gif>); # darrenpmeyer: better, less naive extension handling my @pics = get_pic_files(qw'jpeg jpg gif png'); unless (@pics) { print "Nothing to do in '$dir'\n" ; exit; } if (-e $filename) { rename $filename, $filename.".bak"; print "I saved the old $filename as $filename.bak\n"; } open (PAGE, ">$filename") || die "Problem: Can't write to filename\n"; # create a directory for the thumbnails system ("mkdir tn") if (!-d "tn"); system ("mkdir med") if (!-d "med"); # create the index page print PAGE qq* $title

$title

*; my $counter=0; foreach $_ (sort @pics) { print $_; system ("convert -geometry ".$tnsize."x".$tnsize. " -quality $tnquality $_ tn/$_") == 0 || die "Problems with convert: $?\n"; system ("convert -geometry ".$medsize."x".$medsize. " -quality $medquality $_ med/$_") == 0 || die "Problems with convert: $?\n"; print PAGE "" if (!($counter++%$tnperrow)); print PAGE "

"; @stat = stat $_; print PAGE qq*

$_
*. localtime($stat[9]).qq*
original - *. int($stat[7]/1024).qq* kB*. qq*\n*; print " ... done\n"; } print PAGE qq*

Index created on *. localtime(time) .qq* with pix2tn written by Michael Hahsler *; close PAGE; sub get_pic_files { # darrenpmeyer 2012-12-03 - gets list of image files # based on extensions pased as a list of scalars # allows extenions to be any case or mixture of cases my @files; my $ok_file_re = '\.('.join('|',@_).')$'; $ok_file_re = qr/$ok_file_re/i; foreach (<*>) { next unless ( -f $_ && $_ =~ $ok_file_re ); next if /^favicon\./; # skips handling the favicon; a little naively push @files, $_; } return @files; } sub usage() { print <