#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/:standard/;

use File::Glob ':glob';
use File::Basename;
use ImageMagick;

my $q = new CGI;

print $q->header();

if($numArgs < 3) { 
	print "Usage\n";
	print "convertimages.pl widthxheight outputdir \"filepattern\" [quality percent]\n";
	exit(1);
}

# Get the width and height
my $dimensions = $ARGV[0];
# get the output dir
my $outputdir = $ARGV[1];
# get the file mask
my $filepattern = $ARGV[2];
# Get the quality
my $quality = $ARGV[3] || 0;

print "Requested Size: $dimensions\n";
print "Output Directory: $outputdir\n";
print "Filepattern: $filepattern\n";

my @filelist = bsd_glob($filepattern);
my $numFiles = @filelist;
print "Processing $numFiles files\n";
my $count = 0;

my $command = "";

foreach my $filename ( @filelist ) {
	#print "Processing $filename\n";
	my $fileBaseName = basename($filename);
	my $outputFile = "$outputdir/$fileBaseName";
	$command = "convert -size $dimensions " . (($quality) ? "-quality $quality " : "") . "$filename -resize $dimensions $outputFile";
	`$command`;
		$count++;
	print "$count ";
}
print "\n";