view laserkard_source_images/convert.pl @ 69:dd97a10c782e laserkard

Added access.log and error.log to switch to lighttpd.
author Robert McIntyre <rlm@mit.edu>
date Tue, 22 Jun 2010 13:37:30 -0400
parents 2f537455ebf7
children
line wrap: on
line source
1 #!/usr/bin/perl
2 @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 }