Merge branch 'release/v.0.10.0'

Wadus16 · Sep 27, 2019 · 1b186f3 · 1b186f3
2 parents 6e0a024 + 1e1f322
commit 1b186f3
Show file tree

Hide file tree

Showing 36 changed files with 985 additions and 202 deletions.
diff --git a/lib.config b/lib.config
@@ -4,6 +4,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"/>
@@ -26,6 +27,8 @@
 	<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"/>
 	<module name="Служебный" file="src/Модули/Служебный.os"/>

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

diff --git a/src/lib.config b/src/lib.config
@@ -4,6 +4,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"/>
@@ -26,6 +27,8 @@
 	<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"/>
 	<module name="Служебный" file="Модули/Служебный.os"/>

diff --git a/src/Классы/АдминистраторыАгента.os b/src/Классы/АдминистраторыАгента.os
@@ -24,13 +24,13 @@
 
 	Кластер_Агент = АгентКластера;
 
-	ПараметрыОбъекта = Новый КомандыОбъекта("agent.admin");
+	ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.АдминистраторыАгента);
 
 	Элементы = Новый ОбъектыКластера(ЭтотОбъект);
 
 КонецПроцедуры // ПриСозданииОбъекта()
 
-// Процедура получает данные от сервиса администрирования кластера 1С
+// Процедура получает список администраторов агента кластера 1С от утилиты администрирования кластера 1С
 // и сохраняет в локальных переменных
 //   
 // Параметры:
@@ -58,7 +58,18 @@
 	                                Кластер_Агент.ВыводКоманды(Ложь));
 	КонецЕсли;
 
-	Элементы.Заполнить(Кластер_Агент.ВыводКоманды());
+	МассивРезультатов = Кластер_Агент.ВыводКоманды();
+
+	МассивАдминистраторов = Новый Массив();
+	Для Каждого ТекОписание Из МассивРезультатов Цикл
+		Администратор = Новый ОбъектКластера(Кластер_Агент,
+		                                     Кластер_Агент,
+		                                     Перечисления.РежимыАдминистрирования.АдминистраторыАгента,
+		                                     ТекОписание);
+		МассивАдминистраторов.Добавить(Администратор);
+	КонецЦикла;
+
+	Элементы.Заполнить(МассивАдминистраторов);
 
 	Элементы.УстановитьАктуальность();
 

diff --git a/src/Классы/АдминистраторыКластера.os b/src/Классы/АдминистраторыКластера.os
@@ -27,17 +27,17 @@
 	Кластер_Агент = АгентКластера;
 	Кластер_Владелец = Кластер;
 
-	ПараметрыОбъекта = Новый КомандыОбъекта("cluster.admin");
+	ПараметрыОбъекта = Новый КомандыОбъекта(Перечисления.РежимыАдминистрирования.АдминистраторыКластера);
 
 	Элементы = Новый ОбъектыКластера(ЭтотОбъект);
 
 КонецПроцедуры // ПриСозданииОбъекта()
 
-// Процедура получает данные от сервиса администрирования кластера 1С
+// Процедура получает список администраторов кластера 1С от утилиты администрирования кластера 1С
 // и сохраняет в локальных переменных
 //   
 // Параметры:
-//   ОбновитьПринудительно         - Булево    - Истина - принудительно обновить данные (вызов RAC)
+//   ОбновитьПринудительно        - Булево    - Истина - принудительно обновить данные (вызов RAC)
 //                                            - Ложь - данные будут получены если истекло время актуальности
 //                                                    или данные не были получены ранее
 //   
@@ -62,7 +62,18 @@
 	                                Кластер_Агент.ВыводКоманды(Ложь));
 	КонецЕсли;
 
-	Элементы.Заполнить(Кластер_Агент.ВыводКоманды());
+	МассивРезультатов = Кластер_Агент.ВыводКоманды();
+
+	МассивАдминистраторов = Новый Массив();
+	Для Каждого ТекОписание Из МассивРезультатов Цикл
+		Администратор = Новый ОбъектКластера(Кластер_Агент,
+		                                     Кластер_Владелец,
+		                                     Перечисления.РежимыАдминистрирования.АдминистраторыКластера,
+		                                     ТекОписание);
+		МассивАдминистраторов.Добавить(Администратор);
+	КонецЦикла;
+
+	Элементы.Заполнить(МассивАдминистраторов);
 
 	Элементы.УстановитьАктуальность();
 

diff --git a/src/Классы/Блокировки.os b/src/Классы/Блокировки.os
@@ -29,6 +29,8 @@
 //
 Процедура ПриСозданииОбъекта(АгентКластера, Кластер, ИБ = Неопределено, Сеанс = Неопределено, Соединение = Неопределено)
 
