:local linkstatus;
:local classificadores;
:local conexaoP
:local rota
:local conexaoB
:local pingcount
:set linkstatus false;
:set rota "turbo-8M"
:set classificadores ("both-addresses:4/0","both-addresses:4/2","both-addresses:4/3")
:set conexaoP T8M_conn
:set conexaoB datavag_conn
while ( true ) do={
:set pingcount [/ping 8.8.8.8 count=5 routing-table=$rota]
:if ( $pingcount < 2 and $linkstatus ) do={
:log warning "oi down"
:set linkstatus false
:log info "deixando o balanceamento para a datavag"
:foreach classifica in=[$classificadores] do={
/ip firewall mangle set [/ip firewall mangle find per-connection-classifier=$classifica] new-connection-mark=$conexaoB
}
}
:if ( $pingcount = 5 and !$linkstatus ) do={
:log warning "oi up"
:set linkstatus true
:log info "voltando o balanceamento no link da oi "
:foreach classifica in=[$classificadores] do={
/ip firewall mangle set [/ip firewall mangle find per-connection-classifier=$classifica] new-connection-mark=$conexaoP
}
}
:delay 30s
}