[Cascavel-pm] Image::Magick;

[Sammuel Souza]

Boa Tarde,

procurei revirei e não achei, é bem simples mas nao consegui.

Script:

#!/usr/bin/perl

use CGI;

use Image::Magick;

my $im = Image::Magick->new ();

$im->ReadImage('foto.jpg');
$im->ReadImage('baixo.jpg');

my ($height, $width) = $im->Get ('height', 'width');

$im->Thumbnail(width=>640, height=>427);

$im->Set(type=>'truecolor');
$im->Set(magick=>'JPEG');
$im->Set(quality=>80);
$im->Set(size=>'640x427');

print "Content-type: image/jpeg\n\n";
binmode STDOUT;

print $im->Write( "jpeg:-" );


o Script é para imprimir a foto no tamanho certo, e colocar propaganda na
parte,
inferior da imagem.

Porem ele só imprime foto.jpg não colocando baixo.jpg

E quando clica para salvar a imagem no pc ele salva como image.cgi

alguem saberia me ajudar?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20120506/bb8b4a1c/attachment.html>