{"id":296731,"date":"2020-01-04T09:00:14","date_gmt":"2020-01-04T09:00:14","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=296731"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=296731","title":{"rendered":"\u0423\u0434\u0430\u043b\u0451\u043d\u043d\u043e\u0435 \u0432\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435 \u0441\u043a\u0440\u0438\u043f\u0442\u043e\u0432 Mikrotik \u0438\u0437 Telegram v 2.0"},"content":{"rendered":"\n
\u0412\u0441\u0435\u0445 \u0441 \u043f\u0440\u043e\u0448\u0435\u0434\u0448\u0438\u043c \u043f\u0440\u0430\u0437\u0434\u043d\u0438\u043a\u043e\u043c. \u0414\u0430\u043d\u043d\u0430\u044f \u0442\u0435\u043c\u0430 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0431\u043e\u043b\u0435\u0435 \u043b\u0443\u0447\u0448\u0435\u0439 \u0432\u0435\u0440\u0441\u0438\u0435\u0439 \u0442\u043e\u0433\u043e, \u0447\u0442\u043e \u044f \u043f\u0438\u0441\u0430\u043b \u0432 \u0434\u0430\u043b\u0435\u043a\u043e\u043c 2016 \u0442\u0443\u0442 habr.com\/ru\/post\/314108<\/a>.<\/p>\n

\u0412 \u0446\u0435\u043b\u043e\u043c \u043f\u0440\u0438\u043d\u0446\u0438\u043f \u0440\u0430\u0431\u043e\u0442\u044b \u043d\u0435 \u0438\u0437\u043c\u0435\u043d\u0438\u043b\u0441\u044f, \u0441 \u0442\u043e\u0439 \u043b\u0438\u0448\u044c \u0440\u0430\u0437\u043d\u0438\u0446\u0435\u0439, \u0447\u0442\u043e \u0442\u0435\u043f\u0435\u0440\u044c \u043e\u043d \u043e\u0442\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0435\u0442 \u043c\u0433\u043d\u043e\u0432\u0435\u043d\u043d\u043e \u0431\u0435\u0437 \u0437\u0430\u0434\u0435\u0440\u0436\u0435\u043a.<\/p>\n

\u0417\u0430\u043a\u0438\u0434\u044b\u0432\u0430\u0435\u043c \u0441\u043a\u0440\u0438\u043f\u0442 \u0432 Mikrotik, \u043c\u0435\u043d\u044f\u0435\u043c BotID \u0438 ChatID \u043d\u0430 \u0441\u0432\u043e\u0438 \u0438 \u0441\u043e\u0437\u0434\u0430\u0435\u043c \u043d\u0430 \u043d\u0435\u0433\u043e schedule. \u0421\u0442\u0430\u0432\u0438\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u00abStart Time\u00bb \u043d\u0430 startup (\u0417\u0430\u043f\u0443\u0441\u043a \u0441\u043a\u0440\u0438\u043f\u0442\u0430 \u043f\u0440\u0438 \u0441\u0442\u0430\u0440\u0442\u0435.)
\u00abInterval\u00bb: 00:00:00
\u0412 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u043e\u043c \u0432\u0441\u0435 \u043a\u0430\u043a \u0438 \u0431\u044b\u043b\u043e. <\/p>\n

<\/a> <\/p>\n

Telegram-v2<\/b><\/p>\n
:delay 10
:global mtIdentity [\/system identity get name];
:global botID \u00abbotXXXXXXXXX:XXXXXXXXXXXXXXXXXXXXXXXXX\u00bb;
:global myChatID \u00abYYYYYY\u00bb;
:local chatId 0;
:local messageId 0;<\/p>\n

:local parse do={
:local startLoc ([:find $content $variable -1] + [:len $variable] + 2);
:local commaLoc ([:find $content «,» $startLoc] \u2014 1 + 1);
:local braceLoc ([:find $content «}» $startLoc] \u2014 1 + 1);
:local endLoc $commaLoc;
:local startSymbol [:pick $content $startLoc]
:if ($braceLoc != 0 and ($commaLoc = 0 or $braceLoc < $commaLoc)) do={
:set endLoc $braceLoc;
};
:if ($startSymbol = «{«) do={
:set endLoc ($braceLoc + 1);
};
:if ($quotas = true) do={
:set startLoc ($startLoc + 1);
:set endLoc ($endLoc \u2014 1);
}
:if ($endLoc < $startLoc) do={
:set endLoc ($startLoc + 1);
};
:local message [:pick $content $startLoc $endLoc]
#:log info $message;
:return $message;
}<\/p>\n

:while ( true ) do={
:do {
#:log info \u00abapi.telegram.org<\/a>$botID\/getUpdates\\?offset=$messageId&limit=1&allowed_updates=message&timeout=60\u00bb;
:tool fetch url=(\u00abapi.telegram.org<\/a>$botID\/getUpdates\\?offset=$messageId&limit=1&allowed_updates=message&timeout=60\u00bb) dst-path=\u00abgetUpdates\u00bb;
:local content [\/file get [\/file find name=getUpdates] contents];
#:log info $content;
:if ([:len $content] > 30) do={
:set messageId ([$parse content=$content variable=\u00abupdate_id\u00bb] + 1)
:local message [$parse content=$content variable=\u00abtext\u00bb quotas=true]
:local chat [$parse content=$content variable=\u00abchat\u00bb]
:local chatId [$parse content=$chat variable=\u00abid\u00bb] <\/p>\n

:if (($chatId = $myChatID) and ([\/system script find name=$message] != «»)) do={
:system script run $message;
} else={
:tool fetch url=(\u00abapi.telegram.org<\/a>$botID\/sendmessage\\?chat_id=$chatId&text=$mtIdentity: Unknown command: $message\u00bb) keep-result=no
}
}
} on-error={}
}; <\/div>\n<\/div>\n

\u0417\u0430 \u043f\u0430\u0440\u0443 \u043b\u0435\u0442 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0431\u044b\u043b \u0432\u044b\u044f\u0432\u043b\u0435\u043d \u0431\u0430\u0433, \u043f\u043e \u043d\u0435\u043f\u043e\u043d\u044f\u0442\u043d\u044b\u043c \u043f\u0440\u0438\u0447\u0438\u043d\u0430\u043c \u0441\u043b\u0430\u0431\u0435\u043d\u044c\u043a\u0438\u0435 Mikrotik \u043f\u043e\u0447\u0435\u043c\u0443 \u0442\u043e \u043e\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u044e\u0442 \u0441\u043a\u0440\u0438\u043f\u0442, \u043d\u0430 \u0431\u043e\u043b\u0435\u0435 \u043c\u043e\u0449\u043d\u044b\u0445 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0431\u0435\u0437 \u043e\u0441\u0442\u0430\u043d\u043e\u0432\u043e\u043a.<\/p>\n

\u0414\u043b\u044f \u044d\u0442\u0438\u0445 \u0446\u0435\u043b\u0435\u0439 \u043d\u0430\u043a\u0438\u0434\u0430\u043b \u043a\u043e\u0441\u0442\u044b\u043b\u044c WatchDog. \u0442\u0443\u0442 \u043c\u0435\u043d\u044f\u0435\u043c \u0438\u043c\u044f \u0441\u043a\u0440\u0438\u043f\u0442\u0430 \u043d\u0430 \u0442\u043e \u043a\u0430\u043a\u043e\u0435 \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u043b\u0438 \u0432\u044b\u0448\u0435. \u0438 \u0441\u0442\u0430\u0432\u0438\u043c \u0438\u043d\u0442\u0435\u0440\u0432\u0430\u043b \u043f\u0435\u0440\u0435\u0437\u0430\u043f\u0443\u0441\u043a\u0430 5 \u043c\u0438\u043d\u0443\u0442. \u041a\u0430\u0436\u0434\u044b\u0435 5 \u043c\u0438\u043d\u0443\u0442 \u043d\u0430\u0448\u0430 \u00ab\u0441\u043c\u043e\u0442\u0440\u044f\u0449\u0430\u044f \u0441\u043e\u0431\u0430\u043a\u0430\u00bb \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0442\u044c \u0441\u043a\u0440\u0438\u043f\u0442, \u0438 \u0435\u0441\u043b\u0438 \u043e\u043d \u043d\u0435 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442, \u0442\u043e \u0437\u0430\u043f\u0443\u0441\u0442\u0438\u0442 \u0435\u0433\u043e.<\/p>\n

WatchDogT.me<\/b><\/p>\n
:global scriptname \u00abt.me\u00bb
:if ([:len [\/system script job find script=$\u00abscriptname\u00bb]] > 0) do={
:log info «$scriptname Already Running \u2014 killing old script before continuing»
:foreach counter in=[\/system script job find script=$\u00abscriptname\u00bb] do={
\/system script job remove $counter
}
}
\/system script run $scriptname <\/div>\n<\/div>\n

\u041d\u0443 \u0438 \u043d\u0430 \u0434\u0435\u0441\u0435\u0440\u0442, \u0441\u043a\u0440\u0438\u043f\u0442 \u0432\u0437\u044f\u0442 \u0441 \u0444\u043e\u0440\u0443\u043c\u0430 Mikrotik.
\u041e\u0442\u043f\u0440\u0430\u0432\u043b\u044f\u0435\u0442 \u0432\u0430\u0436\u043d\u044b\u0435 \u0442\u043e\u043f\u0438\u043a\u0438 \u0438\u0437 \u043b\u043e\u0433\u0430 \u043d\u0430\u043c \u0432 \u0442\u0435\u043b\u0435\u0433\u0443.
\u0417\u0430\u043a\u0438\u0434\u044b\u0432\u0430\u0435\u043c \u0441\u043a\u0440\u0438\u043f\u0442 \u0432 schedule \u0438 \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u043c \u0438\u043d\u0442\u0435\u0440\u0432\u0430\u043b \u043f\u0435\u0440\u0435\u0437\u0430\u043f\u0443\u0441\u043a\u0430 \u043a\u0430\u0436\u0434\u044b\u0435 5 \u043c\u0438\u043d\u0443\u0442, \u043c\u0435\u043d\u044f\u0435\u043c BotID \u0438 ChatID \u043d\u0430 \u0441\u0432\u043e\u0438. <\/p>\n

Notify-log<\/b><\/p>\n
:global lastTime
:global output
:global mtIdentity [\/system identity get name];
:global botID \u00abbotXXXXXXXXX:XXXXXXXXXXXXXXXXXXXXXXXXX\u00bb;
:global myChatID \u00abYYYYYY\u00bb;<\/p>\n

:local LogGet [ :toarray [ \/log find topics~\u00abcritical\u00bb || message~\u00ablogin failure\u00bb || message~»[Ff]ailure» ] ];
:local LogtLineCount [ :len $LogGet ];
if ($LogtLineCount > 0) do={
:local currentTime «$[ \/log get [ :pick $LogGet ($LogtLineCount -1) ] time ]»;
:if ([:len $currentTime] = 10 ) do={
:set currentTime [ :pick $currentTime 0 10 ];
}
:set output «$currentTime \u2014 $[\/log get [ :pick $LogGet ($LogtLineCount-1) ] message ]»;
:if (([:len $lastTime] < 1) || (([:len $lastTime] > 0) && ($lastTime != $currentTime))) do={
:set lastTime $currentTime;
:tool fetch url=(\u00abapi.telegram.org<\/a>$botID\/sendmessage\\?chat_id=$myChatID&text=\\\u00bb$mtIdentity\\»: $output») keep-result=no
}
} <\/div>\n<\/div>\n

\u041f\u043e\u043b\u0443\u0447\u0438\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442:
\"image\"<\/div>\n