Merge branch 'release/v.0.9.2'

Wadus16 · Sep 25, 2019 · eb481d5 · eb481d5
2 parents a53b636 + bc2eac5
commit eb481d5
Show file tree

Hide file tree

Showing 36 changed files with 664 additions and 216 deletions.
diff --git a/lib.config b/lib.config
@@ -9,6 +9,7 @@
 	<class name="СерверыКластера" file="src/Классы/СерверыКластера.os"/>
 	<class name="Сервер" file="src/Классы/Сервер.os"/>
 	<class name="МенеджерыКластера" file="src/Классы/МенеджерыКластера.os"/>
+	<class name="МенеджерКластера" file="src/Классы/МенеджерКластера.os"/>
 	<class name="РабочиеПроцессы" file="src/Классы/РабочиеПроцессы.os"/>
 	<class name="РабочийПроцесс" file="src/Классы/РабочийПроцесс.os"/>
 	<class name="Сервисы" file="src/Классы/Сервисы.os"/>

diff --git a/packagedef b/packagedef
@@ -1,6 +1,6 @@
 
 Описание.Имя("irac")
-		.Версия("0.9.1")
+		.Версия("0.9.2")
         .Автор("Artem Kuznetsov")
         .АдресАвтора("[email protected]")
         .Описание("Библиотека администрирования кластера серверов 1С")

diff --git a/src/lib.config b/src/lib.config
@@ -9,6 +9,7 @@
 	<class name="СерверыКластера" file="Классы/СерверыКластера.os"/>
 	<class name="Сервер" file="Классы/Сервер.os"/>
 	<class name="МенеджерыКластера" file="Классы/МенеджерыКластера.os"/>
+	<class name="МенеджерКластера" file="Классы/МенеджерКластера.os"/>
 	<class name="РабочиеПроцессы" file="Классы/РабочиеПроцессы.os"/>
 	<class name="РабочийПроцесс" file="Классы/РабочийПроцесс.os"/>
 	<class name="Сервисы" file="Классы/Сервисы.os"/>

diff --git a/src/Классы/АдминистраторыАгента.os b/src/Классы/АдминистраторыАгента.os
@@ -16,10 +16,12 @@
 // Конструктор
 //   
 // Параметры:
-//   АгентКластера            - АгентКластера    - ссылка на родительский объект агента кластера
+//   АгентКластера         - АгентКластера    - ссылка на родительский объект агента кластера
 //
 Процедура ПриСозданииОбъекта(АгентКластера)
 
+	Лог = Служебный.Лог();
+
 	Кластер_Агент = АгентКластера;
 
 	ПараметрыОбъекта = Новый КомандыОбъекта("agent.admin");
@@ -242,4 +244,3 @@
 
 КонецПроцедуры // Удалить()
 
-Лог = Логирование.ПолучитьЛог("oscript.lib.irac");
diff --git a/src/Классы/АдминистраторыКластера.os b/src/Классы/АдминистраторыКластера.os
@@ -17,11 +17,13 @@
 // Конструктор
 //   
 // Параметры:
-//   АгентКластера        - АгентКластера    - ссылка на родительский объект агента кластера
-//   Кластер            - Кластер        - ссылка на родительский объект кластера
+//   АгентКластера      - АгентКластера   - ссылка на родительский объект агента кластера
+//   Кластер            - Кластер         - ссылка на родительский объект кластера
 //
 Процедура ПриСозданииОбъекта(АгентКластера, Кластер)
 
+	Лог = Служебный.Лог();
+
 	Кластер_Агент = АгентКластера;
 	Кластер_Владелец = Кластер;
 
@@ -245,5 +247,3 @@
 	ОбновитьДанные(Истина);
 
 КонецПроцедуры // Удалить()
-
-Лог = Логирование.ПолучитьЛог("oscript.lib.irac");
diff --git a/src/Классы/АдминистрированиеКластера.os b/src/Классы/АдминистрированиеКластера.os
@@ -15,30 +15,37 @@
 Перем Кластеры_Администраторы;
 Перем ВыводКоманды;
 Перем Кластеры;
