$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");} }