Arh/bin/resize-tif.pl

#!/usr/bin/perl

use strict;
use warnings;

sub resize {
        my $tif = shift;
        my $basename = $tif;
        $basename =~ s|^.*?([^/]+)$|$1|;
        my $to = "share/web/static/pics/$basename.jpg";
        return if -e $to;
        my $cmd = "convert -geometry 320x200 '$tif.tif' $to";
        warn "## $cmd\n";
        system( $cmd );
}

foreach my $tif ( @ARGV ) {
        if ( $tif =~ s/\.tiff*$// ) {
                resize( $tif );
        } else {
                warn "$tif not tif!\n";
                next;
        }
}
1	dpavlin	4	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5
6			sub resize {
7			my $tif = shift;
8			my $basename = $tif;
9			$basename =~ s\|^.*?([^/]+)$\|$1\|;
10			my $to = "share/web/static/pics/$basename.jpg";
11			return if -e $to;
12			my $cmd = "convert -geometry 320x200 '$tif.tif' $to";
13			warn "## $cmd\n";
14			system( $cmd );
15			}
16
17			foreach my $tif ( @ARGV ) {
18			if ( $tif =~ s/\.tiff*$// ) {
19			resize( $tif );
20			} else {
21			warn "$tif not tif!\n";
22			next;
23			}
24			}