-Перем Лог;
+
+Перем ПараметрыОбъекта;
 
 Перем ОбработчикОшибок;
 
+Перем Лог;
+
 // Конструктор
 //   
 // Параметры:
-//   АдресСервера            - Строка    - имя сервера агента администрирования (RAS)
-//   ПортСервера            - Число        - порт сервера агента администрирования (RAS)
-//   ВерсияИлиПутьКРАК        - Строка    - маска версии 1С или путь к утилите RAC
-//   Администратор             - Строка    - администратор агента сервера 1С
-//   ПарольАдминистратора     - Строка    - пароль администратора агента сервера 1С
+//   АдресСервера           - Строка    - имя сервера агента администрирования (RAS)
+//   ПортСервера            - Число     - порт сервера агента администрирования (RAS)
+//   ВерсияИлиПутьКРАК      - Строка    - маска версии 1С или путь к утилите RAC
+//   Администратор          - Строка    - администратор агента сервера 1С
+//   ПарольАдминистратора   - Строка    - пароль администратора агента сервера 1С
 //
 Процедура ПриСозданииОбъекта(АдресСервера
 	                       , ПортСервера
 	                       , ВерсияИлиПутьКРАК = "8.3"
 	                       , Администратор = ""
 	                       , ПарольАдминистратора = "")
 
+	Лог = Служебный.Лог();
+
 	Админ_АдресСервера = АдресСервера;
 	Админ_ПортСервера = ПортСервера;
 
 	Агент_ИсполнительКоманд = Новый ИсполнительКоманд(ВерсияИлиПутьКРАК);
 
+	ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Агент);
+
 	Если ЗначениеЗаполнено(Администратор) Тогда
 		Агент_Администратор = Новый Структура("Администратор, Пароль", Администратор, ПарольАдминистратора);
 	Иначе
@@ -102,7 +109,7 @@
 //   
 // Параметры:
 //   Администратор         - Строка    - администратор агента сервера 1С
-//   Пароль                 - Строка    - пароль администратора агента сервера 1С
+//   Пароль                - Строка    - пароль администратора агента сервера 1С
 //
 Процедура УстановитьАдминистратора(Администратор, Пароль) Экспорт
 
@@ -209,7 +216,7 @@
 // Функция возвращает текст результата выполнения команды
 //   
 // Параметры:
-//    РазобратьВывод        - Булево         - Истина - выполнить преобразование вывода команды в структуру
+//    РазобратьВывод        - Булево      - Истина - выполнить преобразование вывода команды в структуру
 //                                          Ложь - вернуть текст вывода команды как есть
 //
 // Возвращаемое значение:
@@ -293,6 +300,39 @@
 
 КонецФункции // ОписаниеПодключения()
 
+// Функция возвращает адрес сервера RAS
+//   
+// Возвращаемое значение:
+//    Строка - адрес сервера RAS
+//
+Функция АдресСервераАдминистрирования() Экспорт
+
+	Возврат Админ_АдресСервера;
+
+КонецФункции // АдресСервераАдминистрирования()
+
+// Функция возвращает порт сервера RAS
+//   
+// Возвращаемое значение:
+//    Строка - порт сервера RAS
+//
+Функция ПортСервераАдминистрирования() Экспорт
+
+	Возврат Админ_ПортСервера;
+
+КонецФункции // ПортСервераАдминистрирования()
+
+// Функция возвращает версию утилиты администрирования RAC
+//   
+// Возвращаемое значение:
+//    Строка - версия утилиты администрирования RAC
+//
+Функция ВерсияУтилитыАдминистрирования() Экспорт
+
+	Возврат СокрЛП(Агент_ИсполнительКоманд.ВерсияУтилитыАдминистрирования());
+
+КонецФункции // ВерсияУтилитыАдминистрирования()
+
 // Функция возвращает список администраторов агента кластера 1С
 //   
 // Возвращаемое значение:
@@ -315,4 +355,53 @@
 
 КонецФункции // Кластеры()    
 
