#!/usr/bin/perl

$orientation=$ARGV[0];

if (! $orientation ) {
	print "Usage: resize-images <orientation>\n";
	exit 0;
}

if ($orientation eq "vert") {
	$size="470x720";
} else {
	$size="720x480";
}

print "$size\n";

open(FIND, "ls *.jpg |") || die "Couldn't run find: $!\n";                   
@files=<FIND>;
close (FIND);

$number=1;
$number = sprintf("%.2d", $number);
foreach $filename(@files)
{
	chomp($filename);
	system ("/usr/bin/convert -quality 75 -size $size $filename -resize $size +profile \"*\" $number-$filename >/dev/null 2>&1");
	$number++;
}