[Cascavel-pm] Envio de imagem jpeg via sendmail sem módulos

João Gabriel jamorreu em gmail.com
Terça Abril 24 17:10:46 PDT 2007


Pessoal,
estou tentando fazer um script enviar uma imagem jpeg via sendmail
pelo Perl sem usar módulos (é... feio mas é o que estou precisando)...

Estou fazendo assim:

<code>
open(MAIL,"|/usr/sbin/sendmail -t");
print MAIL "To: fulano\@fulano.com.br\n";
print MAIL "From: eu\@meuasite.com.br\n";
print MAIL "Subject: imagem\n";
$msg .= "MIME-version: 1.0\n";
$msg .= "Content-type: multipart/mixed; ";
$msg .= "boundary=\"Message-Boundary\"\n";
$msg .= "Content-transfer-encoding: 7BIT\n";
$msg .= "X-attachments: imagem.jpg\n";
$msg = "--Message-Boundary\n";
$msg .= "Content-type: text/plain; charset=US-ASCII\n";
$msg .= "Content-transfer-encoding: 7BIT\n";
$msg .= "Content-description: Mail message body\n";		
$msg .= "\n\n--Message-Boundary\n";
$msg .= "Content-type: image/jpeg; name=\"imagem.jpg\"\n";
$msg .= "Content-Transfer-Encoding: BASE64\n";
$msg.= "Content-disposition: attachment; filename=\"imagem.jpg\"\n";
$msg .= "$imagem\n"; # "código" da imagem
$msg .= "--Message-Boundary--\n\n";
print MAIL $msg;
close (MAIL);
</code>

Acontece que a imagem (no caso, sempre será uma imagem jpeg) não está
indo em anexo...
Podem me ajudar?

-- 
Um abraço,
João Gabriel
Página pessoal - www.JGCL.pt.to
CGiClube.net - www.CGiClube.net


Mais detalhes sobre a lista de discussão Cascavel-pm