view release on metacpan or  search on metacpan

lib/Command/resize.pm  view on Meta::CPAN

    my $mime = "jpg";
    if ($file =~ /[\/\\]*([a-zA-Z0-9-_ ]*)\.([a-z]+)$/i) {
      $name = $1;
      $mime = $2;
    }

    my $img;
    if (lc($mime) eq "jpg" || lc($mime) eq "jpeg") {
      $img = GD::Image->newFromJpeg($file);
    } elsif (lc($mime) eq "png") {
      $img = GD::Image->newFromPng($file);
    } else {
      die "Unsupported file format: $mime";
    }

    my ($w,$h) = $img->getBounds(); # find dimensions

    for my $size (keys %$sizes) {
      my $imgDirSize = "$imgDir/$size";
      if (!-d $imgDirSize) {
        mkdir $imgDirSize or die "Unable to create $imgDirSize";