Ответ

Eugene Spearance 02.07.2002 13:27

Кусок из формы:

^if(def $form:pict){$file::load[binary;$form:pict] ^pict.save[/news/images/hirez/${schet}.jpg] $f[^file::exec[/../cgi-bin/images.pl;;img=${schet}.jpg]] $f.text}

Внутри скрипта:

#!/usr/bin/perl

my $dst_path="/home/design/htdocs/news/images";
my $src_path="/home/design/htdocs/news/images/hirez";

use Image::Magick;
use CGI qw/:standard/;

$in_img = param('img');
$in_img =~ s/\.\.//g;
$in_img =~ s/[^\d\w\_\-\.]//g;

print "Content-type: text/plain\n\n";
if (! -f "$src_path/$in_img"){
    print "Error: File $in_img not found\n";
    exit;
}
my($q, $x);
$q = Image::Magick->new;
$x = $q->Read("$src_path/$in_img");
print "$x" if "$x";
$x = $q->Scale(width=>100, height=>100);
print "$x" if "$x";
$x = $q->Write("$dst_path/$in_img");
print "Write: $x" if "$x";

print "Resize complite...\n";

Вот собственно и все.

---