diff --git a/packagedef b/packagedef index 01d8342..c9224f0 100644 --- a/packagedef +++ b/packagedef @@ -1,6 +1,6 @@  Описание.Имя("irac") - .Версия("1.1.1") + .Версия("1.1.2") .Автор("Artem Kuznetsov") .АдресАвтора("ArKuznetsov@gmail.com") .Описание("Библиотека администрирования кластера серверов 1С") diff --git a/readme.md b/readme.md index 14266c9..70ab230 100644 --- a/readme.md +++ b/readme.md @@ -155,16 +155,17 @@ Основной класс библиотеки. Предоставляет интерфейс управления серверами 1С. ```bsl - УправлениеКластером = Новый УправлениеКластером1С("localhost", 1545, "8.3.10", "admin", "P@ssw0rd"); + Админ = Новый Структура("Администратор, Пароль", "admin", "P@ssw0rd") + УправлениеКластером = Новый УправлениеКластером1С("8.3.10", "localhost:1545", Админ); ``` | Параметры конструктора ||| |-|-|-| -| **АдресСервера** |Строка|имя сервера агента администрирования (RAS)| -| **ПортСервера** |Число|порт сервера агента администрирования (RAS)| -| **ВерсияИлиПутьКРАК** |Строка|маска версии 1С или путь к утилите RAC| -| **Администратор** |Строка|администратор агента сервера 1С| -| **ПарольАдминистратора** |Строка|пароль администратора агента сервера 1С| +| **ВерсияИлиПутьКУтилитеАдминистрирования** |Строка|маска версии 1С или путь к утилите RAC| +| **СтрокаПодключенияСервиса** |Строка|адрес:порт сервиса агента администрирования (RAS) (по умолчанию: "localhost:1545")| +| **Администратор** |Структура|параметры администратора агента сервера 1С| +|    *- Администратор* |    *Строка* |    *имя администратора агента сервера 1С*| +|    *- Пароль* |    *Строка* |    *пароль администратора агента сервера 1С*| | Методы ||| |-|-|-| @@ -184,7 +185,8 @@ Вспомогательный объект для выполнения команд. Непосредственно вызывает утилиту RAC. ```bsl - УправлениеКластером = Новый УправлениеКластером1С("localhost", 1545, "8.3.10", "admin", "P@ssw0rd"); + Админ = Новый Структура("Администратор, Пароль", "admin", "P@ssw0rd") + УправлениеКластером = Новый УправлениеКластером1С("8.3.10", "localhost:1545", Админ); УправлениеКластером.УстановитьИсполнительКоманд(Новый ИсполнительКоманд("8.3")); ``` @@ -206,12 +208,14 @@ Объект предоставляет доступ к списку кластеров, доступных для администрирования. ```bsl - УправлениеКластером = Новый УправлениеКластером1С("localhost", 1545, "8.3.10", "admin", "P@ssw0rd"); + Админ = Новый Структура("Администратор, Пароль", "admin", "P@ssw0rd") + УправлениеКластером = Новый УправлениеКластером1С("8.3.10", "localhost:1545", Админ); СписокКластеров = Новый Кластеры(УправлениеКластером); ``` ```bsl - УправлениеКластером = Новый УправлениеКластером1С("localhost", 1545, "8.3.10", "admin", "P@ssw0rd"); + Админ = Новый Структура("Администратор, Пароль", "admin", "P@ssw0rd") + УправлениеКластером = Новый УправлениеКластером1С("8.3.10", "localhost:1545", Админ); СписокКластеров = УправлениеКластером.Кластеры(); ``` 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 4a5c2ca..7fd7388 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" @@ -130,14 +130,14 @@ Если АвторизацияАгента Тогда ДобавитьПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Агенты, "ПараметрыАвторизацииАгента", - "agent"); + "agent"); КонецЕсли; Если Команда.Кластер Тогда ДобавитьИменованныйПараметр("cluster", "ИдентификаторКластера", Истина); ДобавитьПараметрыАвторизации(Перечисления.РежимыАдминистрирования.Кластеры, - "ПараметрыАвторизацииКластера", - ЗначенияПараметров["ИдентификаторКластера"]); + "ПараметрыАвторизацииКластера", + ЗначенияПараметров["ИдентификаторКластера"]); КонецЕсли; Если ТипОбъекта.Свойство("Владелец") И Команда.ДочернийРежимАдминистрирования Тогда @@ -385,11 +385,11 @@ Параметр = ""; КонецЕсли; - Если НЕ ЗначениеЗаполнено(Параметр) И Обязательный Тогда + Если НЕ Параметр = Неопределено И Обязательный Тогда ВызватьИсключение СтрШаблон("Не заполнен обязательный параметр %1!", Имя); КонецЕсли; - Если ЗначениеЗаполнено(Параметр) ИЛИ ДобавлятьПустой Тогда + Если Параметр = Неопределено ИЛИ ДобавлятьПустой Тогда ПараметрыЗапуска.Добавить(Параметр); КонецЕсли; @@ -450,9 +450,16 @@ // Процедура ДобавитьИменованныйПараметр(Знач ПараметрРАК, Знач ИмяЗначения, Знач Обязательный = Ложь) + Для Каждого ТекПараметр Из ПараметрыЗапуска Цикл + Если ТипЗнч(ТекПараметр) = Тип("Структура") + И ВРег(ТекПараметр.Параметр) = ВРег(ПараметрРАК) Тогда + Возврат; + КонецЕсли; + КонецЦикла; + ЗначениеПараметра = ЗначенияПараметров.Получить(ИмяЗначения); - Если НЕ ЗначениеЗаполнено(ЗначениеПараметра) Тогда + Если ЗначениеПараметра = Неопределено Тогда Если Обязательный Тогда ВызватьИсключение СтрШаблон("Не заполнен обязательный параметр %1!", ИмяЗначения); Иначе @@ -463,7 +470,7 @@ Если ТипЗнч(ЗначениеПараметра) = Тип("Число") Тогда ЗначениеПараметра = Формат(ЗначениеПараметра, "ЧРГ=' '; ЧГ=0"); ИначеЕсли ТипЗнч(ЗначениеПараметра) = Тип("Дата") Тогда - ЗначениеПараметра = Формат(ЗначениеПараметра, "ДФ='гггг-ММ-ддTчч:мм:сс'"); + ЗначениеПараметра = Формат(ЗначениеПараметра, "ДФ='гггг-ММ-ддTЧЧ:мм:сс'"); ИначеЕсли ТипЗнч(ЗначениеПараметра) = Тип("Строка") И (СтрНайти(ЗначениеПараметра, " ") > 0 ИЛИ СтрНайти(ЗначениеПараметра, """") > 0) Тогда ЗначениеПараметра = Служебный.ОбернутьВКавычки(ЗначениеПараметра); diff --git a/tasks/testib001.os b/tasks/testib001.os deleted file mode 100644 index 7b509f1..0000000 --- a/tasks/testib001.os +++ /dev/null @@ -1,18 +0,0 @@ -#Использовать "../src" - -АдминПарам = Новый Структура("Администратор, Пароль", "admin", "q2w3e4r5"); -Админка = Новый УправлениеКластером1С(, , АдминПарам); -Админка.Лог().УстановитьУровень(УровниЛога.Отладка); - -СписокИБ = Админка.Кластеры().Список()[0].ИнформационныеБазы().Список(); - -НовыеПараметрыИБ = Новый Структура(); -НовыеПараметрыИБ.Вставить("БлокировкаСеансовВключена", Перечисления.СостоянияВыключателя.Включено); - -Для Каждого ТекИб Из СписокИБ Цикл - Если ТекИб.Имя() = "DEV_TEST" Тогда - ТекИБ.УстановитьАдминистратора("admin", "test"); - ТекИб.Изменить(НовыеПараметрыИБ); - КонецЕсли; - // Сообщить(ТекИБ.Имя()); -КонецЦикла; \ No newline at end of file