I remeber this has been discussed, but the mail archive at http://www.ecos.de/~mailarc/embperl/ is down, so please advice: when trying to file upload, I got this in the error log

[Mon Oct 25 17:45:57 2004] [error] [21920]ERR: 44: _base.html(1): Setup of CGI.pm failed: CGI open of tmpfile: Permission denied

this is HTML::Embperl 1.3.6

I'm just uploading to the /tmp and the uploaded file itself is there OK. Any help will be geatly apreciated

- Robert

-----------------------------------------

complete code:

[$ if ($req_rec->method eq 'POST') $]
[-

use Image::Magick;

$escmode = 0;
$path = '/home/www/ambassador/doc/dyn/special/img/';

open FILE, ">/tmp/tmp.jpg" || die;
print FILE $buffer while read($fdat{photo}, $buffer, 32768);
close FILE;

$img2 = Image::Magick->new;
$img2->Read("/tmp/tmp.jpg");
$img2->Scale( geometry => "200x" );

$img3 = Image::Magick->new;
$img3->Read("$path/bg-shadow.jpg");
$img3->Scale( width => "200", height => $img2->Get('height') );

$img = Image::Magick->new;
$img->Read("$path/bg.jpg");
$img->Composite( compose => "Over", image => $img3, x => 35, y => 35 );
$img->Composite( compose => "Over", image => $img2, x => 20, y => 20 );
$img->Write("$path/special03.jpg");

-]






--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]



Reply via email to