view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

                     'Apache2::Filter' => 0,
                     'Apache2::RequestRec' => 0,
                     'Apache2::RequestUtil' => 0,
                     'Apache2::SubRequest' => 0,
                     'Apache2::Connection' => 0,
                     'CGI::Cookie' => 0, 
                     'APR::Table' => 0, 
                     'Apache2::Const' => 0, 
                     'Image::Resize' => 0,
                     'Image::Scale' => 0,
                     'Image::Magick ' => 0,
                     'Imager' => 0,
                     'LWP::Simple' => 0,
            		     'File::Copy' => 0,
      	       	     'IO::Uncompress::Unzip'  => 0,
                     'IO::Uncompress::Gunzip' => 0,
                     'Cache::Memcached'  => "1.27",
            		     'Cache::FileBackend' => 0,
                     'LWP::Protocol::https' => 0,
                     'Digest::MD5' => 0
                     },

lib/Apache2/AMFImageRendering.pm  view on Meta::CPAN

  use Apache2::RequestRec ();
  use Apache2::RequestUtil ();
  use Apache2::SubRequest ();
  use Apache2::Log;
  use Apache2::Filter (); 
  use APR::Table (); 
  use APR::Base64 (); 
  use LWP::Simple;
  use Image::Resize;
  use Image::Scale;
  use Image::Magick;
  use File::Copy;
  use Imager;
  use Apache2::Const -compile => qw(OK REDIRECT DECLINED HTTP_MOVED_TEMPORARILY);
  use constant BUFF_LEN => 1024;


  #
  # Define the global environment
  # 

lib/Apache2/AMFImageRendering.pm  view on Meta::CPAN

										my $dummy=$imagefile.".gif";
										Imager->write_multi({ file => $dummy }, @out) or die "Cannot save $imagefile: ", Imager->errstr, "\n";
										rename($dummy, $imagefile);
								  } 
								  if ($content_type eq "image/png") {
                    if ($typeGraphicLibrary eq 'gd') {
                      my $img = Image::Scale->new("$imageToConvert") ;
                      $img->resize_gd( { width => $width } );
                      $img->save_png("$imagefile");
                    } else {
                        my $img = Image::Magick->new;
                        $img->Read($imageToConvert);
                        $img->Comment("Resized by AMF (http://www.apachemobilefilter.org)");
                        $img->Set(quality=>$qualityImage);
                        $img->Resize(geometry => $width);
                        $img->Write($imagefile);
                    }
								  }
								  if ($content_type eq "image/jpeg") {
                    if ($typeGraphicLibrary eq 'gd') {
                        my $img = Image::Scale->new("$imageToConvert");
                        $img->resize_gd( { width => $width } );
										    $img->save_jpeg("$imagefile",$qualityImage);
                    } else {
                        my $img = Image::Magick->new;
                        $img->Read($imageToConvert);
                        #unsharp  0x2+1+0
                        $img->Comment("Resized by AMF (http://www.apachemobilefilter.org)");
                        $img->UnsharpMask(radius=>0,sigma=>2,gain=>1,threshold=>0);
                        $img->Set(quality=>$qualityImage);
                        $img->Resize(geometry => $width);
                        $img->Write($imagefile);
                    }
								  }
							   }