Image-Processor

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    'NAME'		=> 'Image::Processor',
    'VERSION_FROM'	=> 'Processor.pm', # finds $VERSION
    'PREREQ_PM'		=> { Image::Magick    => 5.4, 
                         Text::Template   => 0,
                         Image::Size      => 0,
                         Mail::MboxParser => .31,
                          }, # e.g., Module::Name => 1.1
    ($] >= 5.005 ?    ## Add these new keywords supported since 5.005
      (ABSTRACT_FROM => 'Processor.pm', # retrieve abstract from module
       AUTHOR     => 'Aaron J Johnson solution@gina.net') : ()),
);

Processor.pm  view on Meta::CPAN

           'Image::Processor::CD',
           'Image::Processor::Interface::Console',
           'Image::Processor::Store::File',
           'Image::Processor::Mail::GetImages',
           'Image::Processor::Create::HTML'
           #'Image::Processor::Interface::Web',
         );

use vars ('$VERSION');

use Image::Magick;

$VERSION = '0.6';

sub process {
    my ($self) = @_;
    if ($self->{'orderid'} eq '' && $self->cdrom ne '') {
        $self->read_info_cd();        
    }
    
    $self->determine_source();    

Processor.pm  view on Meta::CPAN

    return $self->{'copy_images'} if !$set;
    $self->{'copy_images'} = $set;
}

sub resize_image {

    my ($self,$file) = @_;
    
    my($image, $x);
    print "Creating image " . $self->percent . "% the size of $file\n";
    $image = Image::Magick->new;
    $x = $image->Read($self->source_directory . "/$file");
    warn "$x" if "$x";
    $x = $image->Resize('geometry' => $self->percent ."%" );
    warn "$x" if "$x";
    my $suffix = $self->suffix();
    $file =~ s/(\.\w\w\w)/$suffix$1/;
    $x = $image->Write($self->output_directory . "/" . "$file");

    warn $x if $x;        

Processor.pm  view on Meta::CPAN

It works on all mbox style mail, that includes Netscape (4.7x) on
Windows.  This utility has not been tested on others, but it is based on
Mail::MboxParser which has.

Windows users will need to visit http:://www.imagemagick.org and get
the latest imagemagick dll's and PerlMagick.  PerlMagick is available
via ActiveStates PPM utility, but I have not tested with that version.

Processing is SLOW (2-5 seconds per CD image), due in part to the
fact that the images are very large by default on the CD and
partly because Image::Magick I believe is slow.

=head2 EXPORT

None this is all OOP.

=head1 EXAMPLES

use strict;
use Image::Processor;

README  view on Meta::CPAN

   perl Makefile.PL
   make
   make test
   make install

DEPENDENCIES

This module requires these other modules and libraries:

  Image::Magick
  Mail::MboxParser >= .31 (if you want to extract emails)
  XML::Simple >= 1.08
  Text::Template
  
COPYRIGHT AND LICENCE

Put the correct copyright and licence information here.

Copyright (C) 2002 Aaron Johnson