# # flipright.pl - process digital pictures # Copyright (C) 2002 - Anthony Tonns # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # # --- # # ATonns Mon Dec 25 14:56:38 EST 2000 # # rotate image 90 degrees to the right # my $degrees = "90"; my $mogrify = "C:\\Progra~1\\ImageMagick\\mogrify.exe"; my $file = $ARGV[0]; if ( ! -f "raw/$file" ) { print qq!file: "raw/$file" is missing\n!; exit(1); } if ( ! -f "images/$file" ) { print qq!file: "images/$file" is missing\n!; exit(1); } if ( ! -f "thumbnails/$file" ) { print qq!file: "thumbnails/$file" is missing\n!; exit(1); } foreach ("raw/$file", "images/$file", "thumbnails/$file") { my $f = $_; my $cmd = "$mogrify -verbose -rotate $degrees $f"; print "$cmd\n"; system($cmd); }