<%@ LANGUAGE = PerlScript 


my $globalPreviewMaxDimension = 100;

sub util_photo_GenerateThumbnail
{
  my ($source, $destination) = @_;

  my $preview = Image::Magick->new;

  my $x = $preview->Read ($source); confess "$x" if "$x";

  my ($xSize, $ySize) = $preview->Get ('width', 'height'); # Get the p
+ictures dimensions
    
  #
  #  Calculate dimensions of thumbnail
  #
  my $scaleFactor;
  my $previewX;
  my $previewY;

  #
  #  Only scale if either axis is larger than the preview size
  #
  if ($xSize > $globalPreviewMaxDimension || $ySize > $globalPreviewMa
+xDimension)
  {
    if ($xSize > $ySize) 
    {
      $scaleFactor = $globalPreviewMaxDimension / $xSize;
      $previewX    = $globalPreviewMaxDimension;
      $previewY    = int ($ySize * $scaleFactor);
    }
    else 
    {
      $scaleFactor = $globalPreviewMaxDimension / $ySize;
      $previewY    = $globalPreviewMaxDimension;
      $previewX    = int ($xSize * $scaleFactor);
    }

    $x = $preview->Scale  (width=>$previewX, height=>$previewY); confe
+ss "$x" if "$x";

    $xSize = $previewX;
    $ySize = $previewY;
  }
[download]