use strict;
use warnings;
use Image::Magick;

my $rootSearchPath = '/nanomiaRAID/dcline/Benthic_Classification/color';

my @searchPaths = `find $rootSearchPath -type d`;
chomp(@searchPaths);
my $searchPath = "";
foreach $searchPath (@searchPaths)
{    
	my $imname = "";    
	my @imnames = `find $searchPath -type f | grep [pP][pP][mM]`;              
	chomp(@imnames);
	
	foreach $imname (@imnames)
	{
		my $pa = new Image::Magick;
		$pa->Read($imname);
		my ($ha,$wa) = $pa->Get('height','width');
		my $maxdim = $ha;
		if($wa > $ha) {
			$maxdim = $wa;
		}
		`mogrify -resize "$maxdim"x"$maxdim"! -format jpg -quality 100 $imname`;
		`rm $imname`;
        }
}