$ENV{PATH} .= ":/home/antiques/public_html/netpbm";
$pnmscale = "/home/antiques/public_html/netpbm/pnmscale";
$giftopnm = "/home/antiques/public_html/netpbm/giftopnm";
$ppmtogif = "/home/antiques/public_html/netpbm/ppmtogif";
if ($filetype eq 'jpg') {
## THIS WILL RESIZE DISPLAY TO A THUMBNAIL
my @fileparts = split(/\./, $Filename);
my $outfile = $fileparts[0] . "-T." . $fileparts[1]; #IMAGE FACTOR: -ysize $thumbnail_height -xsize $thumbnail_width #cjpeg -qualtiy 5-95 optional quality
###### NETPBM THUMB CALL #####
system("djpeg $SAVE_DIRECTORY\/$Filename | $pnmscale -xsize $thumbnail_width | cjpeg -quality 95 > $SAVE_DIRECTORY\/$item_id\_$outfile");
###### IMAGEMAGIK THUMB CALL #####
#system("convert -sample x75 $SAVE_DIRECTORY\/$Filename $SAVE_DIRECTORY\/$item_id\_$outfile");
## THIS WILL RESIZE TO A DISPLAY IMAGE
my @fileparts2 = split(/\./, $Filename);
my $outfile2 = $fileparts2[0] . "-L." . $fileparts2[1]; #IMAGE FACTOR: -ysize $thumbnail_height -xsize $thumbnail_width
###### NETPBM DISPLAY CALL #####
system("djpeg $SAVE_DIRECTORY\/$Filename | $pnmscale -xsize $display_width | cjpeg > $SAVE_DIRECTORY\/$item_id\_$outfile2");
###### IMAGEMAGIK DISPLAY CALL #####
#system("convert -sample x240 $SAVE_DIRECTORY\/$Filename $SAVE_DIRECTORY\/$item_id\_$outfile2");
{system("mv $SAVE_DIRECTORY\/$item_id\_$outfile2 $SAVE_DIRECTORY\/$item_id\_$Filename");}
{system("rm $SAVE_DIRECTORY\/$Filename");}
}