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

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

"Тематический каталог: Re Три письма на Perl (Третий вариант)"	+/–
Сообщение от auto_topic on 24-Янв-05, 16:28
Обсуждение статьи тематического каталога: Re Три письма на Perl (Третий вариант) Ссылка на текст статьи: http://www.opennet.me/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 | Индекс форумов | Темы | Пред. тема | След. тема