rlm@15: #!/usr/bin/perl
rlm@15: @rr = glob('*.png');
rlm@15: 
rlm@15: $" = "\n";
rlm@15: 
rlm@15: print "@rr\n";
rlm@15: 
rlm@15: #@rr = @rr[0];
rlm@15: for $t(@rr)
rlm@15: {
rlm@15: 
rlm@15: $t =~ m/(.*)\.png/;
rlm@15: $name = $1;	
rlm@15: 
rlm@15: 
rlm@18: $cmd1 = "convert $name.png -resize 518x ../images/display/$name.jpg";
rlm@18: $cmd2 = "convert $name.png -resize 250x ../images/templates/$name.jpg"; 
rlm@15: 
rlm@18: print "$cmd1\n";
rlm@18: `$cmd1`;
rlm@18: print "$cmd2\n";
rlm@18: `$cmd2`;
rlm@15: 
rlm@15: 
rlm@15: 
rlm@15: }