#!/usr/local/bin/perl
#
# convert a directory full of jpg files to small and medium.

my $filename;
my $basename;

my @filelist;

## Grab file listing...

if (not @ARGV)
{
    opendir D, '.' or die "$!";
    @filelist = grep { /\d+\.jpg/i  } readdir D;
    closedir D;
}
else
{
    @filelist = @ARGV;
}

@filelist = sort @filelist;

foreach $filename (@filelist)
{
    $filename =~ m/(.*)\..*/o;
    $basename = $1;

    print "converting $basename to 358x240 JPEG (20%)\n";
    if (! -e "$basename-sm.jpg")
    {
        `convert -geometry 20% $filename jpeg:$basename-sm.jpg`;
    }

    print "converting $basename to 896x600 JPEG (50%)\n";
    if (! -e "$basename-md.jpg")
    {
        `convert -geometry 50% $filename jpeg:$basename-md.jpg`;
    }
}

exit;

__END__