view perl/convert_images.pl @ 12:2f433df9b961 judyates

[svn r13] Modified esgallery source to enable multiple paypal buttons; got the photo gallery operational and tested.
author rlm
date Mon, 12 Apr 2010 03:24:08 -0400
parents ed6ee381b8fd
children 34fdec47b0a0
line wrap: on
line source
1 #!/usr/bin/perl
4 chdir "/home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos-source/photos-normal";
6 @names = glob("*.JPG");
8 $" = "\n";
10 #print "@names";
13 for (@names){
14 /(.*)\.JPG/i;
15 $name = $1;
17 $command = "convert $_ -resize X584 -quality 85\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/$name.jpg\n";
18 print $command;
19 `$command`;
21 $command = "convert $_ -resize 1300X -quality 85\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/large/$name.jpg\n";
22 print $command;
23 `$command`;
25 $command = "convert ../photos-thumb/$_ -resize 120X120 -quality 85\% /home/r/Desktop/web/judyates/e2gallerypro/e2upload/Galleries/photos/thumbs/$name.jpg\n";
26 print $command;
27 `$command`;
31 }