+	Лог = Служебный.Лог();
+
 	Кластер_Агент        = АгентКластера;
 	Кластер_Владелец     = Кластер;
 	ИБ_Владелец          = ИБ;
@@ -41,11 +43,11 @@
 
 КонецПроцедуры // ПриСозданииОбъекта()
 
-// Процедура получает данные от сервиса администрирования кластера 1С
+// Процедура получает список блокировок от утилиты администрирования кластера 1С
 // и сохраняет в локальных переменных
 //   
 // Параметры:
-//   ОбновитьПринудительно         - Булево    - Истина - принудительно обновить данные (вызов RAC)
+//   ОбновитьПринудительно        - Булево    - Истина - принудительно обновить данные (вызов RAC)
 //                                            - Ложь - данные будут получены если истекло время актуальности
 //                                                    или данные не были получены ранее
 //   
@@ -84,7 +86,16 @@
 
 	МассивРезультатов = Кластер_Агент.ВыводКоманды();
 
-	Элементы.Заполнить(МассивРезультатов);
+	МассивБлокировок = Новый Массив();
+	Для Каждого ТекОписание Из МассивРезультатов Цикл
+		Блокировка = Новый ОбъектКластера(Кластер_Агент,
+		                                  Кластер_Владелец,
+		                                  Перечисления.РежимыАдминистрирования.Блокировки,
+		                                  ТекОписание);
+		МассивБлокировок.Добавить(Блокировка);
+	КонецЦикла;
+
+	Элементы.Заполнить(МассивБлокировок);
 
 	Элементы.УстановитьАктуальность();
 

diff --git a/src/Классы/ИнформационнаяБаза.os b/src/Классы/ИнформационнаяБаза.os
@@ -13,7 +13,7 @@
 Перем ИБ_ПолноеОписание; // Истина - получено полное описание; Ложь - сокращенное
 Перем ИБ_Сеансы;
 Перем ИБ_Соединения;
-Перем ИБ_Параметры;
+Перем ИБ_Свойства;
 
 Перем Кластер_Агент;
 Перем Кластер_Владелец;
@@ -37,6 +37,8 @@
 //
 Процедура ПриСозданииОбъекта(АгентКластера, Кластер, ИБ, Администратор = "", ПарольАдминистратора = "")
 
+	Лог = Служебный.Лог();
+
 	Если НЕ ЗначениеЗаполнено(ИБ) Тогда
 		Возврат;
 	КонецЕсли;
@@ -75,7 +77,7 @@
 //   
 Процедура ОбновитьДанные(ОбновитьПринудительно = Ложь) Экспорт
 
-	Если НЕ Служебный.ТребуетсяОбновление(ИБ_Параметры,
+	Если НЕ Служебный.ТребуетсяОбновление(ИБ_Свойства,
 			МоментАктуальности, ПериодОбновления, ОбновитьПринудительно) Тогда
 		Возврат;
 	КонецЕсли;
@@ -112,7 +114,7 @@
 	ИБ_Имя = ДанныеЗаполнения.Получить("name");
 	ИБ_Описание = ДанныеЗаполнения.Получить("descr");
 
-	Служебный.ЗаполнитьПараметрыОбъекта(ЭтотОбъект, ИБ_Параметры, ДанныеЗаполнения);
+	Служебный.ЗаполнитьСвойстваОбъекта(ЭтотОбъект, ИБ_Свойства, ДанныеЗаполнения);
 
 КонецПроцедуры // ЗаполнитьПараметрыИБ()
 
@@ -355,15 +357,15 @@
 	ИначеЕсли НЕ Найти(ВРЕг("ПолноеОписание"), ВРег(ИмяПоля)) = 0 Тогда
 		Возврат ИБ_ПолноеОписание;
 	Иначе
-		ЗначениеПоля = ИБ_Параметры.Получить(ИмяПоля);
+		ЗначениеПоля = ИБ_Свойства.Получить(ИмяПоля);
 	КонецЕсли;
 
 	Если ЗначениеПоля = Неопределено Тогда
 
 		ОписаниеПараметра = ПараметрыОбъекта("ИмяРАК").Получить(ИмяПоля);
 
 		Если НЕ ОписаниеПараметра = Неопределено Тогда
-			ЗначениеПоля = ИБ_Параметры.Получить(ОписаниеПараметра["Имя"]);
+			ЗначениеПоля = ИБ_Свойства.Получить(ОписаниеПараметра["Имя"]);
 		КонецЕсли;
 	КонецЕсли;
 
@@ -446,5 +448,3 @@
 	Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));
 
 КонецПроцедуры // Удалить()
-
-Лог = Логирование.ПолучитьЛог("oscript.lib.irac");
diff --git a/src/Классы/ИнформационныеБазы.os b/src/Классы/ИнформационныеБазы.os
@@ -33,7 +33,7 @@
 
 КонецПроцедуры
 
