use strict; use English; use Warnings; use Image::Magick; use Image::Magick::Thumbnail; opendir(DIR,$ARGV[0]) || die "Can't open directory: $!\n"; open(FIL,">$ARGV[0]/index.html") || die "Can't write html file: $!\n"; print FIL ""; mkdir("$ARGV[0]/Thumbnails") unless (-d "$ARGV[0]/Thumbnails"); mkdir("$ARGV[0]/Reduced") unless (-d "$ARGV[0]/Reduced"); my $i=1; foreach (sort grep {/jpg$/i} readdir(DIR)){ if (/Censored/){ print "skipping $_\n"; next; } print "reading $_\n"; my $img = new Image::Magick; $img->Read("$ARGV[0]/$_"); my ($thumb,$x,$y) = Image::Magick::Thumbnail::create($img,640); $thumb->Write("$ARGV[0]/Reduced/$_"); ($thumb,$x,$y) = Image::Magick::Thumbnail::create($img,100); $thumb->Write("$ARGV[0]/Thumbnails/$_"); print FIL ""; if (!($i++ % 6)) {print FIL "";} } print FIL "

Lrg

"; close(FIL); closedir(DIR);