Исходное сообщение
"Re Три письма на Perl (Третий вариант)" Отправлено Misha Tolkachov, 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);

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, [email protected] (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
	Введите код, изображенный на картинке: