#!/usr/bin/perl -w

my $thumbnail_args = "-xysize 150 150";

my $medium_args = "-xysize 500 500";


use strict;

my %names;

while (<>) {
    chomp;
    my ($orig, $new) = split(/\s+/, $_);
    $names{$orig} = $new;
}


my $file;
foreach $file (keys %names) {
    next unless ($file =~ m/\.jpg$/i);


    print "Renaming $file to $names{$file}.orig.jpg\n";

    rename( $file, "$names{$file}.orig.jpg" ) || die "Couldn't rename file: $!\n";

    # old name is history
    $file = "$names{$file}.orig.jpg";

    my $basename = $file;
    $basename =~ s/\.orig\.jpg$//i;

    print "File is $file, basename is $basename\n";

    print "making pnm file...\n";
    system("djpeg $file > $basename.pnm");

    print "making thumbnail...\n";

    system("pnmscale $thumbnail_args $basename.pnm | cjpeg -quality 95 > $basename.thumbnail.jpg");

    print "making medium size...\n";

    system("pnmscale $medium_args $basename.pnm | cjpeg -quality 95 > $basename.medium.jpg");

    print "Removing pnm file...\n";
    unlink("$basename.pnm");

}