CGI-Application-Plugin-Thumbnail

 view release on metacpan or  search on metacpan

lib/CGI/Application/Plugin/Thumbnail.pod  view on Meta::CPAN

   DOCUMENT_ROOT/.thumbnails/100x100/img/one.jpg
   
   ?rm=thumbnail&rel_path=img/one.jpg&thumbnail_restriction=100x100
   DOCUMENT_ROOT/.thumbnails/100x100/img/one.jpg

   ?rm=thumbnail&rel_path=img/one.jpg&thumbnail_restriction=600x600
   DOCUMENT_ROOT/.thumbnails/600x600/img/one.jpg

=head1 CHANGES

Since version 1.03, instead of using Image::Magick::Thumbnail, we use Image::Thumbnail.
You must have GD, Image::Magick, or Imager installed.
Requested by Lyle.

For more changes, see the 'Changes' file included in this distribution.

=head1 REVISION

$Revision: 1.1 $

=head1 CAVEATS & BUGS

t/0.t  view on Meta::CPAN

use strict;
use lib './lib';
use lib './t';
use Cwd;
use PTest;


BEGIN {
   ok(1);
   my @pms; # which work ?
   for my $pm ( qw/GD Image::Magick Imager BoguZNonseze::Module::herew2123523::indeed/ ){
      
      my $r ;
      $r = eval("require $pm;");
      $r||=0;
      
      warn("  - require $pm: $r\n");
      $r or next;
      push @pms, $pm;   
   }
   warn "WORKING MODULES: @pms\n\n";
   scalar @pms or warn("You dont have GD, Image::Magick or Imager installed, skipping.") and exit;

}







my $_part =0;

t/0.t  view on Meta::CPAN

$ENV{CGI_APP_RETURN_ONLY} = 1;

$CGI::Application::Plugin::Thumbnail::DEBUG = 1;

sub ok_part { printf STDERR "\n====================\n PART %s %s\n====================\n\n", $_part++, "@_" }



ok_part("MAKE sure Image::Thumbnail will really work.\n
I am getting fail reports because Image::Thumbnail is crashing when it does not find Image::Magick");
use Image::Thumbnail;
my $abs_img = cwd().'/t/ayn_rand.jpg';
my $abs_img_out = cwd().'/t/ayn_rand_thumb.jpg';
unlink $abs_img_out;

-f $abs_img or die("missing files, check your distro.");
my $__t = new Image::Thumbnail(
   size => 50,
   create => 1,
   input => $abs_img,

t/1.t  view on Meta::CPAN

$ENV{CGI_APP_RETURN_ONLY} = 1;
$CGI::Application::Plugin::Thumbnail::DEBUG = 1;
use PTest;


BEGIN {
   ok(1);

   my @pms; # which work ?
   for my $pm ( qw/GD Image::Magick Imager BoguZNonseze::Module::herew2123523::indeed/ ){
      
      my $r ;
      $r = eval("require $pm;");
      $r||=0;
      
      warn("  - require $pm: $r\n");
      $r or next;
      push @pms, $pm;   
   }
   warn "WORKING MODULES: @pms\n\n";
   scalar @pms or warn("You dont have GD, Image::Magick or Imager installed, skipping.") and exit;

}

t/3_Image-Thumbnail-reqs.t  view on Meta::CPAN

use vars qw($_part $cwd);
$cwd = cwd();







   my @pms; # which work ?
   for my $pm ( qw/GD Image::Magick Imager BoguZNonseze::Module::herew2123523::indeed/ ){
      
      my $r ;
      $r = eval("require $pm;");
      $r||=0;
      
      warn("  - require $pm: $r\n");
      $r or next;
      push @pms, $pm;   
   }
   warn "WORKING MODULES: @pms\n\n";
   ok( scalar @pms, "have GD, Image::Magick or Imager installed");