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`;
    }
}