-// Процедура получает данные от сервиса администрирования кластера 1С
+// Процедура получает список информационных баз от утилиты администрирования кластера 1С
 // и сохраняет в локальных переменных
 //   
 // Параметры:

diff --git a/src/Классы/Кластер.os b/src/Классы/Кластер.os
@@ -11,7 +11,7 @@
 Перем Кластер_Имя;            // name
 Перем Кластер_АдресСервера;    // host
 Перем Кластер_ПортСервера;    // port
-Перем Кластер_Параметры;
+Перем Кластер_Свойства;
 
 Перем Кластер_Агент;
 Перем Кластер_Администраторы;
@@ -26,6 +26,7 @@
 Перем Кластер_ИБ;
 Перем Кластер_Профили;
 Перем Кластер_Счетчики;
+Перем Кластер_Ограничения;
 
 Перем ПараметрыОбъекта;
 
@@ -80,8 +81,9 @@
 	Кластер_Блокировки     = Новый Блокировки(Кластер_Агент, ЭтотОбъект);
 	Кластер_Профили        = Новый ПрофилиБезопасности(Кластер_Агент, ЭтотОбъект);
 	Кластер_Счетчики       = Новый СчетчикиРесурсов(Кластер_Агент, ЭтотОбъект);
+	Кластер_Ограничения    = Новый ОграниченияРесурсов(Кластер_Агент, ЭтотОбъект);
 
-	Кластер_Параметры        = Неопределено;
+	Кластер_Свойства       = Неопределено;
 
 КонецПроцедуры // ПриСозданииОбъекта()
 
@@ -95,7 +97,7 @@
 //   
 Процедура ОбновитьДанные(ОбновитьПринудительно = Ложь) Экспорт
 
-	Если НЕ Служебный.ТребуетсяОбновление(Кластер_Параметры,
+	Если НЕ Служебный.ТребуетсяОбновление(Кластер_Свойства,
 			МоментАктуальности, ПериодОбновления, ОбновитьПринудительно) Тогда
 		Возврат;
 	КонецЕсли;
@@ -131,7 +133,7 @@
 	Кластер_ПортСервера     = ДанныеЗаполнения.Получить("port");
 	Кластер_Имя             = ДанныеЗаполнения.Получить("name");
 
-	Служебный.ЗаполнитьПараметрыОбъекта(ЭтотОбъект, Кластер_Параметры, ДанныеЗаполнения);
+	Служебный.ЗаполнитьСвойстваОбъекта(ЭтотОбъект, Кластер_Свойства, ДанныеЗаполнения);
 
 КонецПроцедуры // ЗаполнитьПараметрыКластера()
 
@@ -407,6 +409,17 @@
 
 КонецФункции // СчетчикиРесурсов()
 
+// Функция возвращает список ограничений ресурсов кластера 1С
+//   
+// Возвращаемое значение:
+//    ОграниченияРесурсов - список ограничений ресурсов кластера 1С
+//
+Функция ОграниченияРесурсов() Экспорт
+
+	Возврат Кластер_Ограничения;
+
+КонецФункции // ОграниченияРесурсов()
+
 // Функция возвращает значение параметра кластера 1С
 //   
 // Параметры:
@@ -431,15 +444,15 @@
 	ИначеЕсли НЕ Найти(ВРЕг("ПортСервера, port"), ВРег(ИмяПоля)) = 0 Тогда
 		Возврат Кластер_ПортСервера;
 	Иначе
-		ЗначениеПоля = Кластер_Параметры.Получить(ИмяПоля);
+		ЗначениеПоля = Кластер_Свойства.Получить(ИмяПоля);
 	КонецЕсли;
 
 	Если ЗначениеПоля = Неопределено Тогда
 
 		ОписаниеПараметра = ПараметрыОбъекта("ИмяРАК").Получить(ИмяПоля);
 
 		Если НЕ ОписаниеПараметра = Неопределено Тогда
-			ЗначениеПоля = Кластер_Параметры.Получить(ОписаниеПараметра["Имя"]);
+			ЗначениеПоля = Кластер_Свойства.Получить(ОписаниеПараметра["Имя"]);
 		КонецЕсли;
 	КонецЕсли;
 
@@ -478,6 +491,6 @@
 
 	Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));
 
-	Кластер_Параметры = Неопределено;
+	Кластер_Свойства = Неопределено;
 
 КонецПроцедуры // Изменить()
diff --git a/src/Классы/Кластеры.os b/src/Классы/Кластеры.os
@@ -30,7 +30,7 @@
 
 КонецПроцедуры // ПриСозданииОбъекта()
 
-// Процедура получает данные от сервиса администрирования кластера 1С
+// Процедура получает список кластеров от утилиты администрирования кластера 1С
 // и сохраняет в локальных переменных
 //   
 // Параметры: