Toto vlákno patří spíše do sekce Skriptování ,tudíž doporučuji zapnout příkaz mv a přesunout.
Jinak Skript je zde:
# New Client
# Skript ktery kontroluje zda-li nepribyl novy klient do site
# a pokud ano odesle mail
# By Grunt
################################################
### Definice lokalnich promenych
:local macs [:nothing]
:local messages [:nothing]
### Deklarace lokalnich promenych
# Pocet zprav pokud pribude novy klient
:local msgcount 3
# Adresa na kterou bude mail odeslan
:local mailto "petrvlasic@atlas.cz"
# Predmet e-mailu
:local mailsubject "Nove AP v siti"
# Delka prodlevi mezi kontrolami
:local delay 20s
################################################
:foreach ca in=[/interface wireless registration-table find] do={
:set macs ($macs . [/interface wireless registration-table get $ca mac-address] . ",")
:set messages ($messages . "0,")
}
:while (true) do={
:foreach cb in=[/interface wireless registration-table find] do={
:if ([:find $macs [/interface wireless registration-table get $cb mac-address]]) do={:nothing} else={
:set macs ($macs . [/interface wireless registration-table get $cb mac-address] . ",")
:set messages ($messages . $msgcount . ",")
}
}
:foreach cd in=$macs do={
:if ([:pick $messages [:find $macs $cd]] > 0) do={
/tool e-mail send to=$mailto subject=$mailsubject body=("MAC:" . $cd . " Signal:" . [/interface wireless registration-table get [/interface wireless registration-table find mac-address=$cd] signal-strength ])
:set messagesbuffer [:nothing]
:foreach ce in=$macs do={
:if ($ce=$cd) do={
:set messagesbuffer ($messagesbuffer . (([:pick $messages [:find $macs $ce]]) - 1) . ",")
} \
else={
:set messagesbuffer ($messagesbuffer . [:pick $messages [:find $macs $ce]] . ",")
}
}
:set messages $messagesbuffer
}
}
:delay $delay
}
Skrip jsem skusil a jede tudíž syntaktickou chybu vylučuji avšak nějaká logická chyba tam bude určitě...je potřeba vyzkoušet a pokud nepojede ,tak se ozvěte a až budu mít trochu víc času ,tak to zkontroluju. Za komentráře se omlouvam ,ale budou muset stačit protože už začal Dr. House.