-Лог = Логирование.ПолучитьЛог("oscript.lib.irac");
+// Функция возвращает коллекцию параметров объекта
+//   
+// Параметры:
+//   ИмяПоляКлюча         - Строка    - имя поля, значение которого будет использовано
+//                                      в качестве ключа возвращаемого соответствия
+//   
+// Возвращаемое значение:
+//    Соответствие - коллекция параметров объекта, для получения/изменения значений
+//
+Функция ПараметрыОбъекта(ИмяПоляКлюча = "Имя") Экспорт
+
+	Возврат ПараметрыОбъекта.ОписаниеСвойств(ИмяПоляКлюча);
+
+КонецФункции // ПараметрыОбъекта()
+
+// Функция возвращает значение параметра администрирования кластера 1С
+//   
+// Параметры:
+//   ИмяПоля                 - Строка        - Имя параметра кластера
+//   ОбновитьПринудительно   - Булево        - Истина - обновить список (вызов RAC)
+//
+// Возвращаемое значение:
+//    Произвольный - значение параметра кластера 1С
+//
+Функция Получить(ИмяПоля, ОбновитьПринудительно = Ложь) Экспорт
+
+	Если НЕ Найти(ВРЕг("АдресСервераАдминистрирования, ras-host"), ВРег(ИмяПоля)) = 0 Тогда
+		Возврат АдресСервераАдминистрирования();
+	ИначеЕсли НЕ Найти(ВРЕг("ПортСервераАдминистрирования, ras-port"), ВРег(ИмяПоля)) = 0 Тогда
+		Возврат ПортСервераАдминистрирования();
+	ИначеЕсли НЕ Найти(ВРЕг("ВерсияУтилитыАдминистрирования, rac-version"), ВРег(ИмяПоля)) = 0 Тогда
+		Возврат ВерсияУтилитыАдминистрирования();
+	Иначе
+		ЗначениеПоля = Неопределено;
+	КонецЕсли;
+
+	Возврат ЗначениеПоля;
+
+КонецФункции // Получить()
+
+// Функция возвращает лог библиотеки
+//   
+// Возвращаемое значение:
+//    Логгер - лог библиотеки
+//
+Функция Лог() Экспорт
+
+	Возврат Лог;
+
+КонецФункции // Лог()    
diff --git a/src/Классы/Блокировки.os b/src/Классы/Блокировки.os
@@ -21,19 +21,19 @@
 // Конструктор
 //   
 // Параметры:
-//   АгентКластера    - АгентКластера            - ссылка на родительский объект агента кластера
-//   Кластер        - Кластер                - ссылка на родительский объект кластера
-//   ИБ                - ИнформационнаяБаза    - ссылка на родительский объект информационной базы
-//   Сеанс            - ИнформационнаяБаза    - ссылка на родительский объект сеанса
-//   Соединение        - ИнформационнаяБаза    - ссылка на родительский объект соединения
+//   АгентКластера    - АгентКластера        - ссылка на родительский объект агента кластера
+//   Кластер          - Кластер              - ссылка на родительский объект кластера
+//   ИБ               - ИнформационнаяБаза   - ссылка на родительский объект информационной базы
+//   Сеанс            - Сеанс                - ссылка на родительский объект сеанса
+//   Соединение       - Соединение           - ссылка на родительский объект соединения
 //
 Процедура ПриСозданииОбъекта(АгентКластера, Кластер, ИБ = Неопределено, Сеанс = Неопределено, Соединение = Неопределено)
 
 	Кластер_Агент        = АгентКластера;
-	Кластер_Владелец    = Кластер;
-	ИБ_Владелец            = ИБ;
-	Сеанс_Владелец        = Сеанс;
-	Соединение_Владелец    = Соединение;
+	Кластер_Владелец     = Кластер;
+	ИБ_Владелец          = ИБ;
+	Сеанс_Владелец       = Сеанс;
+	Соединение_Владелец  = Соединение;
 
 	ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.Блокировки);
 
