#skript SlowSpeed

#skript pocet aktivnich adres
:global pocetAdres [/ip address print count-only ];
:global aktivAdr [/ip address print count-only ];
:for pocetAdres from=$aktivAdr to=1 do={
:if [/ip address get value-name=disabled ($pocetAdres-1)] do={:set aktivAdr ($aktivAdr-1)}}; :put $aktivAdr;

#pocet manualnich rout
:global routy ([/ip route print count-only]-$aktivAdr);

#odstraneni zaznamu z routovaci tabulky
:while ($routy>0) do={/ip route print ; /ip route remove numbers=0 ; :set routy ($routy-1)};

#nastav routy
/ip route add dst-address=0.0.0.0/0 gateway=172.16.4.2 distance=30 check-gateway=ping;
/ip route add dst-address=0.0.0.0/0 gateway=172.16.2.2 distance=20 check-gateway=ping;


/tool e-mail send body="Spoj ma nizkou rychlost - prenastaven na zalozni ($[/system clock get date ] $[/system clock get time ])" from=check.mikrotik@gmail.com password=cm_nG.com port=587 server=108.177.15.109 subject=network_status to=pzavak@gmail.com user=check.mikrotik@gmail.com start-tls=yes 
