6 use Image::Info qw(image_info);
14 ($config->{program_name}) = $0 =~/([^\/]+)\s*$/;
17 print STDERR "No Directory Specified\nUsage: $config->{program_name} <directory>\n";
21 $config->{dir} ||= $ARGV[0];
23 my $current_directory = new IO::Dir $config->{dir} or die "Unable to read directory $config->{dir}";
25 while (defined($_ = $current_directory->read)) {
27 next unless /(jpg|gif|jpeg|png|pict|bmp)$/i;
30 my $image_info = image_info($_);
31 next if not defined $image_info;
32 if ($image_info->{Orientation} eq 'left_bot') {
33 qx(mogrify -rotate -90 $_);
35 elsif ($image_info->{Orientation} eq 'top_left') {
38 elsif ($image_info->{Orientation} eq 'right_top') {
39 qx(mogrify -rotate 90 $_);
41 elsif ($image_info->{Orientation} eq 'right_bot') {
42 qx(mogrify -rotate 180 $_);