|
#!/usr/bin/env perl
print <<EOF
photog-scale - Scales an image to web size
Usage: photog-scale original.jpg web.jpg
EOF
and exit if @ARGV != 2;
my $command = qq[convert "$ARGV[0] " -resize 10000x2160 -quality 88% "$ARGV[1]" ];
exit !! system ( $command );
|