Ben's notes

Link to this comparison view

--- routeros_bogon_update [2015/04/19 11:45] – [RouterOS 6.x - Update bogon list automatically] admin
+++ routeros_bogon_update [2015/04/19 12:03] – [RouterOS 6.x - Update bogon list automatically] admin
@@ Line 14: / Line 14: @@
 /ip firewall address-list remove [/ip firewall address-list find list=bogons]
-:local content [/file get [/file find name=bogon-bn-agg.txt] contents] ;
+:global content [/file get [/file find name=bogon-bn-agg.txt] contents] ;
-:local contentLen [:len $content];
+:global contentLen [:len $content];
-:local lineEnd 0;
+:global lineEnd 0;
-:local line "";
+:global line "";
-:local lastEnd 0;
+:global lastEnd 0;
 :log info "Adding bogons from file."
-:while ($lineEnd < $contentLen) do={
+:do {
-   :set lineEnd [:find $content "\n" $lastEnd];
+       :set lineEnd [:find $content "\n" $lastEnd ] ;
-   :if ([:len $lineEnd] = 0) do={
+       :set line [:pick $content $lastEnd $lineEnd] ;
-      :set lineEnd $contentLen;
+       :set lastEnd ( $lineEnd + 1 ) ;
-   }
-   :set line [:pick $content $lastEnd $lineEnd];
+       :if ( $line != "" ) do={
-   :set lastEnd ($lineEnd + 1);
+       /ip firewall address-list add list=bogons address=$line;
+}
-   :if ($line != "\r") do={
+} while ($lineEnd < $contentLen)</code>
-      /ip firewall address-list add list=bogons address="$line"
-   }
-}</code>
   * Test run script:<code>/system script run bogons</code>
   * Schedule script:<code>/system scheduler add interval=24h start-time=7:00:00 on-event=bogons name=update-bogons</code>