Merge branch 'release/v.0.13.0'

.travis.yml

@@ -4,13 +4,15 @@ addons:
   sonarqube: true
 jdk:
   - openjdk11
+git:
+  depth: false
 before_install: 
   - chmod +x travis.sh
   - sudo apt-key adv --keyserver hkp://keyserver.ubuntu.com:80 --recv-keys 3FA7E0328081BFF6A14DA29AA6A19B38D3D831EF
   - echo "deb http://download.mono-project.com/repo/ubuntu trusty main" | sudo tee /etc/apt/sources.list.d/mono-official.list
   - sudo apt-get update
   - sudo apt-get install mono-complete mono-devel dos2unix
-  - wget -O os.deb http://oscript.io/downloads/night-build/deb
+  - wget -O os.deb http://oscript.io/downloads/latest/x64/deb
   - sudo dpkg -i os.deb; sudo apt install -f
   - oscript
 install:  

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("irac")
-		.Версия("0.12.0")
+		.Версия("0.13.0")
         .Автор("Artem Kuznetsov")
         .АдресАвтора("[email protected]")
         .Описание("Библиотека администрирования кластера серверов 1С")
@@ -12,6 +12,7 @@
 		.ЗависитОт("1testrunner")
 		.ЗависитОт("strings", "0.4.1")
 		.ЗависитОт("1commands", "1.3.1")
+		.ЗависитОт("v8find")
 		.ЗависитОт("v8runner")
 		.ЗависитОт("1connector")
 		.ВключитьФайл("src")

src/Классы/АдминистраторыАгента.os

@@ -24,7 +24,7 @@
 
 	Кластер_Агент = АгентКластера;
 
-	ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.АдминистраторыАгента);
+	ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.АдминистраторыАгента);
 
 	Элементы = Новый ОбъектыКластера(ЭтотОбъект);
 
@@ -46,11 +46,11 @@
 
 	ПараметрыКоманды = Новый Соответствие();
 	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента", Кластер_Агент.СтрокаПодключения());
-	ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента", Кластер_Агент.СтрокаАвторизации());
+	ПараметрыКоманды.Вставить("ПараметрыАвторизацииАгента", Кластер_Агент.ПараметрыАвторизации());
 
 	ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);
 
-	КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список"));
+	КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список");
 
 	Если НЕ КодВозврата = 0 Тогда
 		ВызватьИсключение СтрШаблон("Ошибка получения списка администраторов агента, КодВозврата = %1: %2",
@@ -197,7 +197,7 @@
 
 	ПараметрыКоманды = Новый Соответствие();
 	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента", Кластер_Агент.СтрокаПодключения());
-	ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента", Кластер_Агент.СтрокаАвторизации());
+	ПараметрыКоманды.Вставить("ПараметрыАвторизацииАгента", Кластер_Агент.ПараметрыАвторизации());
 
 	ПараметрыКоманды.Вставить("Имя"                    , Имя);
 
@@ -207,7 +207,7 @@
 
 	ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);
 
-	КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Добавить"));
+	КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Добавить");
 
 	Если НЕ КодВозврата = 0 Тогда
 		ВызватьИсключение СтрШаблон("Ошибка добавления администратора агента ""%1"", КодВозврата = %2: %3",
@@ -240,14 +240,14 @@
 	ТекущееКоличество = Количество();
 
 	ПараметрыКоманды = Новый Соответствие();
-	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента", Кластер_Агент.СтрокаПодключения());
-	ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента", Кластер_Агент.СтрокаАвторизации());
+	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента"   , Кластер_Агент.СтрокаПодключения());
+	ПараметрыКоманды.Вставить("ПараметрыАвторизацииАгента", Кластер_Агент.ПараметрыАвторизации());
 
 	ПараметрыКоманды.Вставить("Имя"                    , Имя);
 
 	ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);
 
-	КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Удалить"));
+	КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить");
 
 	Если НЕ КодВозврата = 0 Тогда
 		ВызватьИсключение СтрШаблон("Ошибка удаления администратора агента ""%1"", КодВозврата = %2: %3",

src/Классы/АдминистраторыКластера.os

@@ -27,7 +27,7 @@
 	Кластер_Агент = АгентКластера;
 	Кластер_Владелец = Кластер;
 
-	ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.АдминистраторыКластера);
+	ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.АдминистраторыКластера);
 
 	Элементы = Новый ОбъектыКластера(ЭтотОбъект);
 
@@ -48,13 +48,13 @@
 	КонецЕсли;
 
 	ПараметрыКоманды = Новый Соответствие();
-	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента"  , Кластер_Агент.СтрокаПодключения());
-	ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации());
-	ПараметрыКоманды.Вставить("ИдентификаторКластера"    , Кластер_Владелец.Ид());
+	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента"     , Кластер_Агент.СтрокаПодключения());
+	ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации());
+	ПараметрыКоманды.Вставить("ИдентификаторКластера"       , Кластер_Владелец.Ид());
 
 	ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);
 
