Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Image magic creation of thumb fail

by *alexandre* (Scribe)
on Jan 07, 2023 at 15:26 UTC ( [id://11149409]=perlquestion: print w/replies, xml ) Need Help??

*alexandre* has asked for the wisdom of the Perl Monks concerning the following question:

Hi folk, Rigth now I'm facing new trouble within thumbnail creation here is the code
sub uploadImage { my $name = shift || ''; my $file = $query->param('image'); open(LOCAL, ">$imgdir/$name.jpg") or print 'error'; my $file_handle = $query->upload('image'); + binmode LOCAL; while(<$file_handle>) { print LOCAL; } close($file_handle); close(LOCAL); createImageMagickThumb("$name.jpg"); } sub createImageMagickThumb { my $filename = shift || ''; my $t = new Image::Thumbnail( size => 100, create => 1, module => 'Imager', input => "$imgdir/$filename", outputpath => "$imgdir/thumb.$filename", ); }
The code worked well until a few days ago. Any idea what could be wrong ? The image file is well uploaded but no thumb created. Thanks

Replies are listed 'Best First'.
Re: Image::Thumbnail creation fails
by hippo (Bishop) on Jan 07, 2023 at 16:25 UTC

    I've turned this into an SSCCE (as you should have done). It works perfectly.

    #!/usr/bin/env perl use strict; use warnings; use Image::Thumbnail; use LWP::UserAgent; use Test::More tests => 2; my $file = 'test.jpeg'; my $imgdir = '.'; my $ua = LWP::UserAgent->new; my $url = 'https://www.perlmonks.org/?updated=20180808044221;node_i +d=1000135'; my $res = $ua->mirror ($url, $file); ok -e $file, 'Image downloaded'; createImageMagickThumb ($file); ok -e "thumb.$file", 'Thumbnail created'; my $query; # Used in code from 11149409 only # Code from 11149409 follows, unaltered. sub uploadImage { my $name = shift || ''; my $file = $query->param('image'); open(LOCAL, ">$imgdir/$name.jpg") or print 'error'; my $file_handle = $query->upload('image'); binmode LOCAL; while(<$file_handle>) { print LOCAL; } close($file_handle); close(LOCAL); createImageMagickThumb("$name.jpg"); } sub createImageMagickThumb { my $filename = shift || ''; my $t = new Image::Thumbnail( size => 100, create => 1, module => 'Imager', input => "$imgdir/$filename", outputpath => "$imgdir/thumb.$filename", ); }
    The code worked well until a few days ago. Any idea what could be wrong ?

    Yes. You changed something a few days ago which broke it. Restore the machine from the backup you took a few days ago and everything will be fine.

    The image file is well uploaded but no thumb created. Thanks

    Well then, why not check for errors? See the Basic Debugging Checklist, https://metacpan.org/pod/Image::Thumbnail#ERRORS and How to ask better questions using Test::More and sample data.


    🦛

Re: Image magic creation of thumb fail
by marto (Cardinal) on Jan 07, 2023 at 18:49 UTC
    A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://11149409]
Approved by GrandFather
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (3)
As of 2024-04-25 20:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found