diff --git a/.travis.yml b/.travis.yml index f7010b6..00b8fca 100644 --- a/.travis.yml +++ b/.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: diff --git a/packagedef b/packagedef index 6d59d4b..c8185f6 100644 --- a/packagedef +++ b/packagedef @@ -1,6 +1,6 @@  Описание.Имя("irac") - .Версия("0.12.0") + .Версия("0.13.0") .Автор("Artem Kuznetsov") .АдресАвтора("ArKuznetsov@gmail.com") .Описание("Библиотека администрирования кластера серверов 1С") @@ -12,6 +12,7 @@ .ЗависитОт("1testrunner") .ЗависитОт("strings", "0.4.1") .ЗависитОт("1commands", "1.3.1") + .ЗависитОт("v8find") .ЗависитОт("v8runner") .ЗависитОт("1connector") .ВключитьФайл("src") diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\260\321\202\320\276\321\200\321\213\320\220\320\263\320\265\320\275\321\202\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\260\321\202\320\276\321\200\321\213\320\220\320\263\320\265\320\275\321\202\320\260.os" index 1622cd4..6642fc2 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\260\321\202\320\276\321\200\321\213\320\220\320\263\320\265\320\275\321\202\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\260\321\202\320\276\321\200\321\213\320\220\320\263\320\265\320\275\321\202\320\260.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", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\260\321\202\320\276\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\260\321\202\320\276\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" index 470de58..1c63822 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\260\321\202\320\276\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\260\321\202\320\276\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.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", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" index caa2df3..37f2066 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\220\320\264\320\274\320\270\320\275\320\270\321\201\321\202\321\200\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" @@ -47,7 +47,7 @@ Агент_ИсполнительКоманд = Новый ИсполнительКоманд(ВерсияИлиПутьКРАК); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Агент); + ПараметрыОбъекта = Новый КомандыОбъекта(ЭтотОбъект, Перечисления.РежимыАдминистрирования.Агент); Если ЗначениеЗаполнено(Администратор) Тогда Агент_Администратор = Новый Структура("Администратор, Пароль", Администратор, ПарольАдминистратора); @@ -86,28 +86,13 @@ // Функция СтрокаАвторизации() Экспорт - Если НЕ ТипЗнч(Агент_Администратор) = Тип("Структура") Тогда - Возврат ""; - КонецЕсли; - - Если НЕ Агент_Администратор.Свойство("Администратор") Тогда - Возврат ""; - КонецЕсли; - - Если ПустаяСтрока(Агент_Администратор.Администратор) Тогда - Возврат ""; - КонецЕсли; + ПараметрыАвторизации = Служебный.ПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Агенты, + Агент_Администратор); - СтрокаАвторизации = СтрШаблон("--agent-user=%1", Служебный.ОбернутьВКавычки(Агент_Администратор.Администратор)); - - Если НЕ ПустаяСтрока(Агент_Администратор.Пароль) Тогда - СтрокаАвторизации = СтрокаАвторизации + СтрШаблон(" --agent-pwd=%1", Агент_Администратор.Пароль); - КонецЕсли; - - Возврат СтрокаАвторизации; + Возврат Служебный.СтрокаАвторизации(ПараметрыАвторизации); КонецФункции // СтрокаАвторизации() - + // Процедура устанавливает параметры авторизации на агенте кластера 1С // // Параметры: diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\221\320\273\320\276\320\272\320\270\321\200\320\276\320\262\320\272\320\270.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\221\320\273\320\276\320\272\320\270\321\200\320\276\320\262\320\272\320\270.os" index b209672..123b32b 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\221\320\273\320\276\320\272\320\270\321\200\320\276\320\262\320\272\320\270.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\221\320\273\320\276\320\272\320\270\321\200\320\276\320\262\320\272\320\270.os" @@ -37,7 +37,7 @@ Сеанс_Владелец = Сеанс; Соединение_Владелец = Соединение; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Блокировки); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Блокировки); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -58,9 +58,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); Если НЕ ИБ_Владелец = Неопределено Тогда ПараметрыКоманды.Вставить("ИдентификаторИБ", ИБ_Владелец.Ид()); @@ -76,7 +76,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка блокировок, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\260\321\217\320\221\320\260\320\267\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\260\321\217\320\221\320\260\320\267\320\260.os" index 6c8d832..b8a7fbc 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\260\321\217\320\221\320\260\320\267\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\260\321\217\320\221\320\260\320\267\320\260.os" @@ -43,11 +43,11 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ИнформационныеБазы); - Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ИнформационныеБазы); + ИБ_ПолноеОписание = Ложь; Если ТипЗнч(ИБ) = Тип("Соответствие") Тогда @@ -141,15 +141,15 @@ Функция ПолучитьПолноеОписаниеИБ() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера" , Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторИБ" , Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииИБ" , СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторИБ" , Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииИБ" , ПараметрыАвторизации()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("ПолноеОписание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("ПолноеОписание"); Если НЕ КодВозврата = 0 Тогда Если Найти(Кластер_Агент.ВыводКоманды(Ложь), "Недостаточно прав пользователя") = 0 Тогда @@ -179,14 +179,14 @@ Функция ПолучитьОписаниеИБ() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера" , Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторИБ" , Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторИБ" , Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения описания информационной базы ""%1"": %2", @@ -204,37 +204,29 @@ КонецФункции // ПолучитьОписаниеИБ() -// Функция возвращает строку параметров авторизации для информационной базы 1С +// Функция возвращает структуру параметров авторизации для информационной базы 1С // // Возвращаемое значение: -// Строка - строка параметров авторизации на агенте кластера 1С +// Строка - структура параметров авторизации для информационной базы 1С // -Функция СтрокаАвторизации() Экспорт +Функция ПараметрыАвторизации() Экспорт - ПараметрыАдминистратора = Кластер_Владелец.ПолучитьАдминистратораИБ(Ид()); - - Если НЕ ТипЗнч(ПараметрыАдминистратора) = Тип("Структура") Тогда - Возврат ""; - КонецЕсли; - - Если НЕ ПараметрыАдминистратора.Свойство("Администратор") Тогда - Возврат ""; - КонецЕсли; - - Если ПустаяСтрока(ПараметрыАдминистратора.Администратор) Тогда - Возврат ""; - КонецЕсли; + Возврат Служебный.ПараметрыАвторизации(Перечисления.РежимыАдминистрирования.ИнформационныеБазы, + Кластер_Владелец.ПолучитьАдминистратораИБ(Ид())); - СтрокаАвторизации = СтрШаблон("--infobase-user=%1", Служебный.ОбернутьВКавычки(ПараметрыАдминистратора.Администратор)); +КонецФункции // ПараметрыАвторизации() - Если НЕ ПустаяСтрока(ПараметрыАдминистратора.Пароль) Тогда - СтрокаАвторизации = СтрокаАвторизации + СтрШаблон(" --infobase-pwd=%1", ПараметрыАдминистратора.Пароль); - КонецЕсли; - - Возврат СтрокаАвторизации; +// Функция возвращает строку параметров авторизации для информационной базы 1С +// +// Возвращаемое значение: +// Строка - строка параметров авторизации для информационной базы 1С +// +Функция СтрокаАвторизации() Экспорт -КонецФункции // СтрокаАвторизации() + Возврат Служебный.СтрокаАвторизации(ПараметрыАвторизации()); +КонецФункции // СтрокаАвторизации() + // Процедура устанавливает параметры авторизации для информационной базы 1С // // Параметры: @@ -385,12 +377,12 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторИБ" , Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииИБ" , СтрокаАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторИБ" , Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииИБ" , ПараметрыАвторизации()); Для Каждого ТекЭлемент Из ПараметрыИБ Цикл ПараметрыКоманды.Вставить(ТекЭлемент.Ключ, ТекЭлемент.Значение); @@ -398,7 +390,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка изменения информационной базы ""%1"": %2", @@ -421,12 +413,12 @@ Процедура Удалить(ДействияСБазойСУБД = "") Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторИБ" , Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииИБ" , СтрокаАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторИБ" , Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииИБ" , ПараметрыАвторизации()); Если ДействияСБазойСУБД = Перечисления.ДействияСБазойСУБДПриУдалении.Очистить Тогда ПараметрыКоманды.Вставить("ОчиститьБД", Истина); @@ -437,7 +429,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Удалить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка удаления информационной базы ""%1"": %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\321\213\320\265\320\221\320\260\320\267\321\213.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\321\213\320\265\320\221\320\260\320\267\321\213.os" index b4d232a..d900227 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\321\213\320\265\320\221\320\260\320\267\321\213.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\321\213\320\265\320\221\320\260\320\267\321\213.os" @@ -27,7 +27,7 @@ Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ИнформационныеБазы); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ИнформационныеБазы); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -48,13 +48,13 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка информационных баз, КодВозврата = %1: %2", @@ -125,7 +125,8 @@ // // Возвращаемое значение: // Соответствие - список информационных баз -// <имя поля объекта> - Массив(Соответствие), Соответствие - список информационных баз или следующий уровень +// <имя поля объекта> - Массив(Соответствие), - список информационных баз +// Соответствие или следующий уровень // Функция ИерархическийСписок(Знач ПоляИерархии, ОбновитьПринудительно = Ложь, ЭлементыКакСоответствия = Ложь) Экспорт @@ -190,9 +191,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("Имя" , Имя); ПараметрыКоманды.Вставить("Локализация" , Локализация); @@ -204,7 +205,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Добавить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Добавить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка добавления информационной базы ""%1"": %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\232\320\276\320\274\320\260\320\275\320\264.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\232\320\276\320\274\320\260\320\275\320\264.os" index 5e8044d..f961cf1 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\232\320\276\320\274\320\260\320\275\320\264.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\232\320\276\320\274\320\260\320\275\320\264.os" @@ -7,6 +7,7 @@ // Codebase: https://github.com/ArKuznetsov/irac/ // ---------------------------------------------------------- #Использовать strings +#Использовать v8find Перем ЭтоWindows; Перем ВыводКоманды; @@ -82,15 +83,15 @@ Если СпособПодключения = Перечисления.СпособыПодключения.Локально Тогда ШаблонПроверки = "8."; - Если Лев(ПутьКУтилитеАдминистрирования, СтрДлина(ШаблонПроверки)) = ШаблонПроверки Тогда - ПутьКУтилитеАдминистрирования = НайтиУтилитуАдминистрирования(ВерсияИлиПутьКУтилитеАдминистрирования); + Если Лев(ВерсияИлиПутьКУтилитеАдминистрирования, СтрДлина(ШаблонПроверки)) = ШаблонПроверки Тогда + ПутьКУтилитеАдминистрирования = Платформа1С.ПутьКRAC(ВерсияИлиПутьКУтилитеАдминистрирования); + КонецЕсли; - ФайлУтилитыАдминистрирования = Новый Файл(ПутьКУтилитеАдминистрирования); - Если Не ФайлУтилитыАдминистрирования.Существует() Тогда - ВызватьИсключение "Нельзя установить несуществующий путь к утилите RAC: " + ФайлУтилитыАдминистрирования.ПолноеИмя; - КонецЕсли; + ФайлУтилитыАдминистрирования = Новый Файл(ПутьКУтилитеАдминистрирования); + Если Не ФайлУтилитыАдминистрирования.Существует() Тогда + ВызватьИсключение "Нельзя установить несуществующий путь к утилите RAC: " + ФайлУтилитыАдминистрирования.ПолноеИмя; КонецЕсли; - + КонецЕсли; ВерсияУтилитыАдминистрирования = ПолучитьВерсиюУтилитыАдминистрирования(ПутьКУтилитеАдминистрирования); @@ -120,10 +121,11 @@ КонецФункции // ПутьКУтилитеАдминистрирования() // Функция выполняет запуск утилиты администрирования кластера 1С (rac) с указанными параметрами -// +// // Параметры: -// ПараметрыКоманды - Масссив, Строка - список параметров запуска утилиты администрирования кластера 1С (rac) -// +// ПараметрыКоманды - Масссив, - список параметров запуска +// Строка утилиты администрирования кластера 1С (rac) +// // Возвращаемое значение: // Строка - вывод команды // @@ -177,251 +179,110 @@ #КонецОбласти // ПрограммныйИнтерфейс -#Область ФункцииПоискаУтилитыАдминистрирования +#Область ВыполнениеКомандСистемы -// Функция ищет существующие каталоги с установленной платформой 1С по списку возможных каталогов установки -// соответствующие переданной маске версии -// +// Функция выполняет запуск утилиты администрирования кластера 1С (rac) с указанными параметрами +// // Параметры: -// КаталогиУстановкиПлатформы - Массив - возможные каталоги установки платформы -// Версия - Строка - маска версии платформы вида 8.*, 8.3.*, 8.3.5.*, 8.3.10.2561 -// +// ПараметрыКоманды - Масссив - список параметров запуска утилиты администрирования кластера 1С (rac) +// // Возвращаемое значение: -// Массив - массив каталогов с установленной платформой 1С +// Строка - вывод команды // -Функция НайтиПодкаталоги1СПоМаскеВерсии(КаталогиУстановкиПлатформы, Знач Версия) +Функция ВыполнитьКомандуЛокально(Знач ПараметрыКоманды) - МассивКаталогов1С = Новый Массив; - Для Каждого ВозможныйПуть Из КаталогиУстановкиПлатформы Цикл - - Лог.Отладка("Выполняю попытку поиска версии в каталоге " + ВозможныйПуть); - - МассивФайлов = НайтиФайлы(ВозможныйПуть, Версия + "*"); - Если МассивФайлов.Количество() = 0 Тогда - Лог.Отладка("Не найдено ни одного каталога с версией в %1", ВозможныйПуть); - Продолжить; - КонецЕсли; - Если МассивКаталогов1С = Неопределено Тогда - МассивКаталогов1С = МассивФайлов; - Продолжить; + Приложение = Служебный.ОбернутьВКавычки(ПутьКУтилитеАдминистрирования()); + + СтрокаДляЛога = ""; + + Для Каждого Параметр Из ПараметрыКоманды Цикл + Если Найти(Параметр, "-pwd") = 0 Тогда + СтрокаДляЛога = СтрокаДляЛога + " " + Параметр; КонецЕсли; - Для каждого Подкаталог1С Из МассивФайлов Цикл - ФайлУтилитыАдминистрирования = Новый Файл(ОбъединитьПути(Подкаталог1С.ПолноеИмя, "bin", "rac.exe")); - Если НЕ ФайлУтилитыАдминистрирования.Существует() Тогда - Лог.Отладка("Пропускаю каталог 1С %1", Подкаталог1С.Имя); - Продолжить; - КонецЕсли; - ОписаниеКаталога = Новый Структура("Версия, ФайлУтилитыАдминистрирования", - Подкаталог1С.Имя, - ФайлУтилитыАдминистрирования); - МассивКаталогов1С.Добавить(ОписаниеКаталога); - Лог.Отладка("Нашел платформу 1С %1", Подкаталог1С.Имя); - КонецЦикла; КонецЦикла; - Возврат МассивКаталогов1С; + КодВозврата = 0; -КонецФункции // НайтиПодкаталоги1СПоМаскеВерсии() + Лог.Отладка("%1 %2", Приложение, СтрокаДляЛога); -// Процедура добавляет в массив расположений пути расположения платформы 1С из файла настройки платформы 1С -// -// Параметры: -// ИмяФайла - Строка - путь к файлу настройки платформы 1С -// МассивПутей - Массив - массив расположений платформы 1С -// -Процедура ДополнитьМассивРасположенийИзКонфигурационногоФайла(Знач ИмяФайла, Знач МассивПутей) - - ФайлКонфига = Новый Файл(ИмяФайла); - Если Не ФайлКонфига.Существует() Тогда - Лог.Отладка("Конфигурационный файл " + ИмяФайла + " не найден."); - Возврат; - КонецЕсли; + Команда = Новый Команда; - Лог.Отладка("Читаю конфигурационный файл " + ИмяФайла + "."); - Конфиг = Новый КонфигурацияСтартера; - Конфиг.Открыть(ИмяФайла); + Команда.УстановитьКоманду(Приложение); + Команда.УстановитьКодировкуВывода(КодировкаТекста.OEM); + Команда.ДобавитьПараметры(ПараметрыКоманды); + Команда.УстановитьИсполнениеЧерезКомандыСистемы(Ложь); + Команда.ПоказыватьВыводНемедленно(Ложь); - Значения = Конфиг.ПолучитьСписок("InstalledLocation"); - Если Значения <> Неопределено Тогда - Для Каждого Путь Из Значения Цикл - МассивПутей.Добавить(Путь); - КонецЦикла; - КонецЕсли; + КодВозврата = Команда.Исполнить(); -КонецПроцедуры // ДополнитьМассивРасположенийИзКонфигурационногоФайла() + ВыводКоманды = Команда.ПолучитьВывод(); -// Процедура добавляет в массив расположений стандартные пути расположения платформы 1С -// -// Параметры: -// МассивПутей - Массив - массив расположений платформы 1С -// -Процедура ДополнитьМассивРасположенийИзСтандартныхПутей(Знач МассивПутей) - - КаталогПрограмм_86 = "C:" + "\Program Files (x86)\"; - КаталогПрограмм_64 = "C:" + "\Program Files\"; - - ФайлProgramFiles = Новый Файл(КаталогПрограмм_86); - Если Не ФайлProgramFiles.Существует() Тогда - ФайлProgramFiles = Новый Файл(КаталогПрограмм_64); - Если Не ФайлProgramFiles.Существует() Тогда - ВызватьИсключение "Не обнаружено установленных версий платформы 1С"; - КонецЕсли; + Если КодВозврата = 0 Тогда + Лог.Отладка("Код возврата равен %1: %2", КодВозврата, ВыводКоманды()); + Иначе + Лог.Предупреждение("Получен ненулевой код возврата %1: %2", КодВозврата, ВыводКоманды()); КонецЕсли; - - МассивПутей.Добавить(ОбъединитьПути(ФайлProgramFiles.ПолноеИмя, "1Cv8")); - -КонецПроцедуры // ДополнитьМассивРасположенийИзСтандартныхПутей() -// Функция возвращает массив возможных путей расположения платформы 1С -// -// Возвращаемое значение: -// Массив - массив расположений платформы 1С -// -Функция СобратьВозможныеКаталогиУстановкиПлатформыWindows() - - // Ищем в расположениях для Vista и выше. - // Желающие поддержать пути в Windows XP - welcome - КаталогВсеПользователи = ПолучитьПеременнуюСреды("ALLUSERSPROFILE"); - КаталогТекущегоПользователя = ПолучитьПеременнуюСреды("APPDATA"); - - МассивПутей = Новый Массив; - СуффиксРасположения = "1C\1CEStart\1CEStart.cfg"; - - ОбщийКонфиг = ОбъединитьПути(КаталогВсеПользователи, СуффиксРасположения); - ДополнитьМассивРасположенийИзКонфигурационногоФайла(ОбщийКонфиг, МассивПутей); - - ПользовательскийКонфиг = ОбъединитьПути(КаталогТекущегоПользователя, СуффиксРасположения); - ДополнитьМассивРасположенийИзКонфигурационногоФайла(ПользовательскийКонфиг, МассивПутей); - - Если МассивПутей.Количество() = 0 Тогда - Лог.Отладка("В конфигах стартера не найдены пути установки. Пробую стандартные пути наугад."); - ДополнитьМассивРасположенийИзСтандартныхПутей(МассивПутей); - КонецЕсли; + Возврат ВыводКоманды(); - Возврат МассивПутей; - -КонецФункции // СобратьВозможныеКаталогиУстановкиПлатформыWindows() +КонецФункции // ВыполнитьКомандуЛокально() -// Функция возвращает путь к утилите администрирования кластера 1С (rac) в ОС Windows, соответствующей маске версии +// Функция выполняет вызов удаленной утилиты администрирования кластера 1С +// с использованием HTTP-сервиса (hiRAC) с указанными параметрами // // Параметры: -// Версия - Строка - маска версии платформы вида 8.*, 8.3.*, 8.3.5.*, 8.3.10.2561 -// +// ПараметрыКоманды - Масссив - список параметров запуска утилиты администрирования кластера 1С (rac) +// // Возвращаемое значение: -// Строка - путь к утилите администрирования кластера 1С (rac) +// Строка - вывод команды // -Функция НайтиУтилитуАдминистрированияWindows(Знач Версия) - - КаталогиУстановкиПлатформы = СобратьВозможныеКаталогиУстановкиПлатформыWindows(); - - МассивКаталогов1С = НайтиПодкаталоги1СПоМаскеВерсии(КаталогиУстановкиПлатформы, Версия); - - УтилитаАдминистрирования = Неопределено; +Функция ВыполнитьКомандуУдаленно(Знач ПараметрыКоманды) - МассивКаталоговВерсий = Новый Массив; - Для Каждого ОписаниеКаталога Из МассивКаталогов1С Цикл - ПравыйСимвол = Прав(ОписаниеКаталога.Версия, 1); - Если ПравыйСимвол < "0" ИЛИ ПравыйСимвол > "9" Тогда - Продолжить; + СтрокаКоманды = ""; + Для Каждого ТекПараметр Из ПараметрыКоманды Цикл + Если ЗначениеЗаполнено(СтрокаКоманды) Тогда + СтрокаКоманды = СтрокаКоманды + " "; КонецЕсли; - МассивКаталоговВерсий.Добавить(ОписаниеКаталога); + СтрокаКоманды = СтрокаКоманды + ТекПараметр; КонецЦикла; - Если МассивКаталоговВерсий.Количество() > 0 Тогда - ОписаниеМаксВерсии = МассивКаталоговВерсий[0]; - Для Сч = 1 По МассивКаталоговВерсий.ВГраница() Цикл - Если СтроковыеФункции.СравнитьВерсии(МассивКаталоговВерсий[Сч].Версия, ОписаниеМаксВерсии.Версия) > 0 Тогда - ОписаниеМаксВерсии = МассивКаталоговВерсий[Сч]; - КонецЕсли; - КонецЦикла; - УтилитаАдминистрирования = ОписаниеМаксВерсии.ФайлУтилитыАдминистрирования; - ВерсияУтилитыАдминистрирования = ОписаниеМаксВерсии.Версия; - Лог.Отладка("Утилита RAC: %1", УтилитаАдминистрирования.ПолноеИмя); + Параметры = Новый Структура(); + Параметры.Вставить("version", ВерсияУтилитыАдминистрирования()); + Параметры.Вставить("cmd", СтрокаКоманды); - КонецЕсли; + Ответ = КоннекторHTTP.Get(ПутьКУтилитеАдминистрирования, Параметры).Json(); - Если УтилитаАдминистрирования = Неопределено Тогда - ВызватьИсключение "Не найден путь к платформе 1С <" + Версия + ">"; - КонецЕсли; - - Если Не УтилитаАдминистрирования.Существует() Тогда - ВызватьИсключение СтрШаблон("Ошибка определения версии платформы. Файл <%1> не существует", - УтилитаАдминистрирования.ПолноеИмя); - КонецЕсли; - - Возврат УтилитаАдминистрирования.ПолноеИмя; - -КонецФункции // НайтиУтилитуАдминистрированияWindows() + КодВозврата = Ответ["КодВозврата"]; + ВыводКоманды = Ответ["ВыводКоманды"]; -// Функция возвращает путь к утилите администрирования кластера 1С (rac) в ОС Linux, соответствующей маске версии -// -// Параметры: -// Версия - Строка - маска версии платформы вида 8.*, 8.3.*, 8.3.5.*, 8.3.10.2561 -// -// Возвращаемое значение: -// Строка - путь к утилите администрирования кластера 1С (rac) -// -Функция НайтиУтилитуАдминистрированияLinux(Знач Версия) - - // help wanted: на Линукс конфиг стартера лежит в ~/.1C/1cestart. - КорневойПуть1С = ОбъединитьПути("/opt", "1C", "v8.3"); - КаталогУстановки = Новый Файл(ОбъединитьПути(КорневойПуть1С, "i386")); - Если НЕ КаталогУстановки.Существует() Тогда - КаталогУстановки = Новый Файл(ОбъединитьПути(КорневойПуть1С, "x86_64")); - КонецЕсли; - - // Определим версию приложения - УтилитаАдминистрирования = Новый Файл(ОбъединитьПути(КаталогУстановки.ПолноеИмя, "rac")); - Попытка - ВерсияУтилитыАдминистрирования = ПолучитьВерсиюУтилитыАдминистрирования(УтилитаАдминистрирования.ПолноеИмя); - Исключение - Лог.Предупреждение("Не удалось прочитать версию 1С %1, %2. - |" + ОписаниеОшибки(), Версия, УтилитаАдминистрирования.ПолноеИмя); - КонецПопытки; + Возврат ВыводКоманды(); - Если Не УтилитаАдминистрирования.Существует() Тогда - ВызватьИсключение СтрШаблон("Ошибка определения версии платформы. Файл <%1> не существует", - УтилитаАдминистрирования.ПолноеИмя); - КонецЕсли; +КонецФункции // ВыполнитьКомандуУдаленно() - Возврат УтилитаАдминистрирования.ПолноеИмя; +#КонецОбласти // ВыполнениеКомандСистемы -КонецФункции // НайтиУтилитуАдминистрированияLinux() +#Область СлужебныеПроцедурыИФункции -// Функция возвращает путь к утилите администрирования кластера 1С (rac), соответствующей маске версии -// +// Функция возвращает способ подключения к сервису администрирования кластера 1С +// по указанному адресу +// // Параметры: -// Версия - Строка - маска версии платформы вида 8.*, 8.3.*, 8.3.5.*, 8.3.10.2561 +// ВерсияИлиПутьКУтилитеАдминистрирования - Строка - маска версии 1С, путь к утилите RAC +// или адрес сервиса hiRAC // // Возвращаемое значение: -// Строка - путь к утилите администрирования кластера 1С (rac) +// Строка - способ подключения к сервису администрирования кластера 1С // -Функция НайтиУтилитуАдминистрирования(Знач Версия) - - ШаблонПроверки = "8."; - Если Лев(Версия, СтрДлина(ШаблонПроверки)) <> ШаблонПроверки Тогда - ВызватьИсключение "Неверная версия платформы <" + Версия + ">"; - КонецЕсли; - - КоличествоЦифрВерсии = 2; - - СписокСтрок = СтрРазделить(Версия, "."); - Если СписокСтрок.Количество() < КоличествоЦифрВерсии Тогда - ВызватьИсключение "Маска версии платформы должна содержать, - |как минимум, минорную и мажорную версию, т.е. Maj.Min[.Release][.Build]"; - КонецЕсли; - - Если ЭтоWindows Тогда - - Возврат НайтиУтилитуАдминистрированияWindows(Версия); +Функция СпособПодключенияВАдресе(ВерсияИлиПутьКУтилитеАдминистрирования) + Если ВРег(Лев(ВерсияИлиПутьКУтилитеАдминистрирования, "5")) = ВРег("http:") + ИЛИ ВРег(Лев(ВерсияИлиПутьКУтилитеАдминистрирования, "6")) = ВРег("https:") Тогда + Возврат Перечисления.СпособыПодключения.Удаленно; Иначе - - Возврат НайтиУтилитуАдминистрированияLinux(Версия); - + Возврат Перечисления.СпособыПодключения.Локально; КонецЕсли; - -КонецФункции // НайтиУтилитуАдминистрирования() + +КонецФункции // СпособПодключенияВАдресе() // Функция получает версию локальной утилиты RAC по переданному пути // @@ -486,110 +347,4 @@ КонецФункции // ПолучитьВерсиюУтилитыАдминистрирования() -#КонецОбласти // ФункцииПоискаУтилитыАдминистрирования - -#Область ВыполнениеКомандСистемы - -// Функция выполняет запуск утилиты администрирования кластера 1С (rac) с указанными параметрами -// -// Параметры: -// ПараметрыКоманды - Масссив - список параметров запуска утилиты администрирования кластера 1С (rac) -// -// Возвращаемое значение: -// Строка - вывод команды -// -Функция ВыполнитьКомандуЛокально(Знач ПараметрыКоманды) - - Приложение = Служебный.ОбернутьВКавычки(ПутьКУтилитеАдминистрирования()); - - СтрокаДляЛога = ""; - - Для Каждого Параметр Из ПараметрыКоманды Цикл - Если Найти(Параметр, "-pwd") = 0 Тогда - СтрокаДляЛога = СтрокаДляЛога + " " + Параметр; - КонецЕсли; - КонецЦикла; - - КодВозврата = 0; - - Лог.Отладка("%1 %2", Приложение, СтрокаДляЛога); - - Команда = Новый Команда; - - Команда.УстановитьКоманду(Приложение); - Команда.УстановитьКодировкуВывода(КодировкаТекста.OEM); - Команда.ДобавитьПараметры(ПараметрыКоманды); - Команда.УстановитьИсполнениеЧерезКомандыСистемы(Ложь); - Команда.ПоказыватьВыводНемедленно(Ложь); - - КодВозврата = Команда.Исполнить(); - - ВыводКоманды = Команда.ПолучитьВывод(); - - Если КодВозврата = 0 Тогда - Лог.Отладка("Код возврата равен %1: %2", КодВозврата, ВыводКоманды()); - Иначе - Лог.Предупреждение("Получен ненулевой код возврата %1: %2", КодВозврата, ВыводКоманды()); - КонецЕсли; - - Возврат ВыводКоманды(); - -КонецФункции // ВыполнитьКомандуЛокально() - -// Функция выполняет вызов удаленной утилиты администрирования кластера 1С через HTTP-сервис (hiRAC) с указанными параметрами -// -// Параметры: -// ПараметрыКоманды - Масссив - список параметров запуска утилиты администрирования кластера 1С (rac) -// -// Возвращаемое значение: -// Строка - вывод команды -// -Функция ВыполнитьКомандуУдаленно(Знач ПараметрыКоманды) - - СтрокаКоманды = ""; - Для Каждого ТекПараметр Из ПараметрыКоманды Цикл - Если ЗначениеЗаполнено(СтрокаКоманды) Тогда - СтрокаКоманды = СтрокаКоманды + " "; - КонецЕсли; - СтрокаКоманды = СтрокаКоманды + ТекПараметр; - КонецЦикла; - - Параметры = Новый Структура(); - Параметры.Вставить("version", ВерсияУтилитыАдминистрирования()); - Параметры.Вставить("cmd", СтрокаКоманды); - - Ответ = КоннекторHTTP.Get(ПутьКУтилитеАдминистрирования, Параметры).Json(); - - КодВозврата = Ответ["КодВозврата"]; - ВыводКоманды = Ответ["ВыводКоманды"]; - - Возврат ВыводКоманды(); - -КонецФункции // ВыполнитьКомандуУдаленно() - -#КонецОбласти // ВыполнениеКомандСистемы - -#Область СлужебныеПроцедурыИФункции - -// Функция возвращает способ подключения к сервису администрирования кластера 1С -// по указанному адресу -// -// Параметры: -// ВерсияИлиПутьКУтилитеАдминистрирования - Строка - маска версии 1С, путь к утилите RAC -// или адрес сервиса hiRAC -// -// Возвращаемое значение: -// Строка - способ подключения к сервису администрирования кластера 1С -// -Функция СпособПодключенияВАдресе(ВерсияИлиПутьКУтилитеАдминистрирования) - - Если ВРег(Лев(ВерсияИлиПутьКУтилитеАдминистрирования, "5")) = ВРег("http:") - ИЛИ ВРег(Лев(ВерсияИлиПутьКУтилитеАдминистрирования, "6")) = ВРег("https:") Тогда - Возврат Перечисления.СпособыПодключения.Удаленно; - Иначе - Возврат Перечисления.СпособыПодключения.Локально; - КонецЕсли; - -КонецФункции // СпособПодключенияВАдресе() - #КонецОбласти // СлужебныеПроцедурыИФункции diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\273\320\260\321\201\321\202\320\265\321\200.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\273\320\260\321\201\321\202\320\265\321\200.os" index d41088a..8071ecd 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\273\320\260\321\201\321\202\320\265\321\200.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\273\320\260\321\201\321\202\320\265\321\200.os" @@ -51,10 +51,10 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Кластеры); - Кластер_Агент = АгентКластера; + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Кластеры); + Если ТипЗнч(Кластер) = Тип("Соответствие") Тогда Кластер_Ид = Кластер["cluster"]; ЗаполнитьПараметрыКластера(Кластер); @@ -108,7 +108,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + ПараметрыОбъекта.ВыполнитьКоманду("Описание"); МассивРезультатов = Кластер_Агент.ВыводКоманды(); @@ -152,37 +152,29 @@ КонецФункции // ПараметрыОбъекта() -// Функция возвращает строку параметров авторизации в кластере 1С +// Функция возвращает структуру параметров авторизации в кластере 1С // // Возвращаемое значение: -// Строка - строка параметров авторизации в кластере 1С +// Строка - структура параметров авторизации в кластере 1С // -Функция СтрокаАвторизации() Экспорт +Функция ПараметрыАвторизации() Экспорт - ПараметрыАдминистратора = Кластер_Агент.ПолучитьАдминистратораКластера(Ид()); + Возврат Служебный.ПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Кластеры, + Кластер_Агент.ПолучитьАдминистратораКластера(Ид())); - Если НЕ ТипЗнч(ПараметрыАдминистратора) = Тип("Структура") Тогда - Возврат ""; - КонецЕсли; - - Если НЕ ПараметрыАдминистратора.Свойство("Администратор") Тогда - Возврат ""; - КонецЕсли; - - Если ПустаяСтрока(ПараметрыАдминистратора.Администратор) Тогда - Возврат ""; - КонецЕсли; +КонецФункции // ПараметрыАвторизации() - СтрокаАвторизации = СтрШаблон("--cluster-user=%1", Служебный.ОбернутьВКавычки(ПараметрыАдминистратора.Администратор)); +// Функция возвращает строку параметров авторизации в кластере 1С +// +// Возвращаемое значение: +// Строка - строка параметров авторизации в кластере 1С +// +Функция СтрокаАвторизации() Экспорт - Если Не ПустаяСтрока(ПараметрыАдминистратора.Пароль) Тогда - СтрокаАвторизации = СтрокаАвторизации + СтрШаблон(" --cluster-pwd=%1", ПараметрыАдминистратора.Пароль); - КонецЕсли; - - Возврат СтрокаАвторизации; + Возврат Служебный.СтрокаАвторизации(ПараметрыАвторизации()); КонецФункции // СтрокаАвторизации() - + // Процедура устанавливает параметры авторизации в кластере 1С // // Параметры: @@ -473,9 +465,10 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента", Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента", Кластер_Агент.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииАгента" , Кластер_Агент.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", ЭтотОбъект.ПараметрыАвторизации()); Если ЗначениеЗаполнено(Имя) Тогда ПараметрыКоманды.Вставить("Имя" , Имя); @@ -487,7 +480,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь)); diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\273\320\260\321\201\321\202\320\265\321\200\321\213.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\273\320\260\321\201\321\202\320\265\321\200\321\213.os" index 52ccd9d..b127c9d 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\273\320\260\321\201\321\202\320\265\321\200\321\213.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\273\320\260\321\201\321\202\320\265\321\200\321\213.os" @@ -24,7 +24,7 @@ Кластер_Агент = АгентКластера; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Кластеры); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Кластеры); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -49,7 +49,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + ПараметрыОбъекта.ВыполнитьКоманду("Список"); МассивРезультатов = Кластер_Агент.ВыводКоманды(); @@ -187,11 +187,11 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента", Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента", Кластер_Агент.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("АдресСервера" , АдресСервера); - ПараметрыКоманды.Вставить("ПортСервера" , ПортСервера); - ПараметрыКоманды.Вставить("Имя" , Имя); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииАгента", Кластер_Агент.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("АдресСервера" , АдресСервера); + ПараметрыКоманды.Вставить("ПортСервера" , ПортСервера); + ПараметрыКоманды.Вставить("Имя" , Имя); Для Каждого ТекЭлемент Из ПараметрыКластера Цикл ПараметрыКоманды.Вставить(ТекЭлемент.Ключ, ТекЭлемент.Значение); @@ -199,7 +199,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Добавить")); + ПараметрыОбъекта.ВыполнитьКоманду("Добавить"); Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь)); @@ -215,13 +215,13 @@ Процедура Удалить(Кластер) Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Получить(Кластер).Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Получить(Кластер).СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Получить(Кластер).Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Получить(Кластер).ПараметрыАвторизации()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Удалить")); + ПараметрыОбъекта.ВыполнитьКоманду("Удалить"); Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь)); diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\276\320\274\320\260\320\275\320\264\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\276\320\274\320\260\320\275\320\264\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\260.os" index 2fddeb8..c4530e7 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\276\320\274\320\260\320\275\320\264\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\232\320\276\320\274\320\260\320\275\320\264\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\260.os" @@ -9,28 +9,33 @@ // Класс хранящий структуру свойств и команд объекта указанного типа +Перем Кластер_Агент; // УправлениеКластером1С - объект управления кластером 1С Перем ТипОбъекта; // структура описания типа объектов (Кластер, Сервер, ИБ и т.п.) Перем ОписаниеСвойств; // структура описания свойств объекта Перем ОписаниеКоманд; // структура описания команд объекта Перем ПараметрыЗапуска; // массив параметров запуска команды утилиты RAC +Перем КэшПараметровАвторизации; // соответствие, содержащее параметры авторизации Перем ЗначенияПараметров; // значения именованых параметров объекта Перем Лог; -#Область ПрограммныйИнтерфейс +#Область Инициализация // Конструктор // // Параметры: -// ИмяТипаОбъекта - Строка - имя типа объекта для которого создается структура параметров -// ЗначенияПараметровКоманд - Структура - список параметров команд: -// Ключ - имя параметра -// Значение - значение параметра +// АгентКластера - АгентКластера - ссылка на объект управления кластером 1С +// ИмяТипаОбъекта - Строка - имя типа объекта для которого создается структура параметров +// ЗначенияПараметровКоманд - Структура - список параметров команд: +// Ключ - имя параметра +// Значение - значение параметра // -Процедура ПриСозданииОбъекта(ИмяТипаОбъекта, ЗначенияПараметровКоманд = Неопределено) +Процедура ПриСозданииОбъекта(АгентКластера, ИмяТипаОбъекта, ЗначенияПараметровКоманд = Неопределено) Лог = Служебный.Лог(); + Кластер_Агент = АгентКластера; + ТипОбъекта = ТипыОбъектовКластера.ТипОбъекта(ИмяТипаОбъекта); ОписаниеСвойств = ТипыОбъектовКластера.СвойстваОбъекта(ИмяТипаОбъекта); @@ -41,14 +46,18 @@ КонецПроцедуры // ПриСозданииОбъекта() +#КонецОбласти // Инициализация + +#Область ПрограммныйИнтерфейс + // Процедура устанавливает значения параметров команд // // Параметры: -// ЗначенияПараметровКоманд - Структура - список параметров команд: -// *<имя параметра> - Произвольный - значение параметра команды -// Очистить - Булево - Истина - очистить значения параметров перед заполнением -// Ложь - добавить параметры к существующим -// (одноименные будут перезаполнены) +// ЗначенияПараметровКоманд - Соответствие - список параметров команд: +// *<имя параметра> - Произвольный - значение параметра команды +// Очистить - Булево - Истина - очистить значения параметров перед заполнением +// Ложь - добавить параметры к существующим +// (одноименные будут перезаполнены) // Процедура УстановитьЗначенияПараметровКоманд(Знач ЗначенияПараметровКоманд, Знач Очистить = Ложь) Экспорт @@ -100,9 +109,8 @@ // Функция ПараметрыКоманды(Знач ИмяКоманды) Экспорт - Если ТипЗнч(ПараметрыЗапуска) = Тип("Массив") Тогда - ПараметрыЗапуска.Очистить(); - КонецЕсли; + ПараметрыЗапуска = Новый Массив(); + КэшПараметровАвторизации = Новый Соответствие(); Команда = ОписаниеКоманд[ИмяКоманды]; @@ -120,12 +128,16 @@ КонецЕсли; Если АвторизацияАгента Тогда - ДобавитьПараметрПоИмени("СтрокаАвторизацииАгента"); + ДобавитьПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Агенты, + "ПараметрыАвторизацииАгента", + "agent"); КонецЕсли; Если Команда.Кластер Тогда ДобавитьПараметрПоШаблону("--cluster=%1", "ИдентификаторКластера", Истина); - ДобавитьПараметрПоИмени("СтрокаАвторизацииКластера"); + ДобавитьПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Кластеры, + "ПараметрыАвторизацииКластера", + ЗначенияПараметров["ИдентификаторКластера"]); КонецЕсли; Если ТипОбъекта.Свойство("Владелец") И Команда.ДочернийРежимАдминистрирования Тогда @@ -142,14 +154,28 @@ ДобавитьПараметрКоманды(ТекПараметр); КонецЦикла; - Если Команда.ЗначенияПолей Тогда - ДобавитьПрочиеПараметрыКоманды(Команда.Имя); + Если Команда.Свойство("ЗначенияПолей") И ЗначениеЗаполнено(Команда.ЗначенияПолей) Тогда + ДобавитьПрочиеПараметрыКоманды(Команда.ЗначенияПолей); КонецЕсли; + Для Каждого ТекЭлемент Из КэшПараметровАвторизации Цикл + Для й = 0 По ПараметрыЗапуска.ВГраница() Цикл + ПараметрыЗапуска[й] = СтрЗаменить(ПараметрыЗапуска[й], + ТекЭлемент.Ключ, + Служебный.ОбернутьВКавычки(ТекЭлемент.Значение)); + КонецЦикла; + КонецЦикла; + Возврат ПараметрыЗапуска; КонецФункции // ПараметрыКоманды() +Функция ВыполнитьКоманду(Знач ИмяКоманды) Экспорт + + Возврат Кластер_Агент.ВыполнитьКоманду(ПараметрыКоманды(ИмяКоманды)); + +КонецФункции // ВыполнитьКоманду() + // Функция возвращает описание текущего типа объекта // // Возвращаемое значение: @@ -197,7 +223,9 @@ Обязательный = Параметр.Обязательный; КонецЕсли; - Если Параметр.Свойство("Шаблон") Тогда + Если Параметр.Свойство("Авторизация") Тогда + ДобавитьПараметрыАвторизации(Параметр.Авторизация, Параметр.Параметр, ЗначенияПараметров[Параметр.ПараметрИд]); + ИначеЕсли Параметр.Свойство("Шаблон") Тогда ДобавитьПараметрПоШаблону(Параметр.Шаблон, Параметр.Параметр, Обязательный); Иначе ДобавитьПараметрПоИмени(Параметр.Параметр); @@ -213,10 +241,10 @@ // проверяя флаг использования свойства для различных операций // // Параметры: -// ИмяФлагаРазрешения - Строка - имя проверяемого флага разрешения -// (Чтение, Добавление, Изменение и т.п.) -// ВключаяПараметры - Строка - список добавляемых параметров, разделенных "," -// ИсключаяПараметры - Строка - список исключаемых параметров, разделенных "," +// ИмяФлагаРазрешения - Строка - имя проверяемого флага разрешения +// (Чтение, Добавление, Изменение и т.п.) +// ВключаяПараметры - Строка - список добавляемых параметров, разделенных "," +// ИсключаяПараметры - Строка - список исключаемых параметров, разделенных "," // Процедура ДобавитьПрочиеПараметрыКоманды(Знач ИмяФлагаРазрешения , Знач ВключаяПараметры = "" @@ -245,7 +273,7 @@ И НЕ ИсключаяПараметры.Найти(ТекЭлемент.Ключ) = Неопределено Тогда Продолжить; КонецЕсли; - + Если ЗначениеЗаполнено(ИмяФлагаРазрешения) И НЕ ТекЭлемент.Значение[ИмяФлагаРазрешения] Тогда Продолжить; КонецЕсли; @@ -270,10 +298,6 @@ // Процедура ДобавитьПараметрСтроку(Знач Параметр, Обязательный = Ложь, ДобавлятьПустой = Истина) - Если НЕ ТипЗнч(ПараметрыЗапуска) = Тип("Массив") Тогда - ПараметрыЗапуска = Новый Массив(); - КонецЕсли; - Если НЕ ТипЗнч(Параметр) = Тип("Строка") Тогда Параметр = ""; КонецЕсли; @@ -299,10 +323,6 @@ // Процедура ДобавитьПараметрПоИмени(Знач Имя, Обязательный = Ложь, ДобавлятьПустой = Истина) - Если НЕ ТипЗнч(ПараметрыЗапуска) = Тип("Массив") Тогда - ПараметрыЗапуска = Новый Массив(); - КонецЕсли; - Параметр = ЗначенияПараметров.Получить(Имя); Если Параметр = Неопределено Тогда Параметр = ""; @@ -318,6 +338,48 @@ КонецПроцедуры // ДобавитьПараметрПоИмени() +// Процедура добавляет значение параметра из структуры значений параметров в массив параметров запуска команды +// +// Параметры: +// ТипОбъектаАвторизации - Строка - тип объекта авторизации (agent, cluster, infobase) +// Имя - Строка - имя параметра в структуре значений параметров +// Ид - Строка - идентификатор параметров авторизации +// Обязательный - Булево - Истина - если значение параметра не найдено +// или не заполнено будет выдано исключение +// +Процедура ДобавитьПараметрыАвторизации(Знач ТипОбъектаАвторизации, Знач Имя, Знач Ид, Знач Обязательный = Ложь) + + Параметр = ЗначенияПараметров.Получить(Имя); + Если Параметр = Неопределено И Обязательный Тогда + ВызватьИсключение СтрШаблон("Не заполнен обязательный параметр %1!", Имя); + КонецЕсли; + + ПараметрыАвторизации = Служебный.ПараметрыАвторизации(ТипОбъектаАвторизации, Параметр); + + Если НЕ ПараметрыАвторизации.Свойство("Администратор") Тогда + Возврат; + КонецЕсли; + + Если ПустаяСтрока(ПараметрыАвторизации.Администратор) Тогда + Возврат; + КонецЕсли; + + КэшПараметровАвторизации.Вставить(СтрШаблон("%1_user", Ид), ПараметрыАвторизации.Администратор); + + ПараметрыЗапуска.Добавить(СтрШаблон("--%1-user=%2", + ПараметрыАвторизации.Тип, + СтрШаблон("%1_user", Ид))); + + Если НЕ ПустаяСтрока(ПараметрыАвторизации.Пароль) Тогда + КэшПараметровАвторизации.Вставить(СтрШаблон("%1_pwd", Ид), ПараметрыАвторизации.Пароль); + + ПараметрыЗапуска.Добавить(СтрШаблон("--%1-pwd=%2", + ПараметрыАвторизации.Тип, + СтрШаблон("%1_pwd", Ид))); + КонецЕсли; + +КонецПроцедуры // ДобавитьПараметрыАвторизации() + // Процедура выполняет подстановку значения параметра из структуры значений параметров в шаблон // и добавляет результат в массив параметров запуска команды // @@ -329,10 +391,6 @@ // Процедура ДобавитьПараметрПоШаблону(Знач ШаблонПараметра, Знач Имя, Знач Обязательный = Ложь) - Если НЕ ТипЗнч(ПараметрыЗапуска) = Тип("Массив") Тогда - ПараметрыЗапуска = Новый Массив(); - КонецЕсли; - ЗначениеПараметра = ЗначенияПараметров.Получить(Имя); Если НЕ ЗначениеЗаполнено(ЗначениеПараметра) Тогда diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\233\320\270\321\206\320\265\320\275\320\267\320\270\320\270.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\233\320\270\321\206\320\265\320\275\320\267\320\270\320\270.os" index 7926dda..cde78f4 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\233\320\270\321\206\320\265\320\275\320\267\320\270\320\270.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\233\320\270\321\206\320\265\320\275\320\267\320\270\320\270.os" @@ -37,7 +37,7 @@ Владелец = ВладелецЛицензий; ИБ_Владелец = ИБ; - ПараметрыОбъекта = Новый КомандыОбъекта(ТипЛицензий()); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, ТипЛицензий()); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -58,9 +58,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); Если ТипЗнч(Владелец) = Тип("РабочийПроцесс") Тогда ПараметрыКоманды.Вставить("ИдентификаторПроцесса" , Владелец.Ид()); @@ -79,7 +79,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды(ИмяКоманды)); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду(ИмяКоманды); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка лицензий, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\234\320\265\320\275\320\265\320\264\320\266\320\265\321\200\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\234\320\265\320\275\320\265\320\264\320\266\320\265\321\200\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" index 1de5900..beaf1f0 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\234\320\265\320\275\320\265\320\264\320\266\320\265\321\200\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\234\320\265\320\275\320\265\320\264\320\266\320\265\321\200\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" @@ -38,7 +38,7 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.МенеджерыКластера); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.МенеджерыКластера); Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; @@ -72,14 +72,14 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("ИдентификаторМенеджера" , Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ИдентификаторМенеджера" , Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения описания менеджера, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\234\320\265\320\275\320\265\320\264\320\266\320\265\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\234\320\265\320\275\320\265\320\264\320\266\320\265\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" index 3148987..9d15172 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\234\320\265\320\275\320\265\320\264\320\266\320\265\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\234\320\265\320\275\320\265\320\264\320\266\320\265\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" @@ -27,7 +27,7 @@ Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.МенеджерыКластера); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.МенеджерыКластера); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -48,13 +48,13 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка менеджеров кластера, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\276\320\275\320\260\320\273\321\214\320\275\320\276\321\201\321\202\320\270.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\276\320\275\320\260\320\273\321\214\320\275\320\276\321\201\321\202\320\270.os" index 8cfdec4..a5e7c79 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\276\320\275\320\260\320\273\321\214\320\275\320\276\321\201\321\202\320\270.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\276\320\275\320\260\320\273\321\214\320\275\320\276\321\201\321\202\320\270.os" @@ -39,7 +39,8 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.НазначенияФункциональности); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.НазначенияФункциональности); Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; @@ -74,16 +75,16 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСервера" , Сервер_Владелец.Ид()); ПараметрыКоманды.Вставить("ИдентификаторТребования", Сервер_Владелец.Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения требования назначения функциональности, КодВозврата = %1: %2", @@ -189,9 +190,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСервера" , Сервер_Владелец.Ид()); ПараметрыКоманды.Вставить("Идентификатортребования" , Ид()); @@ -204,7 +205,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка изменения требования назначения функциональности ""%1"": %2", @@ -223,16 +224,16 @@ Процедура Удалить() Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСервера" , Сервер_Владелец.Ид()); ПараметрыКоманды.Вставить("ИдентификаторТребования" , Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Удалить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка удаления требования назначения функциональности ""%1"": %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\244\321\203\320\275\320\272\321\206\320\270\320\276\320\275\320\260\320\273\321\214\320\275\320\276\321\201\321\202\320\270.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\244\321\203\320\275\320\272\321\206\320\270\320\276\320\275\320\260\320\273\321\214\320\275\320\276\321\201\321\202\320\270.os" index e56d3c6..18ab34d 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\244\321\203\320\275\320\272\321\206\320\270\320\276\320\275\320\260\320\273\321\214\320\275\320\276\321\201\321\202\320\270.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\244\321\203\320\275\320\272\321\206\320\270\320\276\320\275\320\260\320\273\321\214\320\275\320\276\321\201\321\202\320\270.os" @@ -30,7 +30,8 @@ Кластер_Владелец = Кластер; Сервер_Владелец = Сервер; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.НазначенияФункциональности); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.НазначенияФункциональности); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -51,15 +52,15 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСервера", Сервер_Владелец.Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения требований назначения функциональности, КодВозврата = %1: %2", @@ -199,9 +200,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСервера" , Сервер_Владелец.Ид()); @@ -213,7 +214,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Добавить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Добавить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка добавления требования назначения функциональности ""%1"": %2", @@ -255,9 +256,9 @@ Процедура Применить(Знач ПрименитьЧастично = Ложь) Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); Если ПрименитьЧастично Тогда ПараметрыКоманды.Вставить("ПрименитьЧастично", Истина); @@ -267,7 +268,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Применить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Применить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка применения требований назначения функциональности: %1", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\261\321\212\320\265\320\272\321\202\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\261\321\212\320\265\320\272\321\202\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" index 151f618..c44c7e3 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\261\321\212\320\265\320\272\321\202\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\261\321\212\320\265\320\272\321\202\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" @@ -39,7 +39,7 @@ Объект_Тип = ТипОбъекта; - ПараметрыОбъекта = Новый КомандыОбъекта(Объект_Тип); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Объект_Тип); Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\261\321\212\320\265\320\272\321\202\321\213\320\237\321\200\320\276\321\204\320\270\320\273\321\217.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\261\321\212\320\265\320\272\321\202\321\213\320\237\321\200\320\276\321\204\320\270\320\273\321\217.os" index c9cd736..7e4a041 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\261\321\212\320\265\320\272\321\202\321\213\320\237\321\200\320\276\321\204\320\270\320\273\321\217.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\261\321\212\320\265\320\272\321\202\321\213\320\237\321\200\320\276\321\204\320\270\320\273\321\217.os" @@ -41,7 +41,7 @@ ТипОбъектаПрофиля = СтрШаблон("%1.%2", Перечисления.РежимыАдминистрирования.ПрофилиБезопасности, ТипЭлементов); - ПараметрыОбъекта = Новый КомандыОбъекта(ТипОбъектаПрофиля); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, ТипОбъектаПрофиля); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -62,15 +62,15 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера" , Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИмяПрофиля" , Профиль_Владелец.Имя()); - ПараметрыКоманды.Вставить("ВидОбъектовПрофиля" , ТипЭлементов); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИмяПрофиля" , Профиль_Владелец.Имя()); + ПараметрыКоманды.Вставить("ВидОбъектовПрофиля" , ТипЭлементов); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка доступа объектов ""%1"" профиля ""%2"": %3", @@ -206,12 +206,12 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера" , Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИмяПрофиля" , Профиль_Владелец.Имя()); - ПараметрыКоманды.Вставить("ВидОбъектовПрофиля" , ТипЭлементов); - ПараметрыКоманды.Вставить("ИмяОбъектаПрофиля" , Имя); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИмяПрофиля" , Профиль_Владелец.Имя()); + ПараметрыКоманды.Вставить("ВидОбъектовПрофиля" , ТипЭлементов); + ПараметрыКоманды.Вставить("ИмяОбъектаПрофиля" , Имя); Для Каждого ТекЭлемент Из ПараметрыОбъектаПрофиля Цикл ПараметрыКоманды.Вставить(ТекЭлемент.Ключ, ТекЭлемент.Значение); @@ -219,7 +219,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка изменения объекта доступа ""%1"" (%2) профиля ""%3"": %4", @@ -243,16 +243,16 @@ Процедура Удалить(Имя) Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера" , Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИмяПрофиля" , Профиль_Владелец.Имя()); - ПараметрыКоманды.Вставить("ВидОбъектовПрофиля" , ТипЭлементов); - ПараметрыКоманды.Вставить("ИмяОбъектаПрофиля" , Имя); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИмяПрофиля" , Профиль_Владелец.Имя()); + ПараметрыКоманды.Вставить("ВидОбъектовПрофиля" , ТипЭлементов); + ПараметрыКоманды.Вставить("ИмяОбъектаПрофиля" , Имя); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Удалить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка удаления объекта доступа ""%1"" (%2) профиля ""%3"": %4", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\263\321\200\320\260\320\275\320\270\321\207\320\265\320\275\320\270\320\265\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\263\321\200\320\260\320\275\320\270\321\207\320\265\320\275\320\270\320\265\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" index ed7fd8b..3952d1a 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\263\321\200\320\260\320\275\320\270\321\207\320\265\320\275\320\270\320\265\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\263\321\200\320\260\320\275\320\270\321\207\320\265\320\275\320\270\320\265\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" @@ -38,7 +38,7 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ОграниченияРесурсов); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ОграниченияРесурсов); Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; @@ -74,15 +74,15 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИмяОграничения", Имя()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения описания ограничения потребления ресурсов ""%1"", КодВозврата = %2: %3", @@ -169,9 +169,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); ПараметрыКоманды.Вставить("ИмяОграничения" , Имя()); @@ -181,7 +181,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка изменения параметров ограничения потребления ресурсов, КодВозврата = %1: %2", @@ -202,15 +202,15 @@ Процедура Удалить(Имя) Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИмОграничения" , Имя()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Отключить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Отключить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка удаления ограничения потребления ресурсов ""%1"", КодВозврата = %2: %3", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\263\321\200\320\260\320\275\320\270\321\207\320\265\320\275\320\270\321\217\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\263\321\200\320\260\320\275\320\270\321\207\320\265\320\275\320\270\321\217\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" index 585a621..a3ace3f 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\263\321\200\320\260\320\275\320\270\321\207\320\265\320\275\320\270\321\217\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\236\320\263\321\200\320\260\320\275\320\270\321\207\320\265\320\275\320\270\321\217\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" @@ -27,7 +27,7 @@ Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ОграниченияРесурсов); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ОграниченияРесурсов); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -48,13 +48,13 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка ограничений потребления ресурсов, КодВозврата = %1: %2", @@ -192,9 +192,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИмяОграничения" , Имя); @@ -208,7 +208,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка добавления ограничения потребления ресурсов ""%1"": %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\237\321\200\320\276\321\204\320\270\320\273\320\270\320\221\320\265\320\267\320\276\320\277\320\260\321\201\320\275\320\276\321\201\321\202\320\270.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\237\321\200\320\276\321\204\320\270\320\273\320\270\320\221\320\265\320\267\320\276\320\277\320\260\321\201\320\275\320\276\321\201\321\202\320\270.os" index cd5495e..e6313d2 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\237\321\200\320\276\321\204\320\270\320\273\320\270\320\221\320\265\320\267\320\276\320\277\320\260\321\201\320\275\320\276\321\201\321\202\320\270.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\237\321\200\320\276\321\204\320\270\320\273\320\270\320\221\320\265\320\267\320\276\320\277\320\260\321\201\320\275\320\276\321\201\321\202\320\270.os" @@ -27,7 +27,7 @@ Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ПрофилиБезопасности); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ПрофилиБезопасности); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -48,13 +48,13 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка профилей, КодВозврата = %1: %2", @@ -190,9 +190,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("Имя" , Имя); @@ -202,7 +202,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка добавления профиля безопасности ""%1"": %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\237\321\200\320\276\321\204\320\270\320\273\321\214\320\221\320\265\320\267\320\276\320\277\320\260\321\201\320\275\320\276\321\201\321\202\320\270.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\237\321\200\320\276\321\204\320\270\320\273\321\214\320\221\320\265\320\267\320\276\320\277\320\260\321\201\320\275\320\276\321\201\321\202\320\270.os" index 2892e97..dba12c7 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\237\321\200\320\276\321\204\320\270\320\273\321\214\320\221\320\265\320\267\320\276\320\277\320\260\321\201\320\275\320\276\321\201\321\202\320\270.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\237\321\200\320\276\321\204\320\270\320\273\321\214\320\221\320\265\320\267\320\276\320\277\320\260\321\201\320\275\320\276\321\201\321\202\320\270.os" @@ -43,11 +43,11 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ПрофилиБезопасности); - Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ПрофилиБезопасности); + Если ТипЗнч(Профиль) = Тип("Соответствие") Тогда Профиль_Имя = Профиль["name"]; Служебный.ЗаполнитьСвойстваОбъекта(ЭтотОбъект, Профиль_Свойства, Профиль); @@ -91,13 +91,13 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера" , Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения описания профиля безопасности ""%1"": %2", @@ -275,16 +275,16 @@ Процедура ИзменитьРежимДоступаКОбъектам(ВидОбъектовПрофиля, РежимДоступа) Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера" , Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("Имя" , Имя()); - ПараметрыКоманды.Вставить("ВидОбъектовПрофиля" , ВидОбъектовПрофиля); - ПараметрыКоманды.Вставить("РежимДоступа" , РежимДоступа); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("Имя" , Имя()); + ПараметрыКоманды.Вставить("ВидОбъектовПрофиля" , ВидОбъектовПрофиля); + ПараметрыКоманды.Вставить("РежимДоступа" , РежимДоступа); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("ИзменитьРежимДоступа")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("ИзменитьРежимДоступа"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка изменения режима доступа объекта ""%1"" профиля ""%2"" на ""%3"": %4", @@ -310,9 +310,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("Имя" , Имя()); @@ -322,7 +322,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка изменения профиля безопасности ""%1"": %2", @@ -341,15 +341,15 @@ Процедура Удалить() Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("Имя" , Имя()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Удалить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка удаления профиля безопасности ""%1"": %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\240\320\260\320\261\320\276\321\207\320\270\320\265\320\237\321\200\320\276\321\206\320\265\321\201\321\201\321\213.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\240\320\260\320\261\320\276\321\207\320\270\320\265\320\237\321\200\320\276\321\206\320\265\321\201\321\201\321\213.os" index 49b0902..a5acc65 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\240\320\260\320\261\320\276\321\207\320\270\320\265\320\237\321\200\320\276\321\206\320\265\321\201\321\201\321\213.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\240\320\260\320\261\320\276\321\207\320\270\320\265\320\237\321\200\320\276\321\206\320\265\321\201\321\201\321\213.os" @@ -30,9 +30,9 @@ Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.РабочиеПроцессы); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.РабочиеПроцессы); - ПараметрыЛицензий = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ЛицензииПроцессов); + ПараметрыЛицензий = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ЛицензииПроцессов); Элементы = Новый ОбъектыКластера(ЭтотОбъект); Лицензии = Новый Лицензии(Кластер_Агент, Кластер_Владелец, ЭтотОбъект); @@ -54,13 +54,13 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка рабочих процессов, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\237\321\200\320\276\321\206\320\265\321\201\321\201.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\237\321\200\320\276\321\206\320\265\321\201\321\201.os" index db6bccf..01d52a9 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\237\321\200\320\276\321\206\320\265\321\201\321\201.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\237\321\200\320\276\321\206\320\265\321\201\321\201.os" @@ -39,13 +39,13 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.РабочиеПроцессы); - - ПараметрыЛицензий = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ЛицензииПроцессов); - Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.РабочиеПроцессы); + + ПараметрыЛицензий = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ЛицензииПроцессов); + Если ТипЗнч(Процесс) = Тип("Соответствие") Тогда Процесс_Ид = Процесс["process"]; ЗаполнитьПараметрыПроцесса(Процесс); @@ -78,14 +78,14 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("ИдентификаторПроцесса" , Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ИдентификаторПроцесса" , Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения описания рабочего процесса, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\320\260\320\275\321\201.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\320\260\320\275\321\201.os" index ad3e2cc..bc69e4d 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\320\260\320\275\321\201.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\320\260\320\275\321\201.os" @@ -38,14 +38,14 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Сеансы); - - ПараметрыЛицензий = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ЛицензииСеансов); - Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; ИБ_Владелец = ИБ; + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Сеансы); + + ПараметрыЛицензий = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ЛицензииСеансов); + Если ТипЗнч(Сеанс) = Тип("Соответствие") Тогда Сеанс_Ид = Сеанс["session"]; Служебный.ЗаполнитьСвойстваОбъекта(ЭтотОбъект, Сеанс_Свойства, Сеанс); @@ -76,15 +76,15 @@ Возврат; КонецЕсли; - ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера" , Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторСеанса" , Ид()); + ПараметрыКоманды = Новый Соответствие(); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторСеанса" , Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения описания сеанса, КодВозврата = %1: %2", @@ -181,15 +181,15 @@ Процедура Завершить() Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСеанса" , Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Удалить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка завершения сеанса ""%1"": %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\320\260\320\275\321\201\321\213.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\320\260\320\275\321\201\321\213.os" index 7de5fa9..815716c 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\320\260\320\275\321\201\321\213.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\320\260\320\275\321\201\321\213.os" @@ -33,9 +33,9 @@ Кластер_Владелец = Кластер; ИБ_Владелец = ИБ; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Сеансы); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Сеансы); - ПараметрыЛицензий = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ЛицензииСеансов); + ПараметрыЛицензий = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ЛицензииСеансов); Элементы = Новый ОбъектыКластера(ЭтотОбъект); Лицензии = Новый Лицензии(Кластер_Агент, Кластер_Владелец, ЭтотОбъект, ИБ_Владелец); @@ -57,9 +57,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); Если НЕ ИБ_Владелец = Неопределено Тогда ПараметрыКоманды.Вставить("ИдентификаторИБ", ИБ_Владелец.Ид()); @@ -67,7 +67,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка сеансов, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\265\321\200.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\265\321\200.os" index b6aee6f..7a5e108 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\265\321\200.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\265\321\200.os" @@ -40,7 +40,7 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Серверы); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Серверы); Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; @@ -76,14 +76,14 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("ИдентификаторСервера" , Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ИдентификаторСервера" , Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения описание сервера, КодВозврата = %1: %2", @@ -256,10 +256,10 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("ИдентификаторСервера" , Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ИдентификаторСервера" , Ид()); Для Каждого ТекЭлемент Из ПараметрыСервера Цикл ПараметрыКоманды.Вставить(ТекЭлемент.Ключ, ТекЭлемент.Значение); @@ -267,7 +267,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка изменения параметров сервера, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\265\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\265\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" index 2aa588d..7334982 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\265\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\265\321\200\321\213\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" @@ -27,7 +27,7 @@ Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Серверы); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Серверы); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -48,13 +48,13 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка серверов кластера, КодВозврата = %1: %2", @@ -198,9 +198,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); ПараметрыКоманды.Вставить("Имя" , Служебный.ОбернутьВКавычки(Имя)); ПараметрыКоманды.Вставить("АдресАгента" , АдресАгента); @@ -212,7 +212,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Добавить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Добавить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка добавления сервера, КодВозврата = %1: %2", @@ -234,15 +234,15 @@ Процедура Удалить(СерверПорт) Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСервера" , Получить(СерверПорт).Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Удалить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка удаления сервера ""%1"": %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\270\321\201\321\213.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\270\321\201\321\213.os" index ddd3012..3fd864f 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\270\321\201\321\213.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\265\321\200\320\262\320\270\321\201\321\213.os" @@ -26,7 +26,7 @@ Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Сервисы); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Сервисы); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -47,13 +47,13 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка сервисов, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\276\320\265\320\264\320\270\320\275\320\265\320\275\320\270\320\265.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\276\320\265\320\264\320\270\320\275\320\265\320\275\320\270\320\265.os" index 32e1087..6bd1658 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\276\320\265\320\264\320\270\320\275\320\265\320\275\320\270\320\265.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\276\320\265\320\264\320\270\320\275\320\265\320\275\320\270\320\265.os" @@ -39,7 +39,7 @@ ИБ_Владелец = ИБ; Процесс_Владелец = Процесс; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Соединения); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Соединения); Если ТипЗнч(Соединение) = Тип("Соответствие") Тогда Соединение_Ид = Соединение["connection"]; @@ -81,15 +81,15 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСоединения", Ид()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения описания соединения, КодВозврата = %1: %2", @@ -157,9 +157,9 @@ Процедура Отключить() Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторПроцесса" , Процесс_Владелец.Ид()); ПараметрыКоманды.Вставить("ИдентификаторСоединения", Ид()); @@ -169,12 +169,12 @@ СписокИБ = Кластер_Владелец.ИнформационныеБазы().Список(ОтборИБ); Если НЕ СписокИБ.Количество() = 0 Тогда - ПараметрыКоманды.Вставить("СтрокаАвторизацииИБ", СписокИБ[0].СтрокаАвторизации()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииИБ", СписокИБ[0].ПараметрыАвторизации()); КонецЕсли; ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Отключить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Отключить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка удаления соединения, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\276\320\265\320\264\320\270\320\275\320\265\320\275\320\270\321\217.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\276\320\265\320\264\320\270\320\275\320\265\320\275\320\270\321\217.os" index 96146f3..428b61b 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\276\320\265\320\264\320\270\320\275\320\265\320\275\320\270\321\217.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\320\276\320\265\320\264\320\270\320\275\320\265\320\275\320\270\321\217.os" @@ -34,7 +34,7 @@ Процесс_Владелец = Процесс; ИБ_Владелец = ИБ; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Соединения); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Соединения); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -55,22 +55,22 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); Если НЕ Процесс_Владелец = Неопределено Тогда - ПараметрыКоманды.Вставить("ИдентификаторПроцесса", Процесс_Владелец.Ид()); + ПараметрыКоманды.Вставить("ИдентификаторПроцесса" , Процесс_Владелец.Ид()); КонецЕсли; Если НЕ ИБ_Владелец = Неопределено Тогда - ПараметрыКоманды.Вставить("ИдентификаторИБ", ИБ_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииИБ", ИБ_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторИБ" , ИБ_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииИБ", ИБ_Владелец.ПараметрыАвторизации()); КонецЕсли; ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка соединений, КодВозврата = %1: %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\321\207\320\265\321\202\321\207\320\270\320\272\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\321\207\320\265\321\202\321\207\320\270\320\272\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" index 3de469c..f3c0d64 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\321\207\320\265\321\202\321\207\320\270\320\272\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\321\207\320\265\321\202\321\207\320\270\320\272\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" @@ -39,11 +39,11 @@ Возврат; КонецЕсли; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.СчетчикиРесурсов); - Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.СчетчикиРесурсов); + Если ТипЗнч(Счетчик) = Тип("Соответствие") Тогда Счетчик_Имя = Счетчик["name"]; Служебный.ЗаполнитьСвойстваОбъекта(ЭтотОбъект, Счетчик_Свойства, Счетчик); @@ -75,15 +75,15 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИмяСчетчика", Имя()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Описание")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения описания счетчика потребления ресурсов ""%1"", КодВозврата = %2: %3", @@ -109,9 +109,9 @@ Процедура ОбновитьДанныеЗначений(Знач Отбор = "") Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); ПараметрыКоманды.Вставить("ИмяСчетчика" , Имя()); Если ЗначениеЗаполнено(Отбор) Тогда @@ -120,7 +120,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Значения")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Значения"); Если НЕ КодВозврата = 0 Тогда Если НЕ ЗначениеЗаполнено(Отбор) Тогда @@ -212,9 +212,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); ПараметрыКоманды.Вставить("ИмяСчетчика" , Имя()); @@ -224,7 +224,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка изменения параметров счетчика потребления ресурсов, КодВозврата = %1: %2", @@ -263,15 +263,15 @@ Процедура Удалить(Имя) Экспорт ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИмяСчетчика" , Имя()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Отключить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Отключить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка удаления счетчика потребления ресурсов ""%1"", КодВозврата = %2: %3", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\321\207\320\265\321\202\321\207\320\270\320\272\320\270\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\321\207\320\265\321\202\321\207\320\270\320\272\320\270\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" index 5503c46..c41ded6 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\321\207\320\265\321\202\321\207\320\270\320\272\320\270\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\241\321\207\320\265\321\202\321\207\320\270\320\272\320\270\320\240\320\265\321\201\321\203\321\200\321\201\320\276\320\262.os" @@ -27,7 +27,7 @@ Кластер_Агент = АгентКластера; Кластер_Владелец = Кластер; - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.СчетчикиРесурсов); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.СчетчикиРесурсов); Элементы = Новый ОбъектыКластера(ЭтотОбъект); @@ -48,13 +48,13 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Список")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка получения списка счетчиков ресурсов, КодВозврата = %1: %2", @@ -192,9 +192,9 @@ КонецЕсли; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_Владелец.СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Кластер_Агент.СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Владелец.Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_Владелец.ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИмяСчетчика" , Имя); @@ -220,7 +220,7 @@ ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды); - КодВозврата = Кластер_Агент.ВыполнитьКоманду(ПараметрыОбъекта.ПараметрыКоманды("Изменить")); + КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить"); Если НЕ КодВозврата = 0 Тогда ВызватьИсключение СтрШаблон("Ошибка добавления счетчика потребления ресурсов ""%1"": %2", diff --git "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\243\320\277\321\200\320\260\320\262\320\273\320\265\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\276\320\2741\320\241.os" "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\243\320\277\321\200\320\260\320\262\320\273\320\265\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\276\320\2741\320\241.os" index 3fa3951..663c7c8 100644 --- "a/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\243\320\277\321\200\320\260\320\262\320\273\320\265\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\276\320\2741\320\241.os" +++ "b/src/\320\232\320\273\320\260\321\201\321\201\321\213/\320\243\320\277\321\200\320\260\320\262\320\273\320\265\320\275\320\270\320\265\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\276\320\2741\320\241.os" @@ -55,7 +55,7 @@ Агент_ИсполнительКоманд = Новый ИсполнительКоманд(ВерсияИлиПутьКУтилитеАдминистрирования); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Агенты); + ПараметрыОбъекта = Новый КомандыОбъекта(ЭтотОбъект, Перечисления.РежимыАдминистрирования.Агенты); Если ТипЗнч(Администратор) = Тип("Структура") Тогда Агент_Администратор = Новый Структура("Администратор, Пароль"); @@ -84,6 +84,17 @@ КонецФункции // СтрокаПодключения() +// Функция возвращает структуру параметров авторизации на агенте кластера 1С +// +// Возвращаемое значение: +// Строка - структура параметров авторизации на агенте кластера 1С +// +Функция ПараметрыАвторизации() Экспорт + + Возврат Служебный.ПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Агенты, Агент_Администратор); + +КонецФункции // ПараметрыАвторизации() + // Функция возвращает строку параметров авторизации на агенте кластера 1С // // Возвращаемое значение: @@ -91,28 +102,10 @@ // Функция СтрокаАвторизации() Экспорт - Если НЕ ТипЗнч(Агент_Администратор) = Тип("Структура") Тогда - Возврат ""; - КонецЕсли; - - Если НЕ Агент_Администратор.Свойство("Администратор") Тогда - Возврат ""; - КонецЕсли; - - Если ПустаяСтрока(Агент_Администратор.Администратор) Тогда - Возврат ""; - КонецЕсли; - - СтрокаАвторизации = СтрШаблон("--agent-user=%1", Служебный.ОбернутьВКавычки(Агент_Администратор.Администратор)); - - Если НЕ ПустаяСтрока(Агент_Администратор.Пароль) Тогда - СтрокаАвторизации = СтрокаАвторизации + СтрШаблон(" --agent-pwd=%1", Агент_Администратор.Пароль); - КонецЕсли; - - Возврат СтрокаАвторизации; + Возврат Служебный.СтрокаАвторизации(ПараметрыАвторизации()); КонецФункции // СтрокаАвторизации() - + // Процедура устанавливает параметры авторизации на агенте кластера 1С // // Параметры: diff --git "a/src/\320\234\320\260\320\272\320\265\321\202\321\213/\320\242\320\270\320\277\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\276\320\262\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.json" "b/src/\320\234\320\260\320\272\320\265\321\202\321\213/\320\242\320\270\320\277\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\276\320\262\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.json" index 856cf0d..b33e7b3 100644 --- "a/src/\320\234\320\260\320\272\320\265\321\202\321\213/\320\242\320\270\320\277\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\276\320\262\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.json" +++ "b/src/\320\234\320\260\320\272\320\265\321\202\321\213/\320\242\320\270\320\277\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\276\320\262\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.json" @@ -48,7 +48,7 @@ "Добавить":{ "ИмяРАК" : "register", "АвторизацияАгента" : true, - "ЗначенияПолей" : true + "ЗначенияПолей" : "Добавление" }, "Удалить":{ "ИмяРАК" : "remove", @@ -169,22 +169,27 @@ "Параметр" : "ИдентификаторКластера" }, { - "Параметр" : "СтрокаАвторизацииКластера" + "Авторизация" : "cluster", + "Параметр" : "ПараметрыАвторизацииКластера", + "ПараметрИд" : "ИдентификаторКластера" } ] }, "Добавить":{ "ИмяРАК" : "register", + "АвторизацияАгента" : true, "ОбщиеПараметры" : [ { "Шаблон" : "--cluster=%1", "Параметр" : "ИдентификаторКластера" }, { - "Параметр" : "СтрокаАвторизацииКластера" + "Авторизация" : "cluster", + "Параметр" : "ПараметрыАвторизацииКластера", + "ПараметрИд" : "ИдентификаторКластера" } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Добавление" }, "Удалить":{ "ИмяРАК" : "remove", @@ -194,7 +199,9 @@ "Параметр" : "ИдентификаторКластера" }, { - "Параметр" : "СтрокаАвторизацииКластера" + "Авторизация" : "cluster", + "Параметр" : "ПараметрыАвторизацииКластера", + "ПараметрИд" : "ИдентификаторКластера" } ] } @@ -236,7 +243,7 @@ "Параметр" : "Имя" } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Добавление" }, "Изменить":{ "ИмяРАК" : "update", @@ -251,18 +258,19 @@ "Параметр" : "Имя" } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", - "АвторизацияАгента" : true, "ПараметрыКоманды" : [ { "Шаблон" : "--cluster=%1", "Параметр" : "ИдентификаторКластера" }, { - "Параметр" : "СтрокаАвторизацииКластера" + "Авторизация" : "cluster", + "Параметр" : "ПараметрыАвторизацииКластера", + "ПараметрИд" : "ИдентификаторКластера" } ] } @@ -424,7 +432,7 @@ "Параметр" : "Локализация" } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Добавление" }, "Изменить":{ "ИмяРАК" : "update", @@ -436,7 +444,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", @@ -691,7 +699,7 @@ }, "БлокировкаСеансовВключена":{ "ИмяРАК" : "sessions-deny", - "ПоУмолчанию" : false, + "ПоУмолчанию" : "$Перечисления.СостоянияВыключателя.Выключено", "Использование" : "Чтение, Изменение" }, "БлокировкаРегламентныхЗаданийВключена":{ @@ -725,7 +733,7 @@ "СмещениеДат":{ "ИмяРАК" : "date-offset", "ПоУмолчанию" : 2000, - "Использование" : "Добавление" + "Использование" : "Чтение, Добавление" }, "Описание":{ "ИмяРАК" : "descr", @@ -763,6 +771,11 @@ "Шаблон" : "--infobase=%1", "Параметр" : "ИдентификаторИБ", "Обязательный" : true + }, + { + "Авторизация" : "infobase", + "Параметр" : "ПараметрыАвторизацииИБ", + "ПараметрИд" : "ИдентификаторИБ" } ] }, @@ -780,7 +793,7 @@ "Параметр" : "Локализация" } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Добавление" }, "Изменить":{ "ИмяРАК" : "update", @@ -790,9 +803,14 @@ "Шаблон" : "--infobase=%1", "Параметр" : "ИдентификаторИБ", "Обязательный" : true + }, + { + "Авторизация" : "infobase", + "Параметр" : "ПараметрыАвторизацииИБ", + "ПараметрИд" : "ИдентификаторИБ" } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "drop", @@ -800,7 +818,13 @@ "ПараметрыКоманды" : [ { "Шаблон" : "--infobase=%1", - "Параметр" : "ИдентификаторИБ" + "Параметр" : "ИдентификаторИБ", + "Обязательный" : true + }, + { + "Авторизация" : "infobase", + "Параметр" : "ПараметрыАвторизацииИБ", + "ПараметрИд" : "ИдентификаторИБ" }, { "Флаг" : "ОчиститьБД", @@ -871,8 +895,13 @@ { "Шаблон" : "--infobase=%1", "Параметр" : "ИдентификаторИБ" + }, + { + "Авторизация" : "infobase", + "Параметр" : "ПараметрыАвторизацииИБ", + "ПараметрИд" : "ИдентификаторИБ" } - ] + ] }, "Описание":{ "ИмяРАК" : "info", @@ -1254,7 +1283,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Добавление" }, "Изменить":{ "ИмяРАК" : "update", @@ -1276,7 +1305,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", @@ -1464,7 +1493,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", @@ -1535,7 +1564,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", @@ -1598,7 +1627,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", @@ -1661,7 +1690,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", @@ -1725,7 +1754,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", @@ -1798,7 +1827,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", @@ -1838,7 +1867,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", @@ -2036,7 +2065,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Значения":{ "ИмяРАК" : "values", @@ -2168,7 +2197,7 @@ "Обязательный" : true } ], - "ЗначенияПолей" : true + "ЗначенияПолей" : "Изменение" }, "Удалить":{ "ИмяРАК" : "remove", diff --git "a/src/\320\234\320\276\320\264\321\203\320\273\320\270/\320\241\320\273\321\203\320\266\320\265\320\261\320\275\321\213\320\271.os" "b/src/\320\234\320\276\320\264\321\203\320\273\320\270/\320\241\320\273\321\203\320\266\320\265\320\261\320\275\321\213\320\271.os" index cb8ffa7..06f8c57 100644 --- "a/src/\320\234\320\276\320\264\321\203\320\273\320\270/\320\241\320\273\321\203\320\266\320\265\320\261\320\275\321\213\320\271.os" +++ "b/src/\320\234\320\276\320\264\321\203\320\273\320\270/\320\241\320\273\321\203\320\266\320\265\320\261\320\275\321\213\320\271.os" @@ -353,6 +353,71 @@ КонецПроцедуры // ВывестиПоляОбъекта() +// Функция возвращает структуру параметров авторизации для типа объектов кластера 1С +// +// Параметры: +// ТипАвторизации - Строка - тип тобъекта авторизации (agent, cluster, infobase) +// ПараметрыАвторизации - Структура - структура параметров авторизации +// *Администратор - Строка - имя администратора +// *Пароль - Строка - пароль администратора +// +// Возвращаемое значение: +// Строка - структура параметров авторизации для типа объектов кластера 1С +// +Функция ПараметрыАвторизации(Знач ТипАвторизации, Знач ПараметрыАвторизации = Неопределено) Экспорт + + Результат = Новый Структура(); + Результат.Вставить("Тип" , ТипАвторизации); + Результат.Вставить("Администратор", ""); + Результат.Вставить("Пароль" , ""); + + Если ТипЗнч(ПараметрыАвторизации) = Тип("Структура") Тогда + ЗаполнитьЗначенияСвойств(Результат, ПараметрыАвторизации); + КонецЕсли; + + Возврат Результат; + +КонецФункции // ПараметрыАвторизации() + +// Функция возвращает строку параметров авторизации для типа объектов кластера 1С +// +// Параметры: +// ПараметрыАвторизации - Структура - структура параметров авторизации +// *Тип - Строка - тип тобъекта авторизации (agent, cluster, infobase) +// *Администратор - Строка - имя администратора +// *Пароль - Строка - пароль администратора +// +// Возвращаемое значение: +// Строка - строка параметров авторизации для типа объектов кластера 1С +// +Функция СтрокаАвторизации(Знач ПараметрыАвторизации) Экспорт + + Если НЕ ТипЗнч(ПараметрыАвторизации) = Тип("Структура") Тогда + Возврат ""; + КонецЕсли; + + Если НЕ ПараметрыАвторизации.Свойство("Администратор") Тогда + Возврат ""; + КонецЕсли; + + Если ПустаяСтрока(ПараметрыАвторизации.Администратор) Тогда + Возврат ""; + КонецЕсли; + + СтрокаАвторизации = СтрШаблон("--%1-user=%2", + ПараметрыАвторизации.Тип, + ОбернутьВКавычки(ПараметрыАвторизации.Администратор)); + + Если НЕ ПустаяСтрока(ПараметрыАвторизации.Пароль) Тогда + СтрокаАвторизации = СтрокаАвторизации + СтрШаблон(" --%1-pwd=%2", + ПараметрыАвторизации.Тип, + ПараметрыАвторизации.Пароль); + КонецЕсли; + + Возврат СтрокаАвторизации; + +КонецФункции // СтрокаАвторизации() + // Функция возвращает лог библиотеки // // Возвращаемое значение: diff --git "a/src/\320\234\320\276\320\264\321\203\320\273\320\270/\320\242\320\270\320\277\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\276\320\262\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" "b/src/\320\234\320\276\320\264\321\203\320\273\320\270/\320\242\320\270\320\277\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\276\320\262\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" index 925a4e6..bf31c30 100644 --- "a/src/\320\234\320\276\320\264\321\203\320\273\320\270/\320\242\320\270\320\277\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\276\320\262\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" +++ "b/src/\320\234\320\276\320\264\321\203\320\273\320\270/\320\242\320\270\320\277\321\213\320\236\320\261\321\212\320\265\320\272\321\202\320\276\320\262\320\232\320\273\320\260\321\201\321\202\320\265\321\200\320\260.os" @@ -225,7 +225,8 @@ // // Параметры: // ОписаниеТипаОбъектов - КлючИЗначение - Ключ - имя типа объектов, как оно было загружено из макета; -// Значение - описание типа объектов, как оно было загружено из макета +// Значение - описание типа объектов, +// как оно было загружено из макета // *Имя - Строка - имя типа объектов // *РежимАдминистрирования - Строка - имя режима утилиты RAC (agent, cluster, infobase и т.п.) // *МинВерсия - Строка - версия 1С, с которой доступен указанный режим RAC @@ -296,7 +297,7 @@ ОписанияКоманды.Вставить("ПараметрыКоманды" , Новый Массив()); // добавлять значения полей объекта // используется для команд добавления и изменения, чтобы задать значения свойств - ОписанияКоманды.Вставить("ЗначенияПолей" , Ложь); + ОписанияКоманды.Вставить("ЗначенияПолей" , ""); Возврат ОписанияКоманды; @@ -314,7 +315,8 @@ // // Параметры: // ОписаниеТипаОбъектов - КлючИЗначение - Ключ - имя типа объектов, как оно было загружено из макета; -// Значение - описание типа объектов, как оно было загружено из макета +// Значение - описание типа объектов, +// как оно было загружено из макета // *Имя - Строка - имя типа объектов // *РежимАдминистрирования - Строка - имя режима утилиты RAC (agent, cluster, infobase и т.п.) // *МинВерсия - Строка - версия 1С, с которой доступен указанный режим RAC @@ -378,7 +380,8 @@ // // Параметры: // ОписаниеТипаОбъектов - КлючИЗначение - Ключ - имя типа объектов, как оно было загружено из макета; -// Значение - описание типа объектов, как оно было загружено из макета +// Значение - описание типа объектов, +// как оно было загружено из макета // *Имя - Строка - имя типа объектов // *РежимАдминистрирования - Строка - имя режима утилиты RAC (agent, cluster, infobase и т.п.) // *МинВерсия - Строка - версия 1С, с которой доступен указанный режим RAC diff --git "a/tests/fixtures/\320\237\320\260\321\200\320\260\320\274\320\265\321\202\321\200\321\213\320\242\320\265\321\201\321\202\320\270\321\200\320\276\320\262\320\260\320\275\320\270\321\217.os" "b/tests/fixtures/\320\237\320\260\321\200\320\260\320\274\320\265\321\202\321\200\321\213\320\242\320\265\321\201\321\202\320\270\321\200\320\276\320\262\320\260\320\275\320\270\321\217.os" index 4e75cec..fe366fa 100644 --- "a/tests/fixtures/\320\237\320\260\321\200\320\260\320\274\320\265\321\202\321\200\321\213\320\242\320\265\321\201\321\202\320\270\321\200\320\276\320\262\320\260\320\275\320\270\321\217.os" +++ "b/tests/fixtures/\320\237\320\260\321\200\320\260\320\274\320\265\321\202\321\200\321\213\320\242\320\265\321\201\321\202\320\270\321\200\320\276\320\262\320\260\320\275\320\270\321\217.os" @@ -7,16 +7,29 @@ // Codebase: https://github.com/ArKuznetsov/irac/ // ---------------------------------------------------------- +Перем Кластер_Агент; Перем ПараметрыКластера; Перем ПараметрыТестирования; Перем ВозвращаемыеЗначения; Перем Лог; +Процедура УстановитьАгентКластера(АгентКластера) Экспорт + + Кластер_Агент = АгентКластера; + +КонецПроцедуры // УстановитьАгентКластера() + +Функция АгентКластера(АгентКластера) Экспорт + + Возврат Кластер_Агент; + +КонецФункции // АгентКластера() + // Процедура устанавливает вывод функции ВыполнитьКоманду мок-исполнителя команд // // Параметры: // ИсполнительКоманд - МокИсполнительКоманд - мок-объект исполнитель команд -// ПутьКДанным - Строка - Путь к параметрам в структуре параметров кластера +// ПутьКДанным - Строка - Путь к параметрам в структуре параметров кластера // Процедура УстановитьВыводИсполнителяКоманд(ИсполнительКоманд, ПутьКДанным) Экспорт @@ -61,7 +74,7 @@ КонецФункции // Кластер_Ид() -Функция Агент_СтрокаАвторизации() +Функция Агент_ПараметрыАвторизации() Если НЕ Параметры().Свойство("Агент_Администратор") Тогда Возврат ""; @@ -71,17 +84,18 @@ Возврат ""; КонецЕсли; - СтрокаАвторизации = СтрШаблон("--agent-user=%1", Служебный.ОбернутьВКавычки(Параметры().Агент_Администратор)); + ПараметрыАвторизации = Служебный.ПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Агенты); + ПараметрыАвторизации.Вставить("Администратор", Параметры().Агент_Администратор); Если Не ПустаяСтрока(Параметры().Агент_Пароль) Тогда - СтрокаАвторизации = СтрокаАвторизации + СтрШаблон(" --agent-pwd=%1", Параметры().Агент_Пароль); + ПараметрыАвторизации.Вставить("Пароль", Параметры().Агент_Пароль); КонецЕсли; - Возврат СтрокаАвторизации; + Возврат ПараметрыАвторизации; -КонецФункции // Кластер_СтрокаАвторизации() +КонецФункции // Агент_ПараметрыАвторизации() -Функция Кластер_СтрокаАвторизации() +Функция Кластер_ПараметрыАвторизации() Если НЕ Параметры().Свойство("Кластер_Администратор") Тогда Возврат ""; @@ -91,15 +105,16 @@ Возврат ""; КонецЕсли; - СтрокаАвторизации = СтрШаблон("--cluster-user=%1", Служебный.ОбернутьВКавычки(Параметры().Кластер_Администратор)); + ПараметрыАвторизации = Служебный.ПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Кластеры); + ПараметрыАвторизации.Вставить("Администратор", Параметры().Кластер_Администратор); Если Не ПустаяСтрока(Параметры().Кластер_Пароль) Тогда - СтрокаАвторизации = СтрокаАвторизации + СтрШаблон(" --cluster-pwd=%1", Параметры().Кластер_Пароль); + ПараметрыАвторизации.Вставить("Пароль", Параметры().Кластер_Пароль); КонецЕсли; - Возврат СтрокаАвторизации; + Возврат ПараметрыАвторизации; -КонецФункции // Кластер_СтрокаАвторизации() +КонецФункции // Кластер_ПараметрыАвторизации() Функция Сервер_Ид() @@ -117,7 +132,7 @@ КонецФункции // ПрофильБезопасности_Имя() -Функция ИБ_СтрокаАвторизации() +Функция ИБ_ПараметрыАвторизации() Если НЕ Параметры().Свойство("ИБ_Администратор") Тогда Возврат ""; @@ -127,23 +142,24 @@ Возврат ""; КонецЕсли; - СтрокаАвторизации = СтрШаблон("--infobase-user=%1", Служебный.ОбернутьВКавычки(Параметры().ИБ_Администратор)); + ПараметрыАвторизации = Служебный.ПараметрыАвторизации(Перечисления.РежимыАдминистрирования.ИнформационныеБазы); + ПараметрыАвторизации.Вставить("Администратор", Параметры().ИБ_Администратор); Если Не ПустаяСтрока(Параметры().ИБ_Пароль) Тогда - СтрокаАвторизации = СтрокаАвторизации + СтрШаблон(" --infobase-pwd=%1", Параметры().ИБ_Пароль); + ПараметрыАвторизации.Вставить("Пароль", Параметры().ИБ_Пароль); КонецЕсли; - Возврат СтрокаАвторизации; + Возврат ПараметрыАвторизации; -КонецФункции // ИБ_СтрокаАвторизации() +КонецФункции // ИБ_ПараметрыАвторизации() Функция Вывод_АдминистраторыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента", Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента", Агент_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииАгента", Агент_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.АдминистраторыАгента, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.АдминистраторыАгента, ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["Администраторы"]; @@ -155,10 +171,10 @@ Функция Вывод_АдминистраторыСписокПослеДобавления() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента", Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента", Агент_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииАгента", Агент_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.АдминистраторыАгента, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.АдминистраторыАгента, ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["Администраторы"] + ВозвращаемыеЗначения["Администраторы.Добавление"]; @@ -172,7 +188,9 @@ ПараметрыКоманды = Новый Соответствие(); ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Кластеры, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.Кластеры, + ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["Кластеры"]; @@ -192,7 +210,9 @@ ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); ПараметрыКоманды.Вставить("ИдентификаторКластера" , ТекКластер["cluster"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Кластеры, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.Кластеры, + ПараметрыКоманды); ВыводКоманды = ТекКластер["ТекстОбъекта"]; @@ -209,12 +229,11 @@ Функция Вывод_КластерыАдминистраторыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента" , Агент_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.АдминистраторыКластера, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.АдминистраторыКластера, ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["Кластеры.Администраторы"]; @@ -226,12 +245,11 @@ Функция Вывод_КластерыАдминистраторыСписокПослеДобавления() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииАгента" , Агент_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.АдминистраторыКластера, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.АдминистраторыКластера, ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["Кластеры.Администраторы"] @@ -244,11 +262,13 @@ Функция Вывод_МенеджерыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.МенеджерыКластера, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.МенеджерыКластера, + ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["Менеджеры"]; @@ -265,12 +285,14 @@ Для Каждого ТекМенеджер Из Менеджеры Цикл ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторМенеджера" , ТекМенеджер["manager"]); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторМенеджера" , ТекМенеджер["manager"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.МенеджерыКластера, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.МенеджерыКластера, + ПараметрыКоманды); ВыводКоманды = ТекМенеджер["ТекстОбъекта"]; @@ -287,11 +309,11 @@ Функция Вывод_СерверыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Серверы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Серверы, ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["Серверы"]; @@ -308,12 +330,14 @@ Для Каждого ТекСервер Из Серверы Цикл ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторСервера" , ТекСервер["server"]); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторСервера" , ТекСервер["server"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Серверы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.Серверы, + ПараметрыКоманды); ВыводКоманды = ТекСервер["ТекстОбъекта"]; @@ -330,11 +354,11 @@ Функция Вывод_СерверыСписокПослеДобавления() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Серверы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Серверы, ПараметрыКоманды); ВыводКоманды = ""; @@ -354,9 +378,9 @@ ПортАгента = Серверы[0].Получить("agent-port"); ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); ПараметрыКоманды.Вставить("Имя" , Имя); ПараметрыКоманды.Вставить("АдресАгента" , АдресАгента); @@ -373,7 +397,7 @@ Серверы[0].Получить("safe-working-processes-memory-limit")); ПараметрыКоманды.Вставить("БезопасныйРасходПамятиЗаОдинВызов" , Серверы[0].Получить("safe-call-memory-limit")); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Серверы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Серверы, ПараметрыКоманды); ВремТекст = Новый ТекстовыйДокумент(); ВремТекст.УстановитьТекст(ВозвращаемыеЗначения["Серверы.Добавление"]); @@ -386,11 +410,13 @@ Функция Вывод_РабочиеПроцессыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.РабочиеПроцессы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.РабочиеПроцессы, + ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["РабочиеПроцессы"]; @@ -407,12 +433,14 @@ Для Каждого ТекПроцесс Из Процессы Цикл ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторПроцесса" , ТекПроцесс["process"]); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторПроцесса" , ТекПроцесс["process"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.РабочиеПроцессы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.РабочиеПроцессы, + ПараметрыКоманды); ВыводКоманды = ТекПроцесс["ТекстОбъекта"]; @@ -429,11 +457,11 @@ Функция Вывод_РабочиеПроцессыСписокЛицензии() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ЛицензииПроцессов, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ЛицензииПроцессов, ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["РабочиеПроцессы.Лицензии"]; @@ -449,15 +477,15 @@ ПроцессыЛицензии = РазобратьВыводКоманды(ВозвращаемыеЗначения["РабочиеПроцессы.Лицензии"]); ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); Для Каждого ТекПроцесс Из ПроцессыЛицензии Цикл ПараметрыКоманды.Вставить("ИдентификаторПроцесса" , ТекПроцесс["process"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ЛицензииПроцессов, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ЛицензииПроцессов, ПараметрыКоманды); ВыводКоманды = ТекПроцесс["ТекстОбъекта"]; @@ -499,11 +527,13 @@ Функция Вывод_ИБСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ИнформационныеБазы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.ИнформационныеБазы, + ПараметрыКоманды); ВыводКоманды = ""; @@ -528,12 +558,12 @@ Для Каждого ТекИб Из ИБ Цикл ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторИБ" , ТекИБ["infobase"]); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторИБ" , ТекИБ["infobase"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ИнформационныеБазы, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ИнформационныеБазы, ПараметрыКоманды); ВыводКоманды = СокращенныйТекстОписанияИБ(ТекИБ["ТекстОбъекта"]); @@ -557,13 +587,13 @@ Для Каждого ТекИб Из ИБ Цикл ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторИБ" , ТекИБ["infobase"]); - ПараметрыКоманды.Вставить("СтрокаАвторизацииИБ" , ИБ_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторИБ" , ТекИБ["infobase"]); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииИБ" , ИБ_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ИнформационныеБазы, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ИнформационныеБазы, ПараметрыКоманды); ВыводКоманды = ТекИБ["ТекстОбъекта"]; @@ -587,13 +617,13 @@ Для Каждого ТекИб Из ИБ Цикл ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИдентификаторИБ" , ТекИБ["infobase"]); - ПараметрыКоманды.Вставить("СтрокаАвторизацииИБ" , ""); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИдентификаторИБ" , ТекИБ["infobase"]); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииИБ" , ""); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ИнформационныеБазы, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ИнформационныеБазы, ПараметрыКоманды); ВыводКоманды = СтрШаблон("Недостаточно прав пользователя для доступа к базе %1", ТекИБ["name"]); @@ -611,11 +641,11 @@ Функция Вывод_ИБСписокПослеДобавления() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ИнформационныеБазы, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ИнформационныеБазы, ПараметрыКоманды); ВыводКоманды = ""; @@ -640,9 +670,9 @@ Локализация = "ru_RU"; ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); ПараметрыКоманды.Вставить("Имя" , Имя); ПараметрыКоманды.Вставить("Локализация" , Локализация); @@ -656,7 +686,9 @@ ПараметрыКоманды.Вставить("БлокировкаРегламентныхЗаданийВключена", Перечисления.СостоянияВыключателя.Выключено); ПараметрыКоманды.Вставить("ВыдачаЛицензийСервером" , Перечисления.ПраваДоступа.Разрешено); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ИнформационныеБазы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.ИнформационныеБазы, + ПараметрыКоманды); ВремТекст = Новый ТекстовыйДокумент(); ВремТекст.УстановитьТекст(ВозвращаемыеЗначения["ИнформационныеБазы.Добавление"]); @@ -669,11 +701,11 @@ Функция Вывод_СеансыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Сеансы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Сеансы, ПараметрыКоманды); ВыводКоманды = ""; @@ -694,9 +726,9 @@ Результат = Новый Массив(); ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); Сеансы = РазобратьВыводКоманды(ВозвращаемыеЗначения["Сеансы"]); @@ -704,7 +736,7 @@ ПараметрыКоманды.Вставить("ИдентификаторСеанса" , ТекСеанс["session"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Сеансы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Сеансы, ПараметрыКоманды); ВыводКоманды = ТекСеанс["ТекстОбъекта"]; @@ -721,11 +753,11 @@ Функция Вывод_СеансыСписокЛицензии() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ЛицензииСеансов, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ЛицензииСеансов, ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["Сеансы.Лицензии"]; @@ -741,15 +773,15 @@ СеансыЛицензии = РазобратьВыводКоманды(ВозвращаемыеЗначения["Сеансы.Лицензии"]); ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); Для Каждого ТекСеанс Из СеансыЛицензии Цикл ПараметрыКоманды.Вставить("ИдентификаторСеанса" , ТекСеанс["session"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ЛицензииСеансов, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ЛицензииСеансов, ПараметрыКоманды); ВыводКоманды = ТекСеанс["ТекстОбъекта"]; @@ -767,11 +799,13 @@ Функция Вывод_СоединенияСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Соединения, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.Соединения, + ПараметрыКоманды); ВыводКоманды = ""; @@ -790,11 +824,13 @@ Функция Вывод_БлокировкиСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Блокировки, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.Блокировки, + ПараметрыКоманды); ВыводКоманды = ""; @@ -813,11 +849,11 @@ Функция Вывод_СервисыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Сервисы, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.Сервисы, ПараметрыКоманды); ВыводКоманды = ""; @@ -836,13 +872,13 @@ Функция Вывод_НазначенияФункциональностиСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСервера" , Сервер_Ид()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.НазначенияФункциональности, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.НазначенияФункциональности, ПараметрыКоманды); ВыводКоманды = ""; @@ -864,14 +900,14 @@ Назначения = РазобратьВыводКоманды(ВозвращаемыеЗначения["НазначенияФункциональности"]); ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИдентификаторСервера" , Сервер_Ид()); ПараметрыКоманды.Вставить("ИдентификаторТребования" , Назначения[0]["rule"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.НазначенияФункциональности, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.НазначенияФункциональности, ПараметрыКоманды); ВыводКоманды = ""; @@ -885,11 +921,11 @@ Функция Вывод_ПрофилиБезопасностиСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ПрофилиБезопасности, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ПрофилиБезопасности, ПараметрыКоманды); ВыводКоманды = ""; @@ -909,14 +945,14 @@ Функция Вывод_ПрофилиБезопасностиКаталогиСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); ПараметрыКоманды.Вставить("ВидОбъектовПрофиля", Перечисления.ВидыОбъектовПрофиляБезопасности.Каталог); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.КаталогиПрофиля, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.КаталогиПрофиля, ПараметрыКоманды); ВыводКоманды = ""; @@ -936,14 +972,14 @@ Функция Вывод_ПрофилиБезопасностиCOMКлассыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); ПараметрыКоманды.Вставить("ВидОбъектовПрофиля", Перечисления.ВидыОбъектовПрофиляБезопасности.COMКласс); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.COMКлассыПрофиля, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.COMКлассыПрофиля, ПараметрыКоманды); ВыводКоманды = ""; @@ -963,14 +999,14 @@ Функция Вывод_ПрофилиБезопасностиКомпонентыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); ПараметрыКоманды.Вставить("ВидОбъектовПрофиля", Перечисления.ВидыОбъектовПрофиляБезопасности.Компонент); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ВнешниеКомпонентыПрофиля, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ВнешниеКомпонентыПрофиля, ПараметрыКоманды); ВыводКоманды = ""; @@ -990,14 +1026,14 @@ Функция Вывод_ПрофилиБезопасностиМодулиСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); ПараметрыКоманды.Вставить("ВидОбъектовПрофиля", Перечисления.ВидыОбъектовПрофиляБезопасности.Модуль); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.МодулиПрофиля, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.МодулиПрофиля, ПараметрыКоманды); ВыводКоманды = ""; @@ -1017,14 +1053,14 @@ Функция Вывод_ПрофилиБезопасностиПриложенияСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); ПараметрыКоманды.Вставить("ВидОбъектовПрофиля", Перечисления.ВидыОбъектовПрофиляБезопасности.Приложение); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ПриложенияПрофиля, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ПриложенияПрофиля, ПараметрыКоманды); ВыводКоманды = ""; @@ -1044,14 +1080,14 @@ Функция Вывод_ПрофилиБезопасностиИнтернетРесурсыСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); - ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); + ПараметрыКоманды.Вставить("ИмяПрофиля" , ПрофильБезопасности_Имя()); ПараметрыКоманды.Вставить("ВидОбъектовПрофиля", Перечисления.ВидыОбъектовПрофиляБезопасности.ИнтернетРесурс); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ИнтернетРесурсыПрофиля, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, Перечисления.РежимыАдминистрирования.ИнтернетРесурсыПрофиля, ПараметрыКоманды); ВыводКоманды = ""; @@ -1071,11 +1107,13 @@ Функция Вывод_СчетчикиРесурсовСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.СчетчикиРесурсов, ПараметрыКоманды); + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.СчетчикиРесурсов, + ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["СчетчикиРесурсов"]; @@ -1088,9 +1126,9 @@ Результат = Новый Массив(); ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); Счетчики = РазобратьВыводКоманды(ВозвращаемыеЗначения["СчетчикиРесурсов"]); @@ -1098,9 +1136,10 @@ ПараметрыКоманды.Вставить("ИмяСчетчика", ТекСчетчик["name"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.СчетчикиРесурсов, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.СчетчикиРесурсов, ПараметрыКоманды); - + ВыводКоманды = ТекСчетчик["ТекстОбъекта"]; Результат.Добавить(Новый Структура("ПараметрыКоманды, ВыводКоманды", @@ -1118,13 +1157,14 @@ Счетчики = РазобратьВыводКоманды(ВозвращаемыеЗначения["СчетчикиРесурсов"]); ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); ПараметрыКоманды.Вставить("ИмяСчетчика", Счетчики[0]["name"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.СчетчикиРесурсов, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.СчетчикиРесурсов, ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["СчетчикиРесурсов.Значения"]; @@ -1136,11 +1176,12 @@ Функция Вывод_ОграниченияРесурсовСписок() ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ОграниченияРесурсов, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.ОграниченияРесурсов, ПараметрыКоманды); ВыводКоманды = ВозвращаемыеЗначения["ОграниченияРесурсов"]; @@ -1154,9 +1195,9 @@ Результат = Новый Массив(); ПараметрыКоманды = Новый Соответствие(); - ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); - ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); - ПараметрыКоманды.Вставить("СтрокаАвторизацииКластера", Кластер_СтрокаАвторизации()); + ПараметрыКоманды.Вставить("СтрокаПодключенияАгента" , Агент_СтрокаПодключения()); + ПараметрыКоманды.Вставить("ИдентификаторКластера" , Кластер_Ид()); + ПараметрыКоманды.Вставить("ПараметрыАвторизацииКластера", Кластер_ПараметрыАвторизации()); Ограничения = РазобратьВыводКоманды(ВозвращаемыеЗначения["ОграниченияРесурсов"]); @@ -1164,7 +1205,8 @@ ПараметрыКоманды.Вставить("ИмяОграничения", ТекОграничение["name"]); - ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.ОграниченияРесурсов, + ПараметрыОбъекта = Новый КомандыОбъекта(Кластер_Агент, + Перечисления.РежимыАдминистрирования.ОграниченияРесурсов, ПараметрыКоманды); ВыводКоманды = ТекОграничение["ТекстОбъекта"]; diff --git a/tests/irac-test.os b/tests/irac-test.os index d1458bc..6fadef8 100644 --- a/tests/irac-test.os +++ b/tests/irac-test.os @@ -32,7 +32,8 @@ Если АгентКластера = Неопределено Тогда АгентКластера = Новый УправлениеКластером1С("", АдресСервера); - КонецЕсли; + ПараметрыТестирования.УстановитьАгентКластера(АгентКластера); + КонецЕсли; Если ИсполнительКоманд = Неопределено Тогда ИспользоватьМок = Истина; diff --git a/travis.sh b/travis.sh index 5f1deda..dc9d0e7 100644 --- a/travis.sh +++ b/travis.sh @@ -16,6 +16,8 @@ if [ "$TRAVIS_SECURE_ENV_VARS" == "true" ]; then -Dsonar.github.repository=$TRAVIS_REPO_SLUG \ -Dsonar.github.oauth=$SONAR_GITHUB_TOKEN \ -Dsonar.login=$SONAR_TOKEN \ + -Dsonar.scm.enabled=true \ + -Dsonar.scm.provider=git \ -Dsonar.scanner.skip=false \ -Dsonar.branch.name=master @@ -24,6 +26,8 @@ if [ "$TRAVIS_SECURE_ENV_VARS" == "true" ]; then -Dsonar.host.url=$SONAR_HOST \ -Dsonar.login=$SONAR_TOKEN \ -Dsonar.projectVersion=$version \ + -Dsonar.scm.enabled=true \ + -Dsonar.scm.provider=git \ -Dsonar.scanner.skip=false \ -Dsonar.branch.name=master fi