#============================================================= -*-Perl-*- # # Template::Plugin::Image # # DESCRIPTION # Plugin for encapsulating information about an image. # # AUTHOR # Andy Wardley # # COPYRIGHT # This module is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # #============================================================================ package Template::Plugin::Image; use strict; use warnings; use base 'Template::Plugin'; use Template::Exception; use File::Spec; our $VERSION = 1.21; our $AUTOLOAD; BEGIN { if (eval { require Image::Info; }) { *img_info = \&Image::Info::image_info; } elsif (eval { require Image::Size; }) { *img_info = sub { my $file = shift; my @stuff = Image::Size::imgsize($file); return { "width" => $stuff[0], "height" => $stuff[1], "error" => # imgsize returns either a three letter file type # or an error message as third value (defined($stuff[2]) && length($stuff[2]) > 3 ? $stuff[2] : undef), }; } } else { die(Template::Exception->new("image", "Couldn't load Image::Info or Image::Size: $@")); } } #------------------------------------------------------------------------ # new($context, $name, \%config) # # Create a new Image object. Takes the pathname of the file as # the argument following the context and an optional # hash reference of configuration parameters. #------------------------------------------------------------------------ sub new { my $config = ref($_[-1]) eq 'HASH' ? pop(@_) : { }; my ($class, $context, $name) = @_; my ($root, $file, $type); # name can be a positional or named argument $name = $config->{ name } unless defined $name; return $class->throw('no image file specified') unless defined $name and length $name; # name can be specified as an absolute path or relative # to a root directory if ($root = $config->{ root }) { $file = File::Spec->catfile($root, $name); } else { $file = defined $config->{file} ? $config->{file} : $name; } # Make a note of whether we are using Image::Size or # Image::Info -- at least for the test suite $type = $INC{"Image/Size.pm"} ? "Image::Size" : "Image::Info"; # set a default (empty) alt attribute for tag() $config->{ alt } = '' unless defined $config->{ alt }; # do we want to check to see if file exists? bless { %$config, name => $name, file => $file, root => $root, type => $type, }, $class; } #------------------------------------------------------------------------ # init() # # Calls image_info on $self->{ file } #------------------------------------------------------------------------ sub init { my $self = shift; return $self if $self->{ size }; my $image = img_info($self->{ file }); return $self->throw($image->{ error }) if defined $image->{ error }; @$self{ keys %$image } = values %$image; $self->{ size } = [ $image->{ width }, $image->{ height } ]; $self->{ modtime } = (stat $self->{ file })[10]; return $self; } #------------------------------------------------------------------------ # attr() # # Return the width and height as HTML/XML attributes. #------------------------------------------------------------------------ sub attr { my $self = shift; my $size = $self->size(); return "width=\"$size->[0]\" height=\"$size->[1]\""; } #------------------------------------------------------------------------ # modtime() # # Return last modification time as a time_t: # # [% date.format(image.modtime, "%Y/%m/%d") %] #------------------------------------------------------------------------ sub modtime { my $self = shift; $self->init; return $self->{ modtime }; } #------------------------------------------------------------------------ # tag(\%options) # # Return an XHTML img tag. #------------------------------------------------------------------------ sub tag { my $self = shift; my $options = ref $_[0] eq 'HASH' ? shift : { @_ }; my $tag = 'attr(); # XHTML spec says that the alt attribute is mandatory, so who # are we to argue? $options->{ alt } = $self->{ alt } unless defined $options->{ alt }; if (%$options) { while (my ($key, $val) = each %$options) { my $escaped = escape( $val ); $tag .= qq[ $key="$escaped"]; } } $tag .= ' />'; return $tag; } sub escape { my ($text) = @_; for ($text) { s/&/&/g; s//>/g; s/"/"/g; } $text; } sub throw { my ($self, $error) = @_; die (Template::Exception->new('Image', $error)); } sub AUTOLOAD { my $self = shift; (my $a = $AUTOLOAD) =~ s/.*:://; $self->init; return $self->{ $a }; } 1; __END__ =head1 NAME Template::Plugin::Image - Plugin access to image sizes =head1 SYNOPSIS [% USE Image(filename) %] [% Image.width %] [% Image.height %] [% Image.size.join(', ') %] [% Image.attr %] [% Image.tag %] =head1 DESCRIPTION This plugin provides an interface to the L or L modules for determining the size of image files. You can specify the plugin name as either 'C' or 'C'. The plugin object created will then have the same name. The file name of the image should be specified as a positional or named argument. [% # all these are valid, take your pick %] [% USE Image('foo.gif') %] [% USE image('bar.gif') %] [% USE Image 'ping.gif' %] [% USE image(name='baz.gif') %] [% USE Image name='pong.gif' %] A C parameter can be used to specify the location of the image file: [% USE Image(root='/path/to/root', name='images/home.png') %] # image path: /path/to/root/images/home.png # img src: images/home.png In cases where the image path and image url do not match up, specify the file name directly: [% USE Image(file='/path/to/home.png', name='/images/home.png') %] The C parameter can be used to specify an alternate name for the image, for use in constructing an XHTML element (see the C method below). [% USE Image('home.png', alt="Home") %] You can also provide an alternate name for an C plugin object. [% USE img1 = image 'foo.gif' %] [% USE img2 = image 'bar.gif' %] The C method returns the image file name. [% img1.name %] # foo.gif The C and C methods return the width and height of the image, respectively. The C method returns a reference to a 2 element list containing the width and height. [% USE image 'foo.gif' %] width: [% image.width %] height: [% image.height %] size: [% image.size.join(', ') %] The C method returns the modification time of the file in question, suitable for use with the L plugin, for example: [% USE image 'foo.gif' %] [% USE date %] [% date.format(image.modtime, "%B, %e %Y") %] The C method returns the height and width as HTML/XML attributes. [% USE image 'foo.gif' %] [% image.attr %] Typical output: width="60" height="20" The C method returns a complete XHTML tag referencing the image. [% USE image 'foo.gif' %] [% image.tag %] Typical output: You can provide any additional attributes that should be added to the XHTML tag. [% USE image 'foo.gif' %] [% image.tag(class="logo" alt="Logo") %] Typical output: Note that the C attribute is mandatory in a strict XHTML C element (even if it's empty) so it is always added even if you don't explicitly provide a value for it. You can do so as an argument to the C method, as shown in the previous example, or as an argument [% USE image('foo.gif', alt='Logo') %] =head1 CATCHING ERRORS If the image file cannot be found then the above methods will throw an C error. You can enclose calls to these methods in a C block to catch any potential errors. [% TRY; image.width; CATCH; error; # print error END %] =head1 USING Image::Info At run time, the plugin tries to load L in preference to L. If L is found, then some additional methods are available, in addition to C, C, C, C, and C. These additional methods are named after the elements that L retrieves from the image itself. The types of methods available depend on the type of image (see L for more details). These additional methods will always include the following: =head2 file_media_type This is the MIME type that is appropriate for the given file format. The corresponding value is a string like: "C" or "C". =head2 file_ext The is the suggested file name extention for a file of the given file format. The value is a 3 letter, lowercase string like "C", "C". =head2 color_type The value is a short string describing what kind of values the pixels encode. The value can be one of the following: Gray GrayA RGB RGBA CMYK YCbCr CIELab These names can also be prefixed by "C" if the image is composed of indexes into a palette. Of these, only "C" is likely to occur. (It is similar to the TIFF field PhotometricInterpretation, but this name was found to be too long, so we used the PNG inpired term instead.) =head2 resolution The value of this field normally gives the physical size of the image on screen or paper. When the unit specifier is missing then this field denotes the squareness of pixels in the image. The syntax of this field is: "/" "/" The CresE>, CxresE> and CyresE> fields are numbers. The CunitE> is a string like C, C or C (denoting "dots per inch/cm/meter). =head2 SamplesPerPixel This says how many channels there are in the image. For some image formats this number might be higher than the number implied from the C. =head2 BitsPerSample This says how many bits are used to encode each of samples. The value is a reference to an array containing numbers. The number of elements in the array should be the same as C. =head2 Comment Textual comments found in the file. The value is a reference to an array if there are multiple comments found. =head2 Interlace If the image is interlaced, then this returns the interlace type. =head2 Compression This returns the name of the compression algorithm is used. =head2 Gamma A number indicating the gamma curve of the image (e.g. 2.2) =head1 AUTHOR Andy Wardley Eabw@wardley.orgE L =head1 COPYRIGHT Copyright (C) 1996-2007 Andy Wardley. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO L, L =cut # Local Variables: # mode: perl # perl-indent-level: 4 # indent-tabs-mode: nil # End: # # vim: expandtab shiftwidth=4: