well. i think the image resize does't get my pic, i tried the Image Resize module locally without cgi and works

but with cgi script i get

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use File::Copy;
use CGI::Carp 'fatalsToBrowser';

my $q     = CGI->new;
my $photo = $q->param("pic");

if ($photo){
  my ($ext) = $photo =~ /([^.]+)$/;
  my $copydir = '/full/path/to/web/img/';
  my $image = Image::Resize->new($photo);
  my $gd = $image->resize(100, 100);
  my $newfile = $copydir."011190.$ext";
  my $upload_fh = $q->upload("pic");
  
  open OUTFILE,'>',$newfile or die "$!";
  print OUTFILE $gd->jpeg();
  binmode OUTFILE;
  while (<$upload_fh>){ 
    print OUTFILE;
  }
  close OUTFILE;
}


print << "HTM";
<h2>File upload</h2>
<form method="post" action="" enctype="multipart/form-data">
Filename: <input type="file" name="pic"/><br/><br/>
<input type="submit"/>
</form>
HTM
[download]

"well. i think the image resize does't get my pic"

You call Image::Resize->new before you've uploaded a file, passing the filename. In English, upload the file (covered in the CGI documentation), then resize your image.

Hi Marto,

How many times have you already told this user to just do the basics?

I can hardly imagine someone being so ignorant, looks a lot like a clever troll.

Either way, maybe better stop feeding! :)

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}