Mercurial > laserkard
view laserkard_source_images/convert.pl @ 25:b9a4988a22ed laserkard
[svn r26] initial live version of website completed. still have "selection" bug
author | rlm |
---|---|
date | Sun, 03 Jan 2010 22:26:26 -0500 |
parents | 2f537455ebf7 |
children |
line wrap: on
line source
1 #!/usr/bin/perl2 @rr = glob('*.png');4 $" = "\n";6 print "@rr\n";8 #@rr = @rr[0];9 for $t(@rr)10 {12 $t =~ m/(.*)\.png/;13 $name = $1;16 $cmd1 = "convert $name.png -resize 518x ../images/display/$name.jpg";17 $cmd2 = "convert $name.png -resize 250x ../images/templates/$name.jpg";19 print "$cmd1\n";20 `$cmd1`;21 print "$cmd2\n";22 `$cmd2`;26 }