/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"; \
}