System information

Manual:Scripting-examples

Parse file to add ppp secrets

This script requires that entries inside the file is in following format:

username,password,local_address,remote_address,profile,service

For example:

janis,123,1.1.1.1,2.2.2.1,ppp_profile,myService

juris,456,1.1.1.1,2.2.2.2,ppp_profile,myService

aija,678,1.1.1.1,2.2.2.3,ppp_profile,myService

Code:

: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 "\r\n" $lastEnd ] ;

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

:set lastEnd ( $lineEnd + 2 ) ;

:local tmpArray [:toarray $line] ;

:if ( [:pick $tmpArray 0] != "" ) do={

:put $tmpArray;

/ppp secret add name=[:pick $tmpArray 0] password=[:pick $tmpArray 1] \

local-address=[:pick $tmpArray 2] remote-address=[:pick $tmpArray 3] \

profile=[:pick $tmpArray 4] service=[:pick $tmpArray 5];

}

} while ($lineEnd < $contentLen)

Detect new log entry

This script is checking if new log entry is added to particular buffer.

In this example we will use pppoe logs:

/system logging action

add name="pppoe"

/system logging

add action=pppoe topics=pppoe,info,!ppp,!debug

Log buffer will look similar to this one:

[admin@mainGW] > /log print where buffer=pppoe

13:11:08 pppoe,info PPPoE connection established from 00:0C:42:04:4C:EE

Now we can write a script to detect if new entry is added.

Code: