Revision 143

Date:
2011/09/29 12:24:26
Author:
ahitrov
Revision Log:
Image::Info in image loader
Files:

Legend:

 
Added
 
Removed
 
Modified

  • koi8/core/config.mk

     
    7 7 CORE_REQUIRED += BSD-Resource
    8 8 CORE_REQUIRED += Digest-MD5
    9 9 CORE_REQUIRED += Image-Size
    10 CORE_REQUIRED += Image-Info
    10 11 CORE_REQUIRED += String-CRC32
    11 12 CORE_REQUIRED += Time-HiRes
    12 13 CORE_REQUIRED += Time-modules

  • koi8/core/lib/Contenido/File.pm

     
    11 11 use Contenido::File::Scheme::HTTP;
    12 12 use Contenido::File::Scheme::FILE;
    13 13 use Contenido::DateTime;
    14 use Image::Info qw(image_info dim);
    14 15
    15 16 our $IgnoreErrors = 1;
    16 17
    … …  
    209 210
    210 211 undef $fh_tmp;
    211 212
    213 my $image_info = image_info($filename_tmp.'.'.$ext);
    214 if ( ref $image_info && $image_info->{file_ext} ne $ext ) {
    215 rename $filename_tmp.'.'.$ext, $filename_tmp.'.'.$image_info->{file_ext};
    216 $ext = $image_info->{file_ext};
    217 }
    218
    212 219 my $IMAGE;
    213 220 if ( store($filename.'.'.$ext, $filename_tmp.'.'.$ext) ) {
    214 221 $IMAGE = {};

  • koi8/core/ports/all/Image-Info/GNUmakefile

     
    1 ##############################################################################
    2 # $HeadURL: http://svn.dev.rambler.ru/Contenido/branches/utf8/ports/all/Image-Size/GNUmakefile $
    3 # $Id: GNUmakefile 175 2006-06-16 12:50:03Z lonerr $
    4 ###############################################################################
    5
    6 PORTVERSION = 1.31
    7 PERL_MAKEMAKER = yes
    8 MASTER_CPAN_SUBDIR = Image
    9
    10
    11 include ../../etc/ports.mk