Mercurial > judyates

view perl/convert_images.pl @ 22:be17de86e80d judyates

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add promo for old-masters stuff (very rough).
author Robert McIntyre <rlm@mit.edu>
date Sun, 09 Feb 2014 20:46:57 -0500
parents 34fdec47b0a0
children
line wrap: on
line source
     1 #!/usr/bin/perl



     2 



     3 



     4 chdir "/home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos-source/photos-normal";



     5 



     6 @names = glob("*.JPG");



     7 



     8 $" = "\n";



     9 



    10 #print "@names";



    11 



    12 



    13 for (@names){



    14  /(.*)\.JPG/i;



    15  $name = $1;



    16  



    17  $command = "convert $_ -resize 720X480 -quality 90\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/$name.jpg\n";



    18  print $command;



    19  `$command`;



    20  



    21  $command = "convert $_ -resize 1300X -quality 90\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/large/$name.jpg\n";



    22  print $command;



    23   `$command`;



    24  



    25  $command = "convert ../photos-thumb/$_ -resize 120X120 -quality 90\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/thumbs/$name.jpg\n";



    26  print $command;



    27  `$command`;



    28   



    29  



    30  



    31 }