Включение скриптов Mikrotik из Telegram не работает.

Здесь выкладываем скрипты
Правила форума
Уважаемые Пользователи форума, обратите внимание!
Ни при каких обстоятельствах, Администрация форума, не несёт ответственности за какой-либо, прямой или косвенный, ущерб причиненный в результате использования материалов, взятых на этом Сайте или на любом другом сайте, на который имеется гиперссылка с данного Сайта. Возникновение неисправностей, потерю программ или данных в Ваших устройствах, даже если Администрация будет явно поставлена в известность о возможности такого ущерба.
Просим Вас быть предельно осторожными и внимательными, в использовании материалов раздела. Учитывать не только Ваши пожелания, но и границы возможностей вашего оборудования.
Ответить
ReadMe
Сообщения: 22
Зарегистрирован: 29 окт 2014, 21:31

Наткнулся на просторах хабра на статью "Удалённое включение скриптов Mikrotik из Telegram v 2.0"
 Скрипт
:delay 10
:global mtIdentity [/system identity get name];
:global botID "botXXXXXXXXX:XXXXXXXXXXXXXXXXXXXXXXXXX" ;
:global myChatID "YYYYYY" ;
:local chatId 0;
:local messageId 0;


:local parse do={
:local startLoc ([:find $content $variable -1] + [:len $variable] + 2);
:local commaLoc ([:find $content "," $startLoc] - 1 + 1);
:local braceLoc ([:find $content "}" $startLoc] - 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 - 1);
}
:if ($endLoc < $startLoc) do={
:set endLoc ($startLoc + 1);
};
:local message [:pick $content $startLoc $endLoc]
#:log info $message;
:return $message;
}


:while ( true ) do={
:do {
#:log info "https://api.telegram.org/$botID/getUpda ... timeout=60";
:tool fetch url=("https://api.telegram.org/$botID/getUpda ... timeout=60") dst-path="getUpdates";
:local content [/file get [/file find name=getUpdates] contents] ;
#:log info $content;
:if ([:len $content] > 30) do={
:set messageId ([$parse content=$content variable="update_id"] + 1)
:local message [$parse content=$content variable="text" quotas=true]
:local chat [$parse content=$content variable="chat"]
:local chatId [$parse content=$chat variable="id"]

:if (($chatId = $myChatID) and ([/system script find name=$message] != "")) do={
:system script run $message;
} else={
:tool fetch url=("https://api.telegram.org/$botID/sendmes ... mtIdentity: Unknown command: $message") keep-result=no
}
}
} on-error={}
};
Но столкнулся с проблемой что скрипт не понимает команды и выдает :Unknown command: $message.. Методом копания было выяснено что проблема в невыполнении условия:
:if (($chatId = $myChatID) and ([/system script find name=$message] != "")) do={
:system script run $message;
Сам скрипт если убрать условие будет работать, но не будет выдавать ошибок и проверять id чата.
С автором скрипта связаться не удалось, проверял на 6.47.
Может кто подсказать в каком направлении копать....


Аватара пользователя
Virtue
Сообщения: 142
Зарегистрирован: 07 мар 2014, 10:17

ReadMe писал(а): 06 июл 2020, 09:37 Наткнулся на просторах хабра на статью...
Как раз готовлю пост(мануал) на тему управленя с телеги через скрипты.. на днях выложу, может даже сегодня, там будет рабочий скрипт


Аватара пользователя
Virtue
Сообщения: 142
Зарегистрирован: 07 мар 2014, 10:17

ReadMe писал(а): 06 июл 2020, 09:37 Наткнулся..
пожалуйста viewtopic.php?f=14&t=11710&p=71914#p71914


Ответить