NAME

Image::Imlib2::Thumbnail::S3 - Generate thumbnails of an image into S3

SYNOPSIS

use Image::Imlib2::Thumbnail;
use Image::Imlib2::Thumbnail::S3;
use Net::Amazon::S3;

my $thumbnail = Image::Imlib2::Thumbnail->new;
# add extra sizes if necessary
$thumbnail->add_size(
    {   type   => 'landscape',
        name   => 'header',
        width  => 350,
        height => 200
    }
);

my $aws_access_key_id     = 'fill me in ';
my $aws_secret_access_key = 'fill me in too';

my $s3 = Net::Amazon::S3->new(
    {   aws_access_key_id     => $aws_access_key_id,
        aws_secret_access_key => $aws_secret_access_key,
    }
);

# create a bucket...
my $bucket = $s3->add_bucket( { bucket => 'image_imlib2_thumbnail_s3' } )
    or die $s3->err . ": " . $s3->errstr;
# ... or use an existing one:
my $bucket = $s3->bucket('image_imlib2_thumbnail_s3');

my $thumbnail_s3 = Image::Imlib2::Thumbnail::S3->new(
    {   thumbnail => $thumbnail,
        bucket    => $bucket,
    }
);

my @thumbnails = $thumbnail_s3->generate( 'photo.jpg', 'thumbnails/4' );
foreach my $thumbnail (@thumbnails) {
    my $name   = $thumbnail->{name};
    my $width  = $thumbnail->{width};
    my $height = $thumbnail->{height};
    my $type   = $thumbnail->{type};
    my $key    = $thumbnail->{key};
    my $url    = $thumbnail->{url};
    print "$name/$type is $width x $height at $url ($key)\n";
}

DESCRIPTION

This module generates a set of thumbnails of an image and stores them in Amazon S3.

Digital cameras take photos in many different sizes and aspect ratios. Photo websites need to display thumbnails of different sizes of these photos. This module makes it easy to generate a series of thumbnails of an image of the right sizes. It resizes and crops images to match the requires size and uploads them to Amazon's Simple Storage Service.

What sizes does it generate? By default it generates thumbnails of the same dimension that Flickr generates. See Image::Imlib2::Thumbnail.

It makes the thumbnails publically-readable and uploads the original photo but keeps that private.

METHODS

new

The constructor. Takes an Image::Imlib2::Thumbnail object and a Net::Amazon::S3::Bucket object.

my $thumbnail_s3 = Image::Imlib2::Thumbnail::S3->new(
    {   thumbnail => $thumbnail,
        bucket    => $bucket,
    }
);

generate

Generates a set of thumbnails for the image and stores them in S3. It makes the thumbnails publically-readable and uploads the original photo but keeps that private. You pass in a filename and a key prefix. For example, with the code below the URLs will be:

http://s3.amazonaws.com/image_imlib2_thumbnail_s3/thumbnails/4/original.jpg
http://s3.amazonaws.com/image_imlib2_thumbnail_s3/thumbnails/4/square.jpg
http://s3.amazonaws.com/image_imlib2_thumbnail_s3/thumbnails/4/thumbnail.jpg
http://s3.amazonaws.com/image_imlib2_thumbnail_s3/thumbnails/4/small.jpg
http://s3.amazonaws.com/image_imlib2_thumbnail_s3/thumbnails/4/medium.jpg
http://s3.amazonaws.com/image_imlib2_thumbnail_s3/thumbnails/4/large.jpg
http://s3.amazonaws.com/image_imlib2_thumbnail_s3/thumbnails/4/header.jpg

my @thumbnails = $thumbnail_s3->generate( 'photo.jpg', 'thumbnails/4' );
foreach my $thumbnail (@thumbnails) {
    my $name   = $thumbnail->{name};
    my $width  = $thumbnail->{width};
    my $height = $thumbnail->{height};
    my $type   = $thumbnail->{type};
    my $key    = $thumbnail->{key};
    my $url    = $thumbnail->{url};
    print "$name/$type is $width x $height at $url ($key)\n";
}

AUTHOR

Leon Brocard, acme@astray.com

COPYRIGHT

Copyright (c) 2007 Leon Brocard. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.