-	КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список"));
+	КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список");
 
 	Если НЕ КодВозврата = 0 Тогда
 		ВызватьИсключение СтрШаблон("Ошибка получения списка администраторов кластера, КодВозврата = %1: %2",
@@ -200,10 +200,10 @@
 	ТекущееКоличество = Количество();
 
 	ПараметрыКоманды = Новый Соответствие();
-	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента"  , Кластер_Агент.СтрокаПодключения());
-	ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента"  , Кластер_Агент.СтрокаАвторизации());
-	ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации());
-	ПараметрыКоманды.Вставить("ИдентификаторКластера"    , Кластер_Владелец.Ид());
+	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента"     , Кластер_Агент.СтрокаПодключения());
+	ПараметрыКоманды.Вставить("ПараметрыАвторизацииАгента"  , Кластер_Агент.ПараметрыАвторизации());
+	ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации());
+	ПараметрыКоманды.Вставить("ИдентификаторКластера"       , Кластер_Владелец.Ид());
 
 	ПараметрыКоманды.Вставить("Имя"                    , Имя);
 
@@ -213,7 +213,7 @@
 
 	ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);
 
-	КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Добавить"));
+	КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Добавить");
 
 	Если НЕ КодВозврата = 0 Тогда
 		ВызватьИсключение СтрШаблон("Ошибка добавления администратора кластера ""%1"", КодВозврата = %2: %3",
@@ -242,16 +242,15 @@
 	ТекущееКоличество = Количество();
 
 	ПараметрыКоманды = Новый Соответствие();
-	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента"  , Кластер_Агент.СтрокаПодключения());
-	ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента"  , Кластер_Агент.СтрокаАвторизации());
-	ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации());
-	ПараметрыКоманды.Вставить("ИдентификаторКластера"    , Кластер_Владелец.Ид());
+	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента"     , Кластер_Агент.СтрокаПодключения());
+	ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации());
+	ПараметрыКоманды.Вставить("ИдентификаторКластера"       , Кластер_Владелец.Ид());
 
 	ПараметрыКоманды.Вставить("Имя"                    , Имя);
 
 	ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);
 
-	КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Удалить"));
+	КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить");
 
 	Если НЕ КодВозврата = 0 Тогда
 		ВызватьИсключение СтрШаблон("Ошибка удаления администратора кластера ""%1"", КодВозврата = %2: %3",

src/Классы/АдминистрированиеКластера.os

@@ -47,7 +47,7 @@
 
 	Агент_ИсполнительКоманд = Новый ИсполнительКоманд(ВерсияИлиПутьКРАК);
 
-	ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Агент);
+	ПараметрыОбъекта = Новый КомандыОбъекта(ЭтотОбъект, Перечисления.РежимыАдминистрирования.Агент);
 
 	Если ЗначениеЗаполнено(Администратор) Тогда
 		Агент_Администратор = Новый Структура("Администратор, Пароль", Администратор, ПарольАдминистратора);
@@ -86,28 +86,13 @@
 //
 Функция СтрокаАвторизации() Экспорт
 
-	Если НЕ ТипЗнч(Агент_Администратор)  = Тип("Структура") Тогда
-		Возврат "";
-	КонецЕсли;
-
-	Если НЕ Агент_Администратор.Свойство("Администратор") Тогда
-		Возврат "";
-	КонецЕсли;
-
-	Если ПустаяСтрока(Агент_Администратор.Администратор) Тогда
-		Возврат "";
-	КонецЕсли;
+	ПараметрыАвторизации = Служебный.ПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Агенты,
+	                                                      Агент_Администратор);
 
-	СтрокаАвторизации = СтрШаблон("--agent-user=%1", Служебный.ОбернутьВКавычки(Агент_Администратор.Администратор));
-
-	Если НЕ ПустаяСтрока(Агент_Администратор.Пароль) Тогда
-		СтрокаАвторизации = СтрокаАвторизации + СтрШаблон(" --agent-pwd=%1", Агент_Администратор.Пароль);
-	КонецЕсли;
-
-	Возврат СтрокаАвторизации;
+	Возврат Служебный.СтрокаАвторизации(ПараметрыАвторизации);
 
 КонецФункции // СтрокаАвторизации()
-	
+
 // Процедура устанавливает параметры авторизации на агенте кластера 1С
 //   
 // Параметры:

src/Классы/Блокировки.os

@@ -37,7 +37,7 @@
 	Сеанс_Владелец       = Сеанс;
 	Соединение_Владелец  = Соединение;
 
-	ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Блокировки);
+	ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Блокировки);
 
 	Элементы = Новый ОбъектыКластера(ЭтотОбъект);
 
@@ -58,9 +58,9 @@
 	КонецЕсли;
 
 	ПараметрыКоманды = Новый Соответствие();
-	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента"  , Кластер_Агент.СтрокаПодключения());
-	ПараметрыКоманды.Вставить("ИдентификаторКластера"    , Кластер_Владелец.Ид());
-	ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации());
+	ПараметрыКоманды.Вставить("СтрокаПодключенияАгента"     , Кластер_Агент.СтрокаПодключения());
+	ПараметрыКоманды.Вставить("ИдентификаторКластера"       , Кластер_Владелец.Ид());
+	ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации());
 
 	Если НЕ ИБ_Владелец = Неопределено Тогда
 		ПараметрыКоманды.Вставить("ИдентификаторИБ", ИБ_Владелец.Ид());
@@ -76,7 +76,7 @@
 
 	ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);
 
-	КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список"));
+	КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список");
 
 	Если НЕ КодВозврата = 0 Тогда
 		ВызватьИсключение СтрШаблон("Ошибка получения списка блокировок, КодВозврата = %1: %2",