Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для voler

Ветеран


Сообщения: 706
Благодарности: 29

Профиль | Отправить PM | Цитировать


Вот еще полезный, скрипт на perl для отправки сообщения на вашу почту, возможности использования актуальны.
читать дальше »

Код:
#!/usr/bin/perl -w
use Net::SMTP; #модуль для отправки
$smtp = Net::SMTP->new('smtp.masterhost.ru'); # сервер отправки
$smtp->mail('от кого'); 
$smtp->to('кому');
$smtp->data();
$smtp->auth("имя","пароль");
$smtp->datasend("From: <имя\@домен>\n");
#$smtp->datasend("To: <имя\@домен>\n");
$smtp->datasend("Subject:Ваша тема\n");
$smtp->datasend("Content-Type: text/plain; charset=windows-1251\n");
$smtp->datasend("Content-Transfer-Encoding: 8bit\n");
$smtp->datasend("\n");
$smtp->datasend("ваш текст\n");
$smtp->dataend();
$smtp->quit;


Еще можно добавить возможность прикреплять файл. Но пока не нашел, не селен в perl.
Если есть гуру по правьте.

-------
Linux, это плацдарм для изучения своих возможностей.


Последний раз редактировалось voler, 21-02-2008 в 15:22.

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:35, 21-02-2008 | | #10 |