How would I change resolution of a graphic file on the fly during U/L

[teka2112]

HI all

Ive got a file upload tool (up.cgi) on my server. Users can upload a few different types of files (file input from HTML FORM points to my upload script (up.cgi) then gets saved on my server using:

sub Store_Results {
my $data;
my $bytes_count;
$size = $bytes_count = 0;
open (STORAGE, ">$Directory/$File&quot
or die "Error: $Directory/$File: $!\n";
binmode STORAGE;
while ($bytes_count = read($File_Name, $data, 1024)) {
$size += $bytes_count;
print STORAGE $data;
}
close STORAGE;
# exit;
}

pretty basic...

The thing is - some of these files include image files (jpg, png) which need to be resized to a maximum of 128x112 pixels.

what is MAGIK and is this what I should use?

any ideas?

any help here would be appreciated

 

[tanderso]

Yes, use Image::Magick. It's a module.

http://www.imagemagick.com/www/perl.html

Sincerely,

Tom Anderson
Order amid Chaos, Inc.

http://www.oac-design.com