tools/mkimgthumb

   1 #!/usr/bin/env perl
   2 use 5.014;
   3 use warnings;
   4
   5 my $failcount = 0;
   6
   7 for my $src (@ARGV) {
   8         my ($name, @cmds) = split /:/, $src =~ s/\.\w+$//r;
   9         next if $name =~ m/\./;
  10         say $name;
  11         unshift @cmds, -gravity => 'northwest';
  12         push @cmds, -resize => '300x200^', -gravity => 'north', -extent => '300x200';
  13         push @cmds, '-strip', -quality => '60%';
  14         system(convert => @cmds, $src => "../$name.jpg") == 0
  15                 or $failcount += warn "error creating $name.jpg from $src\n";
  16 }
  17
  18 exit $failcount;