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@15: print "convert", " $name.png -resize 582x360\! ../images/display/$name.jpg\n";
rlm@15: `convert $name.png -resize 582x360\! ../images/display/$name.jpg`;
rlm@15: print "convert", " $name.png -resize 210x130\! ../images/templates/$name.jpg\n";
rlm@15: `convert $name.png -resize 210x130\! ../images/templates/$name.jpg`
rlm@15: 
rlm@15: 
rlm@15: 
rlm@15: 
rlm@15: }