Plik ZIP wysłany z perlem E-mail :: Nadawca jest uszkodzony

Question

Próbuję uruchomić skrypt, który pobiera plik tekstowy, kompresuje go za pomocą Archive :: Zip i wysyła plik zip jako załącznik za pomocą smtp za pomocą Email :: Nadawca, aby utworzyć wiadomość MIME.

Mogę wysyłać pliki txt w perlu bez uszkodzenia. Mogę wysłać plik, który perl zamki ręcznie bez korupcji. Nie mogę wysłać ręcznie spakowanego pliku przez perl.

Podejrzewam, że mój problem polega na czytaniu spakowanego pliku lub tworzeniu wiadomości MIME. Oto odpowiedni kod, który jest w istocie kod ze streszczenia Email :: MIME, gdzie $ fileToSend jest ścieżką do skompresowanego pliku.

Wszelkie pomysły?

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

Znaleźliśmy problem. Dodanie tej linii rozwiązało problem.

$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();