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

  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";
  }

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.

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,
      }
  );

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";
  }

Leon Brocard, acme@astray.com

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.