@@ -153,5 +153,3 @@
 	Возврат Элементы.Количество();
 
 КонецФункции // Количество()
-
-Лог = Логирование.ПолучитьЛог("oscript.lib.irac");
diff --git a/src/Классы/ИнформационнаяБаза.os b/src/Классы/ИнформационнаяБаза.os
@@ -9,8 +9,8 @@
 
 Перем ИБ_Ид;             // infobase
 Перем ИБ_Имя;            // name
-Перем ИБ_Описание;        // descr
-Перем ИБ_ПолноеОписание;// Истина - получено полное описание; Ложь - сокращенное
+Перем ИБ_Описание;       // descr
+Перем ИБ_ПолноеОписание; // Истина - получено полное описание; Ложь - сокращенное
 Перем ИБ_Сеансы;
 Перем ИБ_Соединения;
 Перем ИБ_Параметры;
@@ -69,9 +69,9 @@
 // и сохраняет в локальных переменных
 //   
 // Параметры:
-//   ОбновитьПринудительно         - Булево    - Истина - принудительно обновить данные (вызов RAC)
+//   ОбновитьПринудительно        - Булево    - Истина - принудительно обновить данные (вызов RAC)
 //                                            - Ложь - данные будут получены если истекло время актуальности
-//                                                    или данные не были получены ранее
+//                                                     или данные не были получены ранее
 //   
 Процедура ОбновитьДанные(ОбновитьПринудительно = Ложь) Экспорт
 
@@ -237,7 +237,7 @@
 //   
 // Параметры:
 //   Администратор         - Строка    - администратор информационной базы 1С
-//   Пароль                 - Строка    - пароль администратора информационной базы 1С
+//   Пароль                - Строка    - пароль администратора информационной базы 1С
 //
 Процедура УстановитьАдминистратора(Администратор, Пароль) Экспорт
 
@@ -335,7 +335,7 @@
 //   
 // Параметры:
 //   ИмяПоля                 - Строка        - Имя параметра информационной базы
-//   ОбновитьПринудительно     - Булево        - Истина - обновить список (вызов RAC)
+//   ОбновитьПринудительно   - Булево        - Истина - обновить список (вызов RAC)
 //
 // Возвращаемое значение:
 //    Произвольный - значение параметра кластера 1С

diff --git a/src/Классы/ИнформационныеБазы.os b/src/Классы/ИнформационныеБазы.os
@@ -17,11 +17,13 @@
 // Конструктор
 //   
 // Параметры:
-//   АгентКластера        - АгентКластера    - ссылка на родительский объект агента кластера
+//   АгентКластера      - АгентКластера  - ссылка на родительский объект агента кластера
 //   Кластер            - Кластер        - ссылка на родительский объект кластера
 //
 Процедура ПриСозданииОбъекта(АгентКластера, Кластер)
 
+	Лог = Служебный.Лог();
+
 	Кластер_Агент = АгентКластера;
 	Кластер_Владелец = Кластер;
 
@@ -225,5 +227,3 @@
 	ОбновитьДанные(Истина);
 
 КонецПроцедуры // Удалить()
-
-Лог = Логирование.ПолучитьЛог("oscript.lib.irac");
diff --git a/src/Классы/ИсполнительКоманд.os b/src/Классы/ИсполнительКоманд.os
@@ -18,10 +18,12 @@
 // Конструктор
 //   
 // Параметры:
-//   ВерсияИлиПутьКРАК                 - Строка    - маска версии 1С или путь к утилите RAC
+//   ВерсияИлиПутьКРАК         - Строка    - маска версии 1С или путь к утилите RAC
 //
 Процедура ПриСозданииОбъекта(ВерсияИлиПутьКРАК = "8.3")
 
+	Лог = Служебный.Лог();
+
 	СистемнаяИнформация = Новый СистемнаяИнформация;
 	ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;
 
@@ -471,5 +473,3 @@
 	Возврат КодВозврата;
 
 КонецФункции // ЗапуститьИПодождать()    
-
-Лог = Логирование.ПолучитьЛог("oscript.lib.irac");