use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use GD;
$maxThumbSize = "150";
$name = param('filename');
$imagePath = "/home/user/public_html/images/" . $name;
if ($name =~ m/gif$/) { &error('GIF files are copyrighted through 2004'); }
if (($name =~ m/jpg$/i) || ($file =~ m/jpeg$/i)) {
	$sourceImage = GD::Image->newFromJpeg($imagePath); 
$retype = "no";
}
elsif ($name =~ m/png$/i) {
	open (PNG,imagePath) || &error('Cannot Open PNG File');
	$sourceImage = newFromPng GD::Image(PNG) || &error('Cannot Read From PNG File');
	close PNG;
$retype = "yes";
}
($fileWidth,$fileHeight) = $sourceImage->getBounds();
if ((($fileWidth > $maxThumbSize) || ($fileHeight > $maxThumbSize)) || ($retype eq "yes")) {
	if ($fileWidth > $fileHeight) { $scalefactor=$maxThumbSize/$fileWidth; }
	else { $scalefactor=$maxThumbSize/$fileHeight; }
	$thumbWidth = int($fileWidth*$scalefactor); $thumbHeight = int($fileHeight*$scalefactor);
}
else { 
$thumbWidth=$fileWidth; $thumbHeight=$fileHeight; 
}

$thumbnailImage = new GD::Image($thumbWidth, $thumbHeight);
$thumbnailImage->copyResampled($sourceImage,0,0,0,0,$thumbWidth,$thumbHeight,$fileWidth,$fileHeight);
$thumbPath = $thumbFolder . $S . $imageBase . "-" . $fileWidth . "x" . $fileHeight . ".jpg";

if (-f $thumbPath) { unlink("$thumbPath"); }
open(THUMB, ">$thumbPath") or &error('Cannot Open New Thumbnail');
if ($opsys eq "dos") { binmode THUMB; }
else { flock(THUMB, 2); }

if ((($fileWidth gt $maxThumbSize) || ($fileHeight gt $maxThumbSize)) || ($retype eq "yes")) {
print THUMB $thumbnailImage->jpeg(75);
}
else {
print THUMB $sourceImage->jpeg(75);
}
close(THUMB) or &error('Cannot Close New Thumbnail');
chmod(0644, $thumbPath);
}