Russian Users MikroTik | Форум пользователей MikroTik

Код: Выделить всё

{
:global myIP;
:local int "WAN";
:local newaddress [/ip address get [find interface="$int" disabled=no] address];
if ($myIP=$newaddress) do={
:log warning "DynDNS System: ip address on $int not changed, standby."
:delay 2;
:log warning "DynDNS System: Current ip address - $myIP "
:log warning "*************************************************************************"
} else={
:set myIP $newaddress;
:local sysname [/system identity get name];
:local smtpserv [:resolve "smtp.yandex.ru"];
:local Eaccount "mailfrom@yandex.ru";
:local Zaccount "mailto@yandex.ru";
:local pass "mailto-password";
/tool e-mail send from="<$Eaccount>" to=$Zaccount \
server=$smtpserv port=587 user=$Eaccount password=$pass \
start-tls=yes \
subject=("$sysname set new ip: $myIP (" . [/system clock get time] . ")") body=("New ip address $sysname - $myIP");
:delay 2;
:log warning "DynDNS System: ip address on $int has been changed, start script..."
:delay 2;
:log warning "DynDNS System: Interface $int setup new ip address - $myIP"
:delay 2;
:log warning "DynDNS System: New ip address has been sended on E-Mail."
:delay 2;
:log warning "Transfer E-Mail completed!\nAll Done!";
}
}