Июн 242011
 
#!/usr/bin/perl
# Подключаем модуль
use Net::SMTP::SSL;
#
# Задаем переменные
$from = 'user@gmail.com';
$pass = 'pass';
$to = 'userss@gmail.com';
$subject = 'Обнавление системы!';
$body = 'Обновления системы выполнено!;
#
system "(portsclean -CDD; sh /root/update; pkgdb -F; pkg_version -v | grep "<" ")";
system "(portupgrade -arR)";
#
$smtp = Net::SMTP::SSL->new('smtp.gmail.com',
                             Port => 465,
                             Debug => 1);
# Указываем свой логин.
$smtp->;auth($from, $pass);
# Создаем письмо c указанием почтового ящика.
$smtp->;mail($from);
# Получателя
$smtp->to($to);
# Передачи данных
$smtp->data();
# Отправка данных.
$smtp->datasend("From: " . $from . "\n");
$smtp->datasend("To: " . $to . "\n");
$smtp->datasend("Subject: " . $subject . "\n");
$smtp->datasend("Content-Type: text/html; charset=utf-8\n");
$smtp->datasend("Content-Transfer-Encoding: quoted-printable\n");
$smtp->datasend("\n");
# Передаем текст письма
$smtp->datasend($body . "\n");
# Конец удаленному серверу
$smtp->dataend();
# Закрываем сокет соединения с сервером
$smtp->quit;

 Leave a Reply

(required)

(required)

37 Запросов к базе. 0,354 Генерации страницы, 36MB Использование памяти.
Вы зашли с IP: 54.198.210.67