GetInvolved/Trac: resize-images-thumb.pl

File resize-images-thumb.pl, 289 bytes (added by mitar, 9 years ago)
Line 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6foreach my $file (@ARGV) {
7    my ($base, $ext) = $file =~ m/\A(.+)\.(.+)\Z/xms;
8
9    if (not $base or not $ext) {
10        warn "Bad filename 'file'.";
11        next;
12    }
13
14    system('convert', $file, '-strip', '-resize', '200x200', "$base-small.$ext") == 0 or die;
15}