rlm@11: #!/usr/bin/perl
rlm@11: 
rlm@11: 
rlm@11: chdir "/home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos-source/photos-normal";
rlm@11: 
rlm@11: @names = glob("*.JPG");
rlm@11: 
rlm@11: $" = "\n";
rlm@11: 
rlm@11: #print "@names";
rlm@11: 
rlm@11: 
rlm@11: for (@names){
rlm@11:  /(.*)\.JPG/i;
rlm@11:  $name = $1;
rlm@11:  
rlm@11:  $command = "convert $_ -resize X584 -quality 85\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/$name.jpg\n";
rlm@11:  print $command;
rlm@11:  `$command`;
rlm@11:  
rlm@11:  $command = "convert $_ -resize 1300X -quality 85\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/large/$name.jpg\n";
rlm@11:  print $command;
rlm@11:   `$command`;
rlm@11:  
rlm@11:  $command = "convert ../photos-thumb/$_ -resize 120X120 -quality 85\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/thumbs/$name.jpg\n";
rlm@11:  print $command;
rlm@11:  `$command`;
rlm@11:   
rlm@11:  
rlm@11:  
rlm@11: }