Начало VK Teams

2025-04-15 11:56:36 +02:00 · 2024-08-09 09:38:49 +03:00 · 2024-08-09 09:38:49 +03:00 · f5b7dab520
commit f5b7dab520
parent b126ed59f5
5 changed files with 137 additions and 1 deletions
--- a/src/ru/OPI/src/CommonModules/OPI_VkTeams/Module.bsl
+++ b/src/ru/OPI/src/CommonModules/OPI_VkTeams/Module.bsl
@ -0,0 +1,81 @@
+// OneScript: ./OInt/core/Modules/OPI_VkTeams.os
+// Lib: VkTeams
+// CLI: vkteams
+
+// MIT License
+
+// Copyright (c) 2023 Anton Tsitavets
+
+// Permission is hereby granted, free of charge, to any person obtaining a copy
+// of this software and associated documentation files (the "Software"), to deal
+// in the Software without restriction, including without limitation the rights
+// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+// copies of the Software, and to permit persons to whom the Software is
+// furnished to do so, subject to the following conditions:
+
+// The above copyright notice and this permission notice shall be included in all
+// copies or substantial portions of the Software.
+
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+// SOFTWARE.
+
+// https://github.com/Bayselonarrend/OpenIntegrations
+
+// BSLLS:Typo-off
+// BSLLS:IncorrectLineBreak-off
+// BSLLS:NumberOfOptionalParams-off
+// BSLLS:UsingServiceTag-off
+// BSLLS:LineLength-off
+
+//@skip-check module-structure-top-region
+//@skip-check module-structure-method-in-regions
+//@skip-check wrong-string-literal-content
+//@skip-check method-too-many-params
+
+// Раскомментировать, если выполняется OneScript
+// #Использовать "../../tools"
+
+#Область ПрограммныйИнтерфейс
+
+// Проверить токен
+// Проверяет работоспособность токена бота
+//
+// Примечание:
+// Метод в документации API: [GET /self/get](@teams.vk.com/botapi/#/self/get_self_get)
+//  
+// Параметры:
+//  Токен - Строка - Токен бота - token
+// 
+// Возвращаемое значение:
+//  Соответствие Из КлючИЗначение - сериализованный JSON ответа от VK Teams
+Функция ПроверитьТокен(Знач Токен) Экспорт
+
+	URL       = "/self/get";
+	Параметры = НормализоватьОснову(URL, Токен); 
+     
+    Ответ = OPI_Инструменты.Get(URL, Параметры);
+
+    Возврат Ответ;
+    	
+КонецФункции
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Функция НормализоватьОснову(URL, Знач Токен)
+	
+	URL       = "https://myteam.mail.ru/bot/v1" + URL;
+	Параметры = Новый Структура;
+	OPI_Инструменты.ДобавитьПоле("token", Токен, "Строка", Параметры);
+	
+	Возврат Параметры;
+	
+КонецФункции
+
+#КонецОбласти
--- a/src/ru/OPI/src/CommonModules/OPI_VkTeams/OPI_VkTeams.mdo
+++ b/src/ru/OPI/src/CommonModules/OPI_VkTeams/OPI_VkTeams.mdo
@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<mdclass:CommonModule xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="cba61dc6-38eb-4bff-83cd-34dbc233f294">
+  <name>OPI_VkTeams</name>
+  <synonym>
+    <key>ru</key>
+    <value>Vk Teams (ОПИ)</value>
+  </synonym>
+  <server>true</server>
+  <externalConnection>true</externalConnection>
+  <clientOrdinaryApplication>true</clientOrdinaryApplication>
+</mdclass:CommonModule>
--- a/src/ru/OPI/src/CommonModules/OPI_ПолучениеДанныхТестов/Module.bsl
+++ b/src/ru/OPI/src/CommonModules/OPI_ПолучениеДанныхТестов/Module.bsl
@ -65,6 +65,7 @@
    Разделы.Вставить("Airtable"       , СтандартныеЗависимости);
    Разделы.Вставить("Dropbox"        , СтандартныеЗависимости);
    Разделы.Вставить("Bitrix24"       , СтандартныеЗависимости);
