VLGal::File::MMagic - Vincenzo's little gallery MMagic file

VLGal-Directory documentation Contained in the VLGal-Directory distribution.

Index

Code Index:

NAME

Top

VLGal::File::MMagic - Vincenzo's little gallery MMagic file

SYNOPSIS

Top

TODO

ABSTRACT

Top

Vincenzo's little gallery MMagic file

DESCRIPTION

Top

VLGal::File::MMagic describes properties of Vincenzo's little gallery MMagic file.

CONSTRUCTOR

Top

new( [ OPT_HASH_REF ] )

Creates a new VLGal::File::MMagic object. OPT_HASH_REF is a hash reference used to pass initialization options. On error an exception Error::Simple is thrown.

Options for OPT_HASH_REF inherited through package VLGal::File may include:

basename

Passed to set_basename().

dirname

Passed to set_dirname().

super_dir

Passed to set_super_dir().

METHODS

Top

generate()

This method is an implementation from package VLGal::File. Generates the HTML files and image files that implement the gallery.

The file organisation leaves the original organisation as intact as possible. That is, in each directory one file index-vlgal.html and one directory .vlgal are claimed. The file index-vlgal.html is the entry point for the gallery. Directory .vlgal contains generated images in lower resolution and quality and HTML files required by the gallery.

get_basename()

This method is inherited from package VLGal::File. Returns the file's base name.

get_dirname()

This method is inherited from package VLGal::File. Returns the file's directory name.

get_super_dir()

This method is inherited from package VLGal::File. Returns the super directory in the file system.

mk_fs_name()

This method is inherited from package VLGal::File. Makes the file systemn name of the object usinf dirname and basename.

mk_vlgal_dir_name()

This method is inherited from package VLGal::File. Makes the name of the .vlgal directory.

set_basename(VALUE)

This method is inherited from package VLGal::File. Set the file's base name. VALUE is the value. On error an exception Error::Simple is thrown.

set_dirname(VALUE)

This method is inherited from package VLGal::File. Set the file's directory name. VALUE is the value. On error an exception Error::Simple is thrown.

set_super_dir(VALUE)

This method is inherited from package VLGal::File. Set the super directory in the file system. VALUE is the value. On error an exception Error::Simple is thrown.

VALUE must be a (sub)class of:

VLGal::Directory

SEE ALSO

Top

VLGal::Directory, VLGal::File, VLGal::File::Factory, VLGal::Size, VLGal::Style

BUGS

Top

None known (yet.)

HISTORY

Top

First development: September 2003 Last update: October 2003

AUTHOR

Top

Vincenzo Zocca

COPYRIGHT

Top

Copyright 2003 by Vincenzo Zocca

LICENSE

Top

This file is part of the VLGal module hierarchy for Perl by Vincenzo Zocca.

The VLGal module hierarchy is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

The VLGal module hierarchy is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with the VLGal module hierarchy; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

VLGal-Directory documentation Contained in the VLGal-Directory distribution. 
package VLGal::File::MMagic;

use 5.006;
use base qw( VLGal::File );
use strict;
use warnings;
use DirHandle;
use Error qw(:try);
use File::Spec;
use Image::Magick;

# Package version
our ($VERSION) = '$Revision: 0.01 $' =~ /\$Revision:\s+([^\s]+)/;


sub generate {
    my $self = shift;
    my $prev_file = shift;
    my $next_file = shift;

    # Make the .vlgal directory
    ( -d $self->mk_vlgal_dir_name() ) || mkdir( $self->mk_vlgal_dir_name() );

    # For each size, make a file in the .vlgal directory
    my $i = -1;
    foreach my $size ( VLGal::Style->instance()->get_size() ) {
        $i++;
        # Make size directory if necessary
        my $size_dir = File::Spec->catfile(
            $self->get_dirname(),
            '.vlgal',
            $size->get_basename()
        );
        ( -d $size_dir ) || mkdir($size_dir);

        # Make resised file name
        my $fs_name_size = File::Spec->catfile(
            $size_dir,
            $self->get_basename()
        );

        # Write the html file
        if ( $i ) {
             my $super_html_dir;
             if ( $i == 1 ) {
                 $super_html_dir = '../..';
             }
             else {
                 $super_html_dir = '../../.vlgal/' . $size->get_basename();
             }
             $self->generate_html(
                 "$fs_name_size.html",
                 $super_html_dir,
                 $prev_file,
                 $next_file,
                 $size,
             );
        }

        # Do nothing if max_height or max_width equals 0
        $size->get_max_height() && $size->get_max_width() ||
            next;

        # Do nothing if the original file is older than the scaled file
        if ( -f $fs_name_size ) {
            my $time_orig = ( stat( $self->mk_fs_name() ) )[9];
            my $time_scale = ( stat( $fs_name_size ) )[9];
            $time_orig < $time_scale && next;
        }

        # Read the image into ImageMagick
        my $m = Image::Magick->new();
        $m->Read( $self->mk_fs_name() );

        # Get width and height and calculate a shrink factor
        my $width = $m->Get('width');
        my $height = $m->Get('height');
        my $shrink_w = $size->get_max_width() / $width;
        my $shrink_h = $size->get_max_height() / $height;
        my $shrink = $shrink_w < $shrink_h ? $shrink_w : $shrink_h;
        my $width_new = int( $width * $shrink );
        my $height_new = int( $height * $shrink );

        # Print verbose message
        VLGal::Style->instance()->is_verbose() &&
            print STDERR "Scaling file '",
                $self->mk_fs_name(),
                "' to $width_new x $height_new\n";


        # Make new width and height
        $m->Scale(
            'width' => $width_new,
            'height' => $height_new
        );

        # Write the scaled file
        $m->Write($fs_name_size);
    }
}

1;