#!/usr/bin/perl

use Image::Magick;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$IN = new CGI;

my $ReadImage = "/home/linkssql/public_html/dev/6/86-Payments-small.gif";
my $WriteImage = "/home/linkssql/public_html/dev/6/smaller-Payments.gif";

my($image, $x);

$image = Image::Magick->new;
$image->Read($ReadImage) || die "1: $! ";

$image->Scale(geometry=>$_PercentageSmaller) || die "2: $! ";

$image->Write(filename=>$WriteImage) || die "3: $! ";

print $IN->header();
print "done";

#!/usr/bin/perl

use strict;

use Image::Magick;
use CGI;
my $q = CGI->new();

my $readimage = "/home/linkssql/public_html/dev/6/86-Payments-small.gif";
my $writeimage = "/home/linkssql/public_html/dev/6/smaller-Payments.gif";

my ($image,$x);

$image = Image::Magick->new();

$x = $image->Read(filename=>"$readimage");
die $x if $x;

# set your resized image here. look up the 'geometry' function and you'll realize that
# 150 x 75 is the maximum available size set for the image canvas. That means, that the
# resized image will be resized propotionally (same as your percentage) down to fit within
# my contraints. It will not just resize it set at 150 x 75.

$x = $image->Resize(geometry=>'150x75');
die $x if $x;

$x = $image->Write(filename=>"$writeimage");
die $x if $x;

print $q->header;

print qq|Done.|;

use Image::Magick;

my $_ImageField = $cfg->{'ImageFields'};
my $_PercentageSmaller = $cfg->{'Smaller'};

my @ImageFields = split(",",$_ImageField);

print $IN->header();

foreach (@ImageFields) {

# get rid of newlines...
chomp;

# only run this code if they actually uploaded a file...
if ($IN->param($_)) {

# grab the image name (i.e test.gif)
my ($img) = $IN->param($_) =~ m|([^\\/]+)$|; # grab the image name...and then assign the path...

# get the actual path to where the file is/will be saved...
my $schema = $DB->table('Links')->cols;
my $path = $schema->{$_}->{'file_save_in'};
$path =~ s,/$,,; # get rid of trailing / at end of $path

# get the highest ID in lsql_Links...
my $highest_id = $DB->table('Links')->select( 'MAX(ID)' )->fetchrow;

# now we have the highest ID, lets get the image stuff for this link.
my $col = $_; # column name where file is held
my $tbl = $DB->table( 'Links' );
my $fh = $tbl->file_info( $col, $highest_id ); # return a glob reference to the file that you can print <$fh> if you want
my $rel_path = $fh->File_RelativePath;
undef $fh; # explicit close of the filehandle for good measure

# create the variable for where the small image will be held...
my @img_create = split("/",$rel_path);
my $count = $#img_create;

my $rel_path_small = undef; # make sure we have this variable as an undef, otherwise we get probs...
for (my $i = 0; $i < $count; $i++) { $rel_path_small .= $img_create[$i] . "/"; }
$rel_path_small .= "small-" . $img_create[$count]; # create the small image name...

my $ReadImage = $path . $rel_path;
my $WriteImage = $path . $rel_path_small;

# copy the full image as a .tmp file. So we can rename it after...
# and get the original...
my $tmp = $ReadImage . ".tmp";
copy($ReadImage,$tmp);

my($image, $x);

$image = Image::Magick->new;
$x = $image->Read($ReadImage);
if ($x) { print "Error: $x"; exit; }

$x = $image->Scale(geometry=>$_PercentageSmaller);
if ($x) { print "Error: $x"; exit; }

$x = $image->Write(filename=>$WriteImage);
if ($x) { print "Error: $x"; exit; }

# rename .tmp backup, so we get the original too...
rename($tmp,$ReadImage);

} # end 'if'

}