V: Automatické generování adress listu ze seznamu IP

puchnar

Zdravím, řeším nyní následující situaci. Mám systém který na základě monitorování provozu na síti generuje 3 sady (soubory) IP Adress.

1. X.txt

2. Y.txt

3. Z.txt

Tyto tři soubory se pravidelně budou stahovat do několika mikrotiků, kde potřebuji aby se z nich generovali patřičné adress-listy ale bohužel mně nenapadá jak na to.

Nevím, jestli generovat hotové scripty z těchto souborů až na linuxu a importovat hotové scripty (Jak na generování v linuxu?), nebo jestli generovat adress-listy až v mikrotiku (jak na to?)

Dokázal by někdo poradit? Internet mlčí, nejspíše proto, že nevím jak přesně hledat :( Díky

Edit: Soubory jsou generované stylem co řádek to jedna IP

noxus28

ešte aj mikrotik wiki to má uverejnené :

:if ( [/file get [/file find name=nazovsuboru.txt] size] > 0 ) do={

:global content [/file get [/file find name=nazovsuboru.txt] contents] ;

:global contentLen [ :len $content ] ;

:global lineEnd 0;

:global line "";

:global lastEnd 0;

:do {

:set lineEnd [:find $content "\n" $lastEnd ] ;

:set line [:pick $content $lastEnd $lineEnd] ;

:set lastEnd ( $lineEnd + 1 ) ;

#If the line doesn't start with a hash then process and add to the list

:if ( [:pick $line 0 1] != "#" ) do={

:local entry [:pick $line 0 ($lineEnd -1) ]

:if ( [:len $entry ] > 0 ) do={

/ip firewall address-list add list=nazovlistu address=$entry

}

} while ($lineEnd < $contentLen)

}

skript dohľadá súbor "nazovsuboru.txt" a pre každý riadok pridá IP do address listu "nazovlistu"

puchnar

No jo no kdo neumí hledat.... Díky moc vyzkouším :) jsem teprve relativně začátečník :)

puchnar

Tak si stím už tři dny hraju, a nějak to nefunguje, v /files mám soubor test.txt ve kterém mm 6 IP a k němu tento script

if ( [/file get [/file find name=test.txt] size] > 0 ) do={

:global content [/file get [/file find name=test.txt] contents] ;

:global contentLen [ :len $content ] ;

:global lineEnd 0;

:global line "";

:global lastEnd 0;

:do {

:set lineEnd [:find $content "\n" $lastEnd ] ;

:set line [:pick $content $lastEnd $lineEnd] ;

:set lastEnd ( $lineEnd + 1 ) ;

#If the line doesn't start with a hash then process and add to the list

:if ( [:pick $line 0 1] != "#" ) do={

:local entry [:pick $line 0 ($lineEnd -1) ];

:if ( [:len $entry ] > 0 ) do={

/ip firewall address-list add list=test.txt address=$entry;

}

} while ($lineEnd < $contentLen)

}

a ať zkouším co zkouším i různé úpravy vždy to do address-listu zapíše pouze první IP a konec, když ovšem příkaz nahradím " info $entry" tak vypisuje popořadě všechny ip ze seznamu nekonečně dokola.

Kde dělám chybu? Zkoušeno na 750Gr3 6.40.5 a 750Gr3 6.39.něco

Díky

noxus28

trošku som popátral a poupravoval a v 6.42 mi funguje toto:

:if ( [/file get [/file find name=nazovsuboru.txt] size] > 0 ) do={

/ip firewall address-list remove [/ip firewall address-list find list=nazovlistu]

:local content [/file get [/file find name=nazovsuboru.txt] contents] ;

:local contentLen [ :len $content ] ;

:put ( "=>" . $content . "<=" )

:local lineEnd 0

:local line ""

:local lastEnd [ :tonum 0 ]

:do {

:set line [ :pick $content $lastEnd [ :find $content "\r\n" $lastEnd ] ]

:set lineEnd [:find $content "\n" $lastEnd ] ;

:put "lineEnd=$lineEnd< - lastEnd=$lastEnd - line=$line<"

:if ( [ :len $content ] = 0 ) do={

:put "UNIX"

:set line [ :pick $content $lastEnd [ :find $content "\r\n" $lastEnd ] ]

:set lineEnd [:find $content "\n" $lastEnd ] ;

}

:set lastEnd ( $lineEnd + 1 ) ;

:if ( [:pick $line 0 1] != "#" ) do={

:put ">$line<"

:if ( [:len $line ] > 0 ) do={ /ip firewall address-list add list=nazovlistu address=$line }

}

} while ($lineEnd < $contentLen)

}

prvý riadok txt obsahuje #, ak som ho tam nedal tak prvú IP zapísal 2x ( pričom zmazal prvý znak, neprišiel som na to prečo)

vyskúšané na .txt vytvorenom vo windows, je možné že unixové kódovanie bude treba upraviť

na začiatku je príkaz na zmazanie listu ak už existuje, ak to nepotrebuješ tak si ho zmaž

Mikrotik obmedzil veľkosť čítaného súboru na 4 KB takže pozor aký veľký bude texťák, možno ho budeš musieť rozdeliť

noxus28

* poznámka

ak ma unix formát v pspade neoklamal tak pre unix formátované .txt treba v skripte upraviť 2x

[ :find $content "\r\n" $lastEnd ]

na [ :find $content "\n" $lastEnd ]

puchnar

Díky moc, rovněž jsem si to trochu poupravil a už to funguje přesně dle mých představ, ještě jednou Díky :)

noxus28

V pohode : kým sergejovci zase niečo neupravia v skriptoch