File zip inviato con perl Email :: Il mittente è danneggiato

Question

Sto provando a eseguire uno script che accetta un file di testo, lo comprime usando Archive :: Zip e invia il file zip come allegato via smtp utilizzando Email :: Mittente per creare un messaggio mimo.

Posso inviare file txt in perl senza corruzione. Posso inviare il file che perl chiude manualmente senza corruzione. Non riesco a inviare un file zippato manualmente tramite perl.

Sospetto che il mio problema sia con la lettura del file zippato, o la creazione del messaggio MIME. Ecco il codice rilevante, che è essenzialmente il codice dalla sinossi di Email :: MIME, dove $ fileToSend è il percorso del file zippato.

Qualche idea?

use strict; 
use warnings; 
use Email::MIME; 
use Email::Sender::Transport::SMTP; 
use Email::Sender::Simple qw(sendmail); 
use Archive::Zip qw(:ERROR_CODES :CONSTANTS); 
use IO::All; 

my $message = 
     Email::MIME->create(
     header_str => [ 
    From => $sender, 
    To  => $recipient, 
    Subject => $subject, 
    ], 
      attributes => { 
       filename  => $filename, 
       content_type => 'application/zip', 
       disposition => 'attachment', 
       name   => $filename, 
      }, 
      body => io($fileToSend)->binary->all, 
      #body => io($fileToSend)->all, 
    ); 

Answer 1

Trovato il problema infine. L'aggiunta di questa linea ha fatto il trucco.

$message->encoding_set('base64'); 

Answer 2

my $transport = Email::Sender::Transport::SMTP->new({ 
        host => $smtpserver, 
        port => $smtpport, 
        sasl_username => $smtpuser, 
        sasl_password => $smtppassword, 
        ssl => 'starttls'}); 

Email::Stuffer->from('a@a.com') 
      ->to('b@b.com') 
      ->text_body('hello') 
      ->attach_file ('zipfile') 
      ->transport($transport) 
      ->send();