Я не получаю письмо, когда пытаюсь отправить сообщение с помощью Perl (MIME::Lite)

Question

#!/usr/bin/perl
use MIME::Lite;
my $to = 'mkumar@birdserver.com';
my $from = 'pkumar@birdserver.com';
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;

Я использую приведенный выше скрипт для отправки электронной почты с использованием Perl, но иногда я не получаю их. Когда я проверил свой почтовый журнал, я получил это сообщение -

 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

Есть ли способ отправить письмо даже при большой нагрузке на машину?

Answer 1

Есть ли способ отправить письмо даже при большой нагрузке на машину?

Это не то, что вы можете исправить из своего скрипта Perl. Поведение sendmail при высокой нагрузке зависит от конфигурации sendmails, что означает, что вам нужно либо исправить это, либо убедиться, что на машине нет высокой нагрузки.

В качестве альтернативы вы можете поиграть с различными вариантами отправки почты, как описано в документации, чтобы посмотреть, можно ли обойти ограничения нагрузки.