use File::Path qw(rmtree);
use File::Find;
use File::MMagic;
use File::Path qw(rmtree);
use File::Find;
use File::MMagic;
+use Image::Size qw(imgsize);
use strict;
use Carp qw(cluck confess);
use base qw(Memories::DBI Maypole::Model::CDBI::Plain);
use strict;
use Carp qw(cluck confess);
use base qw(Memories::DBI Maypole::Model::CDBI::Plain);
warn "Couldn't copy photo to ".$photo->path("file").": $!";
$photo->delete(); die;
}
warn "Couldn't copy photo to ".$photo->path("file").": $!";
$photo->delete(); die;
}
- my ($x, $y) = dim(image_info($photo->path));
+ my ($x, $y, undef) = imgsize($photo->path);
$photo->x($x); $photo->y($y);
# Rotate?
$photo->x($x); $photo->y($y);
# Rotate?
}
use Cache::MemoryCache;
}
use Cache::MemoryCache;
-use Image::Info qw(dim image_info);
use Image::ExifTool;
my $cache = new Cache::MemoryCache( { 'namespace' => 'MemoriesInfo' });
use Image::ExifTool;
my $cache = new Cache::MemoryCache( { 'namespace' => 'MemoriesInfo' });
map { split /\s*,\s*/, $md{$_}}
grep {$md{$_} and $md{$_} =~/[^ 0:]/}
(qw(Keywords Subject City State Location Country Province-State),
map { split /\s*,\s*/, $md{$_}}
grep {$md{$_} and $md{$_} =~/[^ 0:]/}
(qw(Keywords Subject City State Location Country Province-State),
- 'Transmission Reference', 'Intellectual Genre',
'Country-Primary Location Name'
);
return keys %tags;
'Country-Primary Location Name'
);
return keys %tags;
DBI
DBD::mysql
Class::DBI::mysql
DBI
DBD::mysql
Class::DBI::mysql
Image::Imlib2 (requires libimlib2 and libimlib2-dev packages)
Time::Piece
Cache::Cache
Image::Imlib2 (requires libimlib2 and libimlib2-dev packages)
Time::Piece
Cache::Cache