#!/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\" [qu
+ality 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";
[download]