view release on metacpan or  search on metacpan

vhost/toolkit/thumbnails.pl  view on Meta::CPAN

#Global Variables                                                           #
#############################################################################

my ($LMAX,$SMAX) = (800,150);

#############################################################################
#Modules/External Subroutines                                               #
#############################################################################

use Carp;
use Image::Magick;

use lib qw|../cgi-bin/lib ../cgi-bin/plugins|;
use Labyrinth::Globals;
use Labyrinth::Variables;

#############################################################################
#Subroutines
#############################################################################

Labyrinth::Globals::LoadSettings("$BASE/cgi-bin/config/settings.ini");

vhost/toolkit/thumbnails.pl  view on Meta::CPAN

        } else {
            print STDERR "IMAGE MISSING: $source\n";
            next;
        }
    }

    next unless(-f $source);
    unlink $target  if(-f $target);

    # read in current image
    my $i = Image::Magick->new();
    croak "object image error: [$source]"   if !$i;
    my $c = $i->Read($source);
    croak "read image error: [$source] $c"  if $c;
    $c = $i->AutoOrient();
    croak "orient image error: [$source] $c"  if $c;

    # resize main image if necessary
    my ($width,$height) = $i->Get('columns', 'rows');
    if($width > $LMAX || $height > $LMAX) {
        $i->Scale(geometry => "${LMAX}x${LMAX}");