#!/usr/bin/perl
my $destdir = shift(@ARGV);
die "Wrong destination directory: $destdir!\n" if (! -d $destdir);
# Get size of long edge
my $size = shift(@ARGV);
die "Wrong size specified: $size!\n" if ($size <= 0);
# Process all supplied files
for my $file (@ARGV) {
    # Does the file exist and is it readable?
    if (! -r $file) {
	print STDERR "Cannot process $file, skipping!\n";
	next;
    }
    # Progress indication
    print STDERR "Processing $file ...\n";
    # Determine destination file name
    my $newfile = $file;
    #$newfile =~ s/\.[^\.]*$/.png/i;
    # Convert the file to have a long edge of size $size
    system("convert -size ${size}x${size} $file -resize ${size}x${size} pnm:- | convert pnm:- -unsharp 1x0.5 -quality 75 $destdir/$newfile && jhead -te $file $destdir/$newfile");
}