#!/usr/bin/env perl
######################################################################
# make_thumbNails.pl
# Krister Bruhwel
# April 2007
#
# This script needs the "convert" program to function.
# This script assumes all pictures are jpegs ... :( hey, not my bag
#
######################################################################
use File::Find;
use File::Path;
use File::Copy;
use Getopt::Long;
GetOptions("help", "h", "w");
#take care of command line flags and set defaults
if ($opt_help) { printHelp(); exit(); }
if ($opt_h) { printHelp(); exit(); }
if ($opt_w) { $wipe = 1} else { $wipe = 0 }
#make_thumbs();
$max_depth = 1;
$size = "120x120"; #size of thumbs
if ($wipe) {
start_fresh();
}
else {
make_thumbs();
}
sub start_fresh {
print "starting fresh ... removing old thumb pics\n";
find({preprocess => \&preprocess, wanted => \&getDirNames}, ".");
#get rid of duplicates
undef @in;
@dir_list = sort grep(!$in{$_}++, @dirNames_long);
#get rid of "."
shift(@dir_list);
foreach $dirName (@dir_list) {
print "removing thumb files from $dirName\n";
#capture CTRL-C
$SIG{INT} = sub { exit(0); };
chdir($dirName);
rmtree thumb_pics;
unlink "thumb_index.html";
unlink "master_thumb_index.html";
chdir("..");
}
print "old thumb files removed.\n";
}
sub make_thumbs {
$time = localtime();
$number_of_thumbs = 0;
find({preprocess => \&preprocess, wanted => \&getDirNames}, ".");
#get rid of duplicates
undef @in;
@dir_list = sort grep(!$in{$_}++, @dirNames_long);
#get rid of "."
shift(@dir_list);
foreach $dirName (@dir_list) {
#capture CTRL-C
$SIG{INT} = sub { exit(0); };
chdir($dirName);
unless (opendir(TMP, $thumb_pics)) {
mkdir thumb_pics;
}
else {
closedir(TMP);
}
unlink "thumb_index.html";
undef(@list_of_jpgs);
@list_of_jpgs = `find . -maxdepth 1 -name "*.JPG" -o -name "*.jpg"`;
chomp(@list_of_jpgs);
#foreach $l (@ret) {
for ($i=0; $i<=$#list_of_jpgs; $i++) {
$list_of_jpgs[$i] =~ s/\.\///;
#print "$list_of_jpgs[$i]";
}
for ($i= 0; $i <= $#list_of_jpgs; $i++) {
$pic = $list_of_jpgs[$i];
$pic =~ s/\.JPG//;
$pic =~ s/\.jpg//;
$pic = "thumb_pics/thumb_$pic.jpg";
if (-e $pic) {
print "skipping -> $dirName/$list_of_jpgs[$i]\n";
}
else {
print "thumbing -> $dirName/$list_of_jpgs[$i]\n";
$cmd = "convert \"$list_of_jpgs[$i]\" -resize $size \"$pic\"";
#print "$cmd\n";
system($cmd)==0 or die "Error:\ndir: $dirNames\ncmd:$cmd\n";
$number_of_thumbs++;
}
}
make_html_index();
chdir("..");
}
#chdir("..");
make_master_html_index();
print "total thumbnail pics made: $number_of_thumbs\n";
print "program start: $time\n";
$time = localtime();
print "program end: $time\n";
}
# Subroutines
# #####################################################################
# stop find at a given depth
sub preprocess {
my $depth = $File::Find::dir =~ tr[/][];
return @_ if $depth < $max_depth;
return grep { not -d } @_ if $depth == $max_depth;
return;
}
sub make_master_html_index {
open FILE,
">master_thumb_index.html" or die "cant write master html\n";
print FILE "\n";
print FILE "\n";
print FILE "Thumbnail Index\n";
print FILE "Doug's Hall B Picture Archive
\n";
print FILE "
";
foreach $l (@dir_list) {
$link = $l;
$link =~ s/.\///;
$l =~ s/\\ /%20/g;
$l =~ s/ /%20/g;
$l =~ s/.\///;
print FILE "
";
print FILE "$link\n";
}
print FILE "
Page Generated on $time by \n";
print FILE "make_thumbNails.pl";
print FILE "\n\n";
print "made an overall index: master_thumb_index.html\n";
}
sub getDirNames {
push(@dirNames_long, $File::Find::dir);
}
sub getFiles{
if ((/\.jpg$/) || (/\.JPG$/)) {
push(@list_of_jpgs, $File::Find::name);
for ($i=0; $i<=$#list_of_jpgs; $i++) {
$list_of_jpgs[$i] =~ s/\.\///;
$list_of_jpgs[$i] =~ s/\.JPG//;
$list_of_jpgs[$i] =~ s/\.jpg//;
print "$list_of_jpgs[$i]\n";
}
}
}
sub make_html_index {
$dirName =~ s/.\///;
open FILE,
">thumb_index.html" or die "cant write to thumb_index.html\n";
print FILE "\n";
print FILE "\n";
print FILE "Thumbnail Index\n";
print FILE "Doug's Hall B Picture Archive
\n";
print FILE "";
print FILE "$dirName
\n";
print FILE "\n";
$i = 0;
$tr_num = 0;
foreach $l (@list_of_jpgs) {
#capture CTRL-C
$SIG{INT} = sub { exit(0); };
$l =~ s/\\ /%20/g;
$l =~ s/ /%20/g;
$l =~ s/.\///;
$pic = $l;
$pic =~ s/\.JPG//;
$pic =~ s/\.jpg//;
$pic = "thumb_pics/thumb_$pic.jpg";
print FILE
" | \n";
if($tr_num++ > 5) {
print FILE "
\n";
$tr_num = 0;
}
}
print FILE "
\n";
print FILE "
";
print FILE "Back to Master Index\n";
print FILE "
Page Generated on $time by \n";
print FILE "make_thumbNails.pl";
print FILE "\n\n";
print "made a default web page: ./$dirName/thumb_index.html\n\n";
}
sub printHelp {
print "\nThis program will make thumb nail pics of all directories one level below it.\n";
print "A master_thumb_index is created to reference all pictures.\n";
print "All pictures must have the extension JPG or jpg.\n";
print "flags:\n";
print "\t-h This help message\n";
print "\t-help This help message\n";
print "\t-w Wipe. Removes all thumb picture files.\n\n";
exit();
}