+    Разделы.Вставить("VkTeams"        , СтандартныеЗависимости);

    Возврат Разделы;

@ -86,6 +87,7 @@
    АирТ      = "Airtable";
    ДропБокс  = "Dropbox";
    Битрикс   = "Bitrix24";
+    ВКТ       = "VkTeams";

    ТаблицаТестов = Новый ТаблицаЗначений;
    ТаблицаТестов.Колонки.Добавить("Метод");
@ -234,6 +236,8 @@
    НовыйТест(ТаблицаТестов, "Б24_РаботаСПолямиЗадач"               , "Работа с польз. полями задач"   , Битрикс);
    НовыйТест(ТаблицаТестов, "Б24_УправлениеПодразделениями"        , "Управление подразделениями"     , Битрикс);
    НовыйТест(ТаблицаТестов, "Б24_УправлениеПользователями"         , "Управление пользователями"      , Битрикс);
+    
+    НовыйТест(ТаблицаТестов, "ВКТ_ОбщиеМетоды"                      , "Общие методы"                   , ВКТ);

    Возврат ТаблицаТестов;

--- a/src/ru/OPI/src/CommonModules/OPI_Тесты/Module.bsl
+++ b/src/ru/OPI/src/CommonModules/OPI_Тесты/Module.bsl
@ -3227,6 +3227,19 @@

 #КонецОбласти

+#Область VkTeams
+
+Процедура ВКТ_ОбщиеМетоды() Экспорт
+	
+	ПараметрыТеста = Новый Структура;
+    OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_Token", ПараметрыТеста);
+
+    VkTeams_ПроверитьТокен(ПараметрыТеста);
+    
+КонецПроцедуры
+
+#КонецОбласти
+
 #КонецОбласти

 #КонецОбласти
@ -3915,6 +3928,13 @@

 КонецПроцедуры

+Процедура Проверка_ВКТПользователь(Знач Результат)
+	
+	OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["ok"]).Равно(Истина);
+	OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["userId"]).Заполнено();	
+	
+КонецПроцедуры
+
 #КонецОбласти

 #Область АтомарныеТесты
@ -10182,6 +10202,25 @@

 #КонецОбласти

+#Область VkTeams
+
+Процедура VkTeams_ПроверитьТокен(ПараметрыФункции)
+	
+	Токен     = ПараметрыФункции["VkTeams_Token"];
+    Результат = OPI_VkTeams.ПроверитьТокен(Токен);
+
+    // END
+
+    // !OInt OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПроверитьТокен", "VkTeams");
+
+    Проверка_ВКТПользователь(Результат);
+
+    OPI_Инструменты.Пауза(5);
+    
+КонецПроцедуры
+
+#КонецОбласти
+
 #КонецОбласти

 #КонецОбласти
--- a/src/ru/OPI/src/Configuration/Configuration.mdo
+++ b/src/ru/OPI/src/Configuration/Configuration.mdo
@ -26,7 +26,7 @@
  <usePurposes>PersonalComputer</usePurposes>
  <scriptVariant>Russian</scriptVariant>
  <vendor>Bayselonarrend</vendor>
-  <version>1.11.1</version>
+  <version>1.12.0</version>
  <detailedInformation>
    <key>ru</key>
    <value>Открытый пакет интеграций - набор библиотек для интеграции с некоторыми популярными API для 1C:Enterprise. Он состоит из общих модулей, каждый из которых отвечает за свой API, а также нескольких модулей-инструментов, общих для всех.</value>
@ -58,6 +58,7 @@
  <commonModules>CommonModule.OPI_Airtable</commonModules>
  <commonModules>CommonModule.OPI_Dropbox</commonModules>
  <commonModules>CommonModule.OPI_Bitrix24</commonModules>
+  <commonModules>CommonModule.OPI_VkTeams</commonModules>
  <commonModules>CommonModule.OPI_Тесты</commonModules>
  <commonModules>CommonModule.OPI_ПолучениеДанныхТестов</commonModules>
 </mdclass:Configuration>