#!/usr/bin/perl
# by Wesley R. Elsberry
# Will copy JPEG files and produce thumbnails and web-sized graphics.

opendir(DIR,".");
@files = readdir(DIR);
closedir(DIR);

foreach (@files) {
    if (/\d.jpg$/io) {
	&resize_pic($_);
    }
}

sub resize_pic {
    local($inpic) = @_;
    local($_);

    print "$inpic ";
    $_ = $inpic;
    tr/A-Z/a-z/;
    $inpiclc = $_;
    $inpiclc =~ /^(.+)(....)$/o;

$inpic_tn = $1 . "_tn" . $2;
$inpic_ws = $1 . "_ws" . $2;
$inpic_pp = $1 . "_pp" . $2;

#$cmd = "cp $inpic $inpic_tn; cp $inpic $inpic_ws";
if (!(-e $inpic_tn)) {
  print " tn ";
  $cmd = "copy $inpic $inpic_tn";
  system($cmd);
  $cmd = "mogrify -normalize -resize 240x240 $inpic_tn";
  system($cmd);
  $cmd = "jpegoptim --strip-all -m60 $inpic_tn";
  system($cmd);
}
if (!(-e $inpic_ws)) {
  print " ws ";
  $cmd = "copy $inpic $inpic_ws";
  system($cmd);
  $cmd = "mogrify -normalize -resize 560x560 $inpic_ws";
  system($cmd);
  $cmd = "jpegoptim --strip-all -m60 $inpic_ws";
  system($cmd);
}
if (!(-e $inpic_pp)) {
  print " pp ";
  $cmd = "copy $inpic $inpic_pp";
  system($cmd);
  $cmd = "mogrify -normalize -resize 1024x1024 $inpic_pp";
  system($cmd);
  $cmd = "jpegoptim --strip-all -m70 $inpic_pp";
  system($cmd);
}


print "done.\n";

}