PCC

javaobc

1. :global activeroutesold;
   
2. :local activeroutes 0;
   
3. :local route;
   
4. :local tes;
   
5. :local divs 0;
   
6. :local less;
   
7. :local routingmarks;
   
8. :local arrayrouting;
   
9. :local routemark;
   
10. 
    
11. 
    
12. :log info "BEGIN************"
    
13. :foreach route in=[/ip route find where comment~"^[a-z]*balanceo" active=yes] do={
    
14.    :set tes [ /ip route get $route routing-mark ];
    
15.    :set activeroutes ($activeroutes + 1)
    
16.    :set routingmarks ($routingmarks, $tes);
    
17. }
    
18. :if ($activeroutes != $activeroutesold) do={
    
19.    /ip firewall
    
20.       mangle {
    
21.          :foreach a in=[find where comment~"^[a-z]*balance" ] do={
    
22.             remove $a }
    
23.    }
    
24.    :set arrayrouting [:toarray $routingmarks]
    
25.    :set divs $activeroutes;
    
26.    :set less $activeroutes;
    
27. 
    
28. 
    
29. 
    
30.    :log info "email enviado";
    
31.    :for i from=0 to=($activeroutes-1) do={
    
32.       :set routemark [:pick $routingmarks $i]
    
33.       :set divs ($activeroutes - $less);
    
34.       :set less ($less - 1);
    
35.       :log info "$routemark";
    
36.       :log info "$activeroutes/$divs"
    
37.        /ip firewall mangle
    
38.       :log info "Setting filters";
    
39.       add action=mark-connection chain=prerouting comment="balance conn $routemark" \
    
40.           disabled=no dst-address-type=!local in-interface=local \
    
41.           new-connection-mark="$routemark" passthrough=yes per-connection-classifier=\
    
42.           "both-addresses:$activeroutes/$divs" place-before=3
    
43.       add action=mark-routing chain=prerouting comment="balance route $routemark" \
    
44.          connection-mark="$routemark" disabled=no in-interface=local new-routing-mark=\
    
45.          "$routemark" passthrough=no place-before=3
    
46.     }
    
47. } else={:log info "rutas no han cambiado"};
    
48. :log info ("$activeroutes rutas activas");
    
49. :set activeroutesold $activeroutes;
    
50. :log info "END**************"

复制代码

47771885

很好很好