Статистика: Добавлено universe5ht — Сегодня, 12:40
Статистика: Добавлено torik — Сегодня, 11:56
Статистика: Добавлено ndssi — Вчера, 15:07
Статистика: Добавлено drpioneer — Вчера, 11:05
Статистика: Добавлено qwerty123123 — Вчера, 09:57
Статистика: Добавлено Triangle — 17 мар 2024, 15:19
Статистика: Добавлено Bushi — 16 мар 2024, 18:42
Статистика: Добавлено Ripich — 15 мар 2024, 23:01
Ограничения бесплатной лицензии CHR - 1Mbps.Есть поднятый в виртуальной среде CHR 7.14 и пару xAP LX ac
Устройства подключаются получают адреса но speedtest в гостевой сети крайне низкий: порядка 1мб, хотя в рабочей сети порядка выдает порядка 70мб/с
Статистика: Добавлено Sargulov — 15 мар 2024, 19:02
Статистика: Добавлено -13- — 15 мар 2024, 17:48
Код:
# Function Converter of Russian characters for sending in Telegram# by Sertik 19/09/2020# usage [$FuncStrToTele "Строка String .,!+"]:global FuncStrToTele do={:local string; :set $string $1;# table of the codes of Russian letters UTF8:local rsimv [:toarray {"А"="D090"; "Б"="D091"; "В"="D092"; "Г"="D093"; "Д"="D094"; "Е"="D095"; "Ж"="D096"; "З"="D097"; "И"="D098"; "Й"="D099"; "К"="D09A"; "Л"="D09B"; "М"="D09C"; "Н"="D09D"; "О"="D09E"; "П"="D09F"; "Р"="D0A0"; "С"="D0A1"; "Т"="D0A2"; "У"="D0A3"; "Ф"="D0A4"; "Х"="D0A5"; "Ц"="D0A6"; "Ч"="D0A7"; "Ш"="D0A8"; "Щ"="D0A9"; "Ъ"="D0AA"; "Ы"="D0AB"; "Ь"="D0AC"; "Э"="D0AD"; "Ю"="D0AE"; "Я"="D0AF"; "а"="D0B0"; "б"="D0B1"; "в"="D0B2"; "г"="D0B3"; "д"="D0B4"; "е"="D0B5"; "ж"="D0B6"; "з"="D0B7"; "и"="D0B8"; "й"="D0B9"; "к"="D0BA"; "л"="D0BB"; "м"="D0BC"; "н"="D0BD"; "о"="D0BE"; "п"="D0BF"; "р"="D180"; "с"="D181"; "т"="D182"; "у"="D183"; "ф"="D184"; "х"="D185"; "ц"="D186"; "ч"="D187"; "ш"="D188"; "щ"="D189"; "ъ"="D18A"; "ы"="D18B"; "ь"="D18C"; "э"="D18D"; "ю"="D18E"; "я"="D18F"; "Ё"="D001"; "ё"="D191"; "№"="0023"; " "="0020"; "&"="0026"; "^"="005E"}]# encoding of the symbols and аssembly line:local StrTele ""; :local code "";:for i from=0 to=([:len $string]-1) do={:local keys [:pick $string $i (1+$i)]; :local key ($rsimv->$keys); if ([:len $key]!=0) do={:set $code ("%"."$[:pick ($rsimv->$keys) 0 2]"."%"."$[:pick ($rsimv->$keys) 2 4]"); :if ([pick $code 0 3] ="%00") do={:set $code [:pick $code 3 6]}} else={:set $code $keys}; :set $StrTele ("$StrTele"."$code")}:return $StrTele;}
Код:
:local BotToken "Мой Токен";:local ChatID "Мой АйДи";:global FuncStrToTele;:local string [$FuncStrToTele "Привет от Sertik ! Работает функция-конвертер Russian alfabit для Telegramm"]:local ParseMode "html";:local DisableWebPagePreview True;:local SendText $MessageText;:local tgUrl "https://api.telegram.org/bot$BotToken/sendMessage?chat_id=$ChatID&text=$SendText&parse_mode=$ParseMode&disable_web_page_preview=$DisableWebPagePreview";/tool fetch http-method=get url=$tgUrl keep-result=no;:log info "Send Telegram Message: $MessageText";
Код:
:local DeviceName [/system identity get name];:local Time [/system clock get time];:local Date [/system clock get date];:local TelegramMessageText;:local urlEncoded;:global ParseLogL2tpErrorEndArrayID;:local IDsEventsError [/log find where topics~"l2tp.ppp.error" message~"user"];:local LenArrayIDs [:len $IDsEventsError];:local StartArrayID [:find $IDsEventsError $ParseLogL2tpErrorEndArrayID];:local EndArrayID ($IDsEventsError -> ($LenArrayIDs-1));:if ($EndArrayID != $ParseLogL2tpErrorEndArrayID and [:tobool $ParseLogL2tpErrorEndArrayID] ) do={ :for KeyArray from=($StartArrayID+1) to=($LenArrayIDs-1) do={ :local IDMessage ($IDsEventsError ->$KeyArray ); :set TelegramMessageText "$TelegramMessageText %0D%0A $[/log get number=$IDMessage time] - $[/log get number=$IDMessage message];"; }:for i from=0 to=([:len $TelegramMessageText] - 1) do={ :local char [:pick $TelegramMessageText $i] :if ($char = "<") do={ :set $char "" } :if ($char = ">") do={ :set $char "" } :set urlEncoded ($urlEncoded . $char) } :local MessageText "\E2\9B\94 <b>$DeviceName: L2TP ERROR</b> $urlEncoded"; :local SendTelegramMessage [:parse [/system script get MyTGBotSendMessage source]]; $SendTelegramMessage MessageText=$MessageText;} else={log info "Script ParseLogL2tpError: no new messages found.";};:set ParseLogL2tpErrorEndArrayID $EndArrayID;
Статистика: Добавлено OlegM — 15 мар 2024, 15:39
Статистика: Добавлено bst-botsman — 15 мар 2024, 15:33
Статистика: Добавлено Sargulov — 15 мар 2024, 13:20