Mercurial > laserkard
annotate laserkard_source_images/convert.pl @ 49:5eb11cf654de laserkard
[svn r50] implemented max text length
author | rlm |
---|---|
date | Sun, 31 Jan 2010 21:37:24 -0500 |
parents | 2f537455ebf7 |
children |
rev | line source |
---|---|
rlm@15 | 1 #!/usr/bin/perl |
rlm@15 | 2 @rr = glob('*.png'); |
rlm@15 | 3 |
rlm@15 | 4 $" = "\n"; |
rlm@15 | 5 |
rlm@15 | 6 print "@rr\n"; |
rlm@15 | 7 |
rlm@15 | 8 #@rr = @rr[0]; |
rlm@15 | 9 for $t(@rr) |
rlm@15 | 10 { |
rlm@15 | 11 |
rlm@15 | 12 $t =~ m/(.*)\.png/; |
rlm@15 | 13 $name = $1; |
rlm@15 | 14 |
rlm@15 | 15 |
rlm@18 | 16 $cmd1 = "convert $name.png -resize 518x ../images/display/$name.jpg"; |
rlm@18 | 17 $cmd2 = "convert $name.png -resize 250x ../images/templates/$name.jpg"; |
rlm@15 | 18 |
rlm@18 | 19 print "$cmd1\n"; |
rlm@18 | 20 `$cmd1`; |
rlm@18 | 21 print "$cmd2\n"; |
rlm@18 | 22 `$cmd2`; |
rlm@15 | 23 |
rlm@15 | 24 |
rlm@15 | 25 |
rlm@15 | 26 } |