форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форум Разговоры, обсуждение новостей
Изначальное сообщение		[ Отслеживать ]

"Тематический каталог: Re Три письма на Perl (Третий вариант)"	+/–
Сообщение от auto_topic on 24-Янв-05, 16:28
Обсуждение статьи тематического каталога: Re Три письма на Perl (Третий вариант) Ссылка на текст статьи: https://www.opennet.ru/base/dev/perl_sendmail.txt.html
Ответить | Правка | Cообщить модератору

Сообщения по теме

[Сортировка по времени | RSS]

1. "Re Три письма на Perl (Третий вариант)"	+/–
Сообщение от Misha Tolkachov on 24-Янв-05, 16:28
в моем случае сервер провайдера не хотел принимать комманду "1512" пришлось передавать перевод строки. (о себе сообщает "ESMTP Sendmail 8.12.10/8.12.9") А в общем огромное спасибо автору - просто открыл глаза! Выкинул с сервера все почтовые монстры - теперь он мне СМС шлет в случае чего. (сервер не почтовый конечно) вот мой скрипт - может кому сгодится #!/usr/bin/perl $debug = 0; $mail_adr  = "user\@host.com"; $mail_from = $mail_adr; use IO::Socket; my $socket = IO::Socket::INET->new ("mail_server:25"); defined $socket or die "ERROR: $!"; $socket->print ("HELO domain\n"); $r = <$socket>; print $r if ($debug==1); $socket->print ("MAIL FROM:$mail_from\n"); $r = <$socket>; print $r if ($debug==1); $socket->print ("RCPT TO:$mail_adr\n"); $r = <$socket>; print $r if ($debug==1); $socket->print ("DATA\n"); $r = <$socket>; print $r if ($debug==1); $socket->print ("From:Server <$mail_from>\nTo:Vasia Pupkin <$mail_adr>\nSubject:Test Mail.\n\nTest message!!!\n"); $r = <$socket>; print $r if ($debug==1); $socket->print ("\.\n"); $r = <$socket>; print $r; $socket->print ("QUIT\n"); $r = <$socket>; print $r if ($debug==1);
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

2. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от Some Name on 30-Янв-05, 02:28
Удивительно безграмотно
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

5. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от stan777 (??) on 18-Янв-07, 18:42
Второй вариант не удалось испытать но первый и третий не работают :). Хе Хе Хе :)
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

6. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от nrg on 26-Фев-07, 03:03
Первый совет помог, большое спасибо.
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

7. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от mitay (??) on 21-Ноя-08, 05:57
Но вот вопрос. Что с пермишенами? Ведь скрипт запускается апачем с правами nobody, соответственно сендмайл тоже запускается от nobody, которому запрещено писать в /var/spool/mqueue, нехватку пермишенов видно в логе майла. Поправьте если  я неправ. Как грамотно разрулить пермишенсы? Или как другим способом решить эту проблему!?
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

8. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от я on 20-Июл-09, 21:54
fsd
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

9. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от f (??) on 07-Ноя-09, 02:51
f
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

10. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от sergeyka on 27-Ноя-09, 08:26
Вот вам ещё вариант use Net::SMTP; $mail_user_to='test@localhost'; $mail_user_from='test@localhost'; $subj='123'; $Body='321'; my $smtp = Net::SMTP->new($mail_server); $smtp->mail($ENV{USER}); $smtp->to($mail_user); $smtp->data(); $smtp->datasend("To: $mail_user_to\n"); $smtp->datasend("From: $mail_user_from\n"); $smtp->datasend("Subject: $subj\n"); $smtp->datasend("\n"); $smtp->datasend("$Body\n"); $smtp->dataend(); $smtp->quit;
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

11. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от sergeyka on 27-Ноя-09, 08:27
Сорри забыл добавить описание переменной: $mail_server='localhost'
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

12. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от asdd on 06-Окт-10, 19:42
удивительная безграмотность, а пароль де? идиот
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

13. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от drew (??) on 05-Ноя-13, 14:19
Спасибо автору за подсказки! Скорблю по отсутствующим мозгам у неспособных воспользоваться разжеванными идеями.
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

14. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от m0z0k on 13-Май-15, 21:08
Помогите пожалуйста написать более обширный скрипт на перл для отправки почты с использованием переменных в получателях и тех кто в копии стоит, а также шаблоном письма взятого с файла. Полученое письмо должно быть формата html. Получателей переданые переменной могут быть несколько, а может быть один.
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

15. "Отправка почты из Perl скрипта (perl mail mime)"	+/–
Сообщение от m0z0k on 13-Май-15, 21:10
ОТправка делается через SMTP. Сендмейл и прочее нету возможности установить.
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема