VPF::Отправка писем MIME LITE windows - Форум программистов

garmon4ik

Дата 8.9.2009, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 31.7.2007

Репутация: нет
Всего: нет

Добрый день.
Сегодня столкнулся с проблемкой, которая никак пока не поддается решению.
Мне нужно отправить письмо с сайта с использованием perl. Для этого обычно использовал модуль MIME:lite и все было просто и понятно, когда действия происходили под linux.
Сейчас же имеет Windows server 2003 r2 x64 с установленным iis 6 и activeperl на борту. В качестве mail сервера работает Kerio mail server.
Следующий код

Код


my $msg = MIME::Lite->new(
                  To      =>$mail,
              From =>'[email protected]',
                  Subject =>'Тест',
                  Type    =>'multipart/related'
                  );
    $msg->attach(Type => 'text/html',
                 Data => $s              

                  );
  
    $msg->send('smtp','domain.ru', Debug=>1 ,
    AuthUser=>'login', AuthPass=>'pass'
       );

выдает

Код


SMTP auth() command failed: 
5.7.0 Authentication failed

Пароль и логин точно верные. Подскажете пожалуйста, в чем может быть проблема? Может что-то с почтовым сервером не то?

arto

Дата 9.9.2009, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 1
Всего: 40

смотрите логи сервера.

garmon4ik

Дата 9.9.2009, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 31.7.2007

Репутация: нет
Всего: нет

Начетался кучу информации по отправку писем с использованием sendmail. Только вот не совсем понял, нужно ли его использовать в моем случае, или вышеприведенный код должен работать. Может допустил какие-то глобальные ошибки в понимании процесса отправки писем?

garmon4ik

Дата 9.9.2009, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 31.7.2007

Репутация: нет
Всего: нет

Посмотрел логи Kerio Mail Server.
Увидел следующее:

Код


[09/Sep/2009 12:40:16][4380] {auth} DIGEST: first step, we send the digest
[09/Sep/2009 12:40:16][4380] {auth} DIGEST: second step, we get the token
[09/Sep/2009 12:40:16][4380] {auth} DIGEST: comparing dd239278aa1e6dee7abd45347cef7a6b and 2643effc3613137d11c3c2669db914c0
[09/Sep/2009 12:40:16][4380] {auth} DIGEST: second step, auth failed

Может я как не атк пароль задаю? Може нужен хэш или кодировка какая другая?

garmon4ik

Дата 9.9.2009, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 31.7.2007

Репутация: нет
Всего: нет

Если кому интересно, то решение проблемы нашлось.
Для аутентификации стал использовать не MIME::lite а Net::SMTP_auth и с помощью него же отправлять почтовое сообщение.
Ниже приведу реализованный код:

Код


my $smtp = Net::SMTP_auth->new('domain.ru');
$smtp->auth('CRAM-MD5', 'login', 'password');
$smtp->mail('[email protected]');
$smtp->to($mail);
$smtp->data();
$smtp->datasend("From: Our site<111\@domain.ru>\n");
$smtp->datasend("To: Veronika<222\@domain.ru>\n");
$smtp->datasend("Reply-To: <111\@domain.ru>\n");
$smtp->datasend("Subject: Заявка\n");
$smtp->datasend("Content-Type: text/plain; charset=utf-8\n");
$smtp->datasend("Content-Transfer-Encoding: 8bit\n");
$smtp->datasend("\n");
$smtp->datasend($message);# Само отсылаемое сообщение
$smtp->dataend();
$smtp->quit;

Как мне кажется, особо следует обратить внимание на строку со словом CRAM-MD5.

chorny

Дата 14.9.2009, 01:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 27.7.2009
Где: Молдавия

Репутация: нет
Всего: нет

Вместе с MIME::Lite надо установить Authen::SASL.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »