Monitoring Wireless Mikrotik Dengan Bot Telegram

:local send [:parse [/system script get tg_sendMessage source]]
:local param1 [:pick $params 0 [:find $params " "]]
:local param2 [:pick $params ([:find $params " "]+1) [:len $params]]
:local param3 [:pick [:pick $params ([:find $params " "]+1) [:len $params]] ([:find [:pick $params ([:find $params " "]+1) [:len $params]] " "]+1) [:len [:pick $params ([:find $params " "]+1) [:len $params]]]]
:if ([:len [:find $param2 " "]]>0) do={
	:set param2 [:pick [:pick $params ([:find $params " "]+1) [:len $params]] 0 [:find [:pick $params ([:find $params " "]+1) [:len $params]] " "]]
} else={
	:set param3 ""
}

:put $params
:put $param1
:put $param2
:put $param3
:put $chatid
:put $from

:if ($param1="pasword") do={
/interface wireless security-profiles set mode=dynamic-keys authentication-types=wpa-psk wpa-pre-shared-key=$param3 [find name=$param2]
$send chat=$chatid text=("Profiles wireless $param2 pasword diganti menjadi $param3...") mode="Markdown"
}
:if ($param1="ssid") do={
/interface wireless set name=$param3 [find name=$param2]
$send chat=$chatid text=("SSID $param2 diganti menjadi $param3...") mode="Markdown"
}
:if ($params="count") do={
:local total [/interface wireless registration-table print count-only]
$send chat=$chatid text=("$total") mode="Markdown"
}