The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка  RSS
"Тематический каталог: Re Три письма на Perl (Третий вариант)"
Вариант для распечатки  
Пред. тема | След. тема 
Форум Разговоры, обсуждение новостей
Изначальное сообщение [ Отслеживать ]

"Тематический каталог: Re Три письма на Perl (Третий вариант)"  +/
Сообщение от auto_topic on 24-Янв-05, 16:28 
Обсуждение статьи тематического каталога: Re Три письма на Perl (Третий вариант)

Ссылка на текст статьи: http://www.opennet.dev/base/dev/perl_sendmail.txt.html

Ответить | Правка | Cообщить модератору

Оглавление

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


1. "Re Три письма на Perl (Третий вариант)"  +/
Сообщение от Misha Tolkachov email 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 email(??) on 18-Янв-07, 18:42 
Второй вариант не удалось испытать но первый и третий не работают :). Хе Хе Хе :)
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

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

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

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

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

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

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




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру