Иногда требуется получить уведомление если один из серверов перестает быть доступен. Уведомление будет отсылаться на e-mail. Алгоритм работы скрипта который мониторит ваши сервера будем реализовывать на perl. И так у нас есть список серверов. Мы прогибаемся по этому списку раз в 10 минут(список состоит из ip + port) на который можно присоединится с помощью telnet. Если соединится по telnet не удается отправляем письмо на почту, мол такой сервер перестал быть доступен. Первое что требуется это установить perl, далее после того как perl поставлен можно открыть cmd/terminal набрать следующее :
cpan Net::SMTP::TLS;
cpan Net::SMTP::SSL;
cpan Net::Telnet;
#Собственно сам скрипт.
use strict;
use warnings;
use Net::Telnet;
use 5.010;
use Net::SMTP::TLS;
use Net::SMTP::SSL;
#Создать список серверов для проверки.
#Если сервер в течении 10 минут не отвечает, отправить письмо на e-mail, в теме #письма указать сервер который не отвечает.
my $user = 'MyRuMailUser'; //Пользователь
my $pass = 'MyRuMailPassword'; //Пароль от ящика.
my $server = 'smtp.mail.ru';
my $to = 'mymonitorserver@gmail.com';
my $from_name = 'MyRuMailUser@mail.ru';
my $from_email = 'MyRuMailUser@mail.ru';
