Ve starších verzích jsem používal tohle, ale v nových 6.x verzích nevím zda to bude funkční...
:global email +420xxxxxxxxx@sms.cz.o2.com
:global A;
:global B;
:global C;
:global stav ""
:global predchozistav ""
:global novystav ""
:for i from=0 to=([:len $A]-1) do={
:set predchozistav [:pick $C $i]
:put $predchozistav
:if ([/ping [:pick $A $i] count=10] = 0) do={
:if ($predchozistav = 2) do={
:log error ([:pick $B $i] . " je nedostupny!")
}
:set novystav 3
:if ($predchozistav = 1) do={
:set novystav 2
}
} else={
:if ($predchozistav = 3) do={
:log error ([:pick $B $i] . " je dostupny!")
/tool fetch mode=http address="checkip.dyndns.org" src-path="/" dst-path="/dyndns.checkip.html"
:delay 1
:local sysname [/system identity get name]
:local result [/file get dyndns.checkip.html contents]
:local resultLen [:len $result]
:local startLoc [:find $result ": " -1]
:set startLoc ($startLoc + 2)
:local endLoc [:find $result "</body>" -1]
:local currentIP [:pick $result $startLoc $endLoc]
:log warning "Aktualni IP adresa = $currentIP"
/tool e-mail send to=$email subject="$sysname" body="$currentIP"
:delay 1
/file remove ("dyndns.checkip.html")
}
:set novystav 1
}
:set stav ($stav . "," . $novystav)
}
:set C [:toarray $stav]
