Модуль для работы с почтой

[cr4ck3r]

Таких модулей в общем-то полно. Но этот я написал для своих собственных нужд, именно из-за неумения српавится с модулем Net::SMTP... :rolleyes:
Не удите строго - думаю я еще улучшу этот модуль. Сейчас же он предназначен для отправки почтового сообщения с вложением. При этом работает он с модулем Socket, а не IO::Socket, что позволяет работать ему быстрее. Но для спама он не очень годится - в данном виде. Для ускорения надо выделить функцию коннекта к серверу в отдельный элемент, дабы не коннектится каждый раз к серверу для отправки следующего письма. Но это потом, а сейчас - простой и довольно быстрый модуль для отправки почты с аттачем.
Пример работы с модулем:

#!/usr/bin/perl -w
use strict;
use lib qw(.); # если модуль лежит в одной папке со скриптом
use SimpleMail;

my %data=(Host => \'localhost\',
Helo => \'notebook\',
From => \'hider@notebook\',
To => \'user@notebook\',
charset => \'koi8-r\',
Subject => \'Hello!\',
Message => \'Hello! Friend!\',
File => \'arc.tar.gz\',
Type => \'application/octet-stream\',
Debug =>0 # вывод ответов smtp-сервера
);
my $test=send(\\%data);

Исходники

[Chs]

perldoc Mime::Lite?
И хоть через SMTP, хоть через sendmail.
А велосипед - да, рулит.

[cr4ck3r]

Ошибаетесь уважаемый.
Посмотрите код Mime::Lite и мой код. Я же говорю - мой код работает напрямую с Socket, а не через IO::Socket, а код в указанном вами модуле, работает через Net::SMTP, да и еще кучу модулей требует для своей работы.
В моем же варианте требуется Socket, который есть везде, и MIME::Base64, от которого можно отказаться - написав процедуру кодирования (это будет в следующих версиях).
Да и весит этот Lite - 90 килобайт, а мой модуль - 4 кб. Разница однако :-))....

[arto]

1. 501 5.0.0 HELO requires domain address
2. Subject не перекодирует в 7-битный код.
3. Можно послать только 1 приложение.
4. С приложениме что-то напортачено, поэтому в pine не открывается.
5. для charset="koi8-r" и Content-Transfer-Encoding: 7bit не перекодирует текст.

дальше смотреть не стал, и так ясно, что задница.

[cr4ck3r]

Со своей задачей он справился на 5-ть. и как я сказал - это первая версия.

[arto]

а задача какая была -- кинуть ссылку на него тут?

[NeoNox]

cr4ck3r

http://forums.webscript.ru/showthread.php?s=&threadid=9932&msgnum=0
Изобретение велосипедов не преследуется по закону, и если вы занялись этим процессом, то не стоит привлекать к нему остальных участников форума.

[moderator]
Тема закрыта.