perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Robert Germič <ger...@pcv.cz>
Subject File upload problem
Date Mon, 25 Oct 2004 19:16:07 GMT
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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message