sub resize {
  use GD;
  my($data, @size) = @_;
  my $image = GD::Image->newFromJpegData($data, 1);
  my @isize = $image->getBounds();
  my $new_image = GD::Image->new(@size, 1);
  $new_image->copyResampled($image,0,0,0,0,@size,@isize);
  return $new_image->jpeg(75);
}
[download]

do some limit checking on that cgi =)


http://www.xtype.org/albums/photo.cgi?img=01368&size=999999999999999x9999999999999999



-Waswas

Indeed.
Although, it was for personal use, made 755 just for the benefit of this thread. :^)
If you have time to wait around for a 9999x9999 jpg to download, then be my guest, because it really does not take much CPU on the server send. That is the beauty of using gd, and just another benefit GD has over Image::Magick.

I suppose, for image quality reasons it could be limited to 3 or 4 times the natural size.
Bah! It spits out my thumbnails damn fast, that is all I care for now.
photo.cgi?img=01368 (natural size (GD isn't /use/d))
photo.cgi?img=01368&thumb (keeps image proportion, and size under 120x90)