Eu não estou recebendo o email quando tento enviar usando Perl (MIME :: Lite)

Question

#!/usr/bin/perl
use MIME::Lite;
my $to = '[email protected]';
my $from = '[email protected]';
my $subject = "Eventful";
my $message = " Hi  - Test email";
$msg = MIME::Lite->new(
             From     => $from,
             To       => $to,
             Subject  => $subject,
             Data     => $message
             );

$msg->attr('content-type' => 'text/html');
$msg->send;

Estou usando o script acima para enviar um e-mail usando o Perl, mas às vezes não os recebo. Quando eu chequei meu maillog eu recebi esta mensagem -

 Mar 27 08:16:02 EQ-BIRDSERVER sendmail[14361]: v2RFG24m014361: to=root,     delay=00:00:00, mailer=relay, pri=30444, stat=queued
 Mar 27 08:16:15 EQ-BIRDSERVER sendmail[4168]: rejecting connections on    daemon MTA: load average: 68

Existe alguma maneira de enviar e-mails mesmo durante uma carga pesada na máquina?

    

Answer 1

Is there any way to send email even during heavy load on the machine?

Isso não é algo que você possa corrigir em seu script Perl. O comportamento do sendmail em alta carga depende da configuração do sendmail, o que significa que você precisa consertar isso ou que você precisa garantir que não haja alta carga na máquina.

Em alternativa, pode jogar com as várias variantes de envio de correio, conforme descrito no documentação para ver se alguém pode ajudar a contornar as limitações de carga.