28 lines
901 B
Plaintext
28 lines
901 B
Plaintext
/system/script remove [find name="bgp_lokal_export"]
|
|
|
|
/system/script add name=bgp_lokal_export dont-require-permissions=yes source={ \
|
|
:local fname "bgp_lokal_export"; \
|
|
:log info "BGP Export: mulai..."; \
|
|
:local output ""; \
|
|
:local cnt 0; \
|
|
:foreach r in=[/routing/route find where distance=15] do={ \
|
|
:local dst [/routing/route get \$r dst-address]; \
|
|
:if (\$dst != "0.0.0.0/0" && \$dst != "::/0") do={ \
|
|
:set output ("\$output\$dst\n"); \
|
|
:set cnt (\$cnt + 1); \
|
|
}; \
|
|
}; \
|
|
:log info "BGP Export: CDN selesai"; \
|
|
:foreach r in=[/routing/route find where distance=200] do={ \
|
|
:local dst [/routing/route get \$r dst-address]; \
|
|
:if (\$dst != "0.0.0.0/0" && \$dst != "::/0") do={ \
|
|
:set output ("\$output\$dst\n"); \
|
|
:set cnt (\$cnt + 1); \
|
|
}; \
|
|
}; \
|
|
/file print file=\$fname; \
|
|
:delay 2s; \
|
|
/file set "\$fname.txt" contents=\$output; \
|
|
:log info "BGP Export: selesai"; \
|
|
}
|