medvedych/fotostore
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Rotation was fixed

Browse source
This commit is contained in:
Denis Fedoseev 2017-07-19 16:21:20 +09:00
parent 112aa4b48f
commit 21f362c5f5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
fotostore.pl
View file

@ -172,14 +172,14 @@ post '/upload' => (authenticated => 1)=> sub {
my $rotation_angle = $imager->tags( name => "exif_orientation") || 1; my $rotation_angle = $imager->tags( name => "exif_orientation") || 1;
$self->app->log->info("Rotation angle [".$rotation_angle."] [".$image->filename."]"); $self->app->log->info("Rotation angle [".$rotation_angle."] [".$image->filename."]");
for my $scale (@scale_width) { if ($rotation_angle == 3) {
if ($rotation_angle == 3) {
$imager = $imager->rotate(degrees=>180); $imager = $imager->rotate(degrees=>180);
} }
elsif ($rotation_angle == 6) { elsif ($rotation_angle == 6) {
$imager = $imager->rotate(degrees=>90); $imager = $imager->rotate(degrees=>90);
} }
for my $scale (@scale_width) {
my $scaled = $imager->scale(xpixels => $scale); my $scaled = $imager->scale(xpixels => $scale);
$scaled->write(file => File::Spec->catfile($IMAGE_DIR, $scale, $filename)) or die $scaled->errstr; $scaled->write(file => File::Spec->catfile($IMAGE_DIR, $scale, $filename)) or die $scaled->errstr;