Исходное сообщение
"Состояние сервера по SMS" Отправлено FoxMulder, 20-Дек-05 18:19
>От сервера - примерно таким скриптом, но это если ложится какой-то внутренний >канал. В принципе можно поговорить с провайдером - все равно у >него должно быть юниховое железо. Это пингование нескольких хостов. По тексту >можно разобраться чего оно делает. Логику можно наворотить посложнее. > >#!/usr/bin/perl >use Net::Ping; >$p=Net::Ping->new("icmp",10); > > >$ping_host='193.43.194.62'; > >@IpList = ("193.43.194.62", >           "193.43.194.58", > >           "193.43.194.60", > >           "193.43.194.44", > >           "193.183.231.130"); > > > ># =============== > >Start: > > >foreach $foo(@IpList) >{ >#printf ($foo); > >$ret = $p->ping ($foo); > >#if ($ret==1) {printf "\nOK\n".$foo;} >if ($ret==1) {goto SLP;} > >elsif ($ret==0) {&MailSend();&MailRoot(); goto End;} > >} > >SLP: > >sleep 300; > >goto Start; > >End: >; > ># ++++++++++++++++++++++++++ >sub MailRoot() > >{ > >open (MAIL1, '|/usr/sbin/sendmail -t'); >print MAIL1 "From: fw\@rabbit.com.ua\n", >           "To: >iasb\@rabbit.com.ua\n", >           "Subject: >Ping:\n\n", >           "Lost: >".$foo; >close MAIL1 >}; > ># ++++++++++++++++++++++++++ > >sub MailSend() > >{ > >open (MAIL, '|/usr/sbin/sendmail -t'); >print MAIL "From: fw\@rabbit.com.ua\n", >           "To: >38050227761\@sms.umc.com.ua\n", >           "Subject: >Ping:\n\n", >           "Lost: >".$foo; >close MAIL >}; Ну это я примерно понял, только вот заминочка одна, я в России нахожусь, а тут нет такой услуги как mail2sms. Да и проверять мне надо канал с провайдером, соответственно если падает канал то и СМС не пройдет :)