ROS高级文档2011.docVIP

:local oldad :local newad :local status :local sta1 :local sta2 :local pname :local routedis :for i from=1 to=2 do={ :set status [/interface get [/inter find name=(pppoe-out . $i)] running] :if ($status=true) do={ :set newad [/ip add get [/ip add find dyna=true inte=(pppoe-out . $i)] addr] :set newad [:pick $newad 0 [:find $newad /]] :set oldad [/ip add get [/ip add find comment=$i] addr] :set oldad [:pick $oldad 0 [:find $oldad /]] :if ($oldad != $newad) do={ /ip addr set [/ip add find comm=$i] addr=$newad netw=$newad broadc=$newad /ip route set [/ip route find comment=$i] gateway=$newad /ip route set [/ip route find comment=3] gateway=$newad /ip fire nat set [/ip fire nat find comm=(NAT . $i)] to-address=$newad } } } :set routedis [/ip rou get [/ip rou find comment=1] disable] :set sta1 [/interface get [/interface find name=pppoe-out1] running] :set sta2 [/interface get [/interface find name=pppoe-out2] running] :if ((($sta1!=true) || ($sta2!=true)) ($routedis=false)) do={ :set pname [/inter get [/inter find type=pppoe-out running=true] name] :set newad [/ip add get [/ip add find inter=$pname dynamic=true] addr] :set newad [:pick $newad 0 [:find $newad /]] /ip firewall nat set [/ip firewall nat find comment=natall] disable=no /ip firewall nat set [/ip firewall nat find comment=1] disable=yes /ip firewall nat set [/ip firewall nat find comment=2] disable=yes /ip rou set [/ip rou find comment=1] disable=yes /ip rou set [/ip rou find comment=2] disable=yes /ip rou set [/ip rou find comment=3] gate=$newad } :if ((($sta2=true) ($sta1=true)) ($routedis=true)) do={ /ip firewall nat set [/ip firewall nat find comment=natall] disable=yes /ip firewall nat set [/ip firewall nat find comment=1] disable=no /ip firewall nat set [/ip firewall nat find comment=2] disable=no /ip rou set [/ip rou find comment=1] disable=no /ip ro