Skip to content

Commit

Permalink
refactor: Во всех точках выполнения команды RAC, вывод команды сохран…
Browse files Browse the repository at this point in the history 
…яется в переменную.
  • Loading branch information
@arkuznetsov
arkuznetsov committed Sep 9, 2022
1 parent 20aae5d commit dd7fcc4
Show file tree
Hide file tree
Showing 28 changed files with 226 additions and 140 deletions.
13 changes: 8 additions & 5 deletions src/Классы/АдминистраторыАгента.os
View file
Original file line number Diff line number Diff line change
Expand Up @@ -53,11 +53,12 @@
КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список");

Если НЕ КодВозврата = 0 Тогда
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);
ТекстОшибки = СтрШаблон("Ошибка получения списка администраторов агента ""%1"", КодВозврата = %2:%3%4",
Кластер_Агент.СтрокаПодключения(),
КодВозврата,
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Expand Down Expand Up @@ -225,14 +226,15 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Добавить");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка добавления администратора ""%1"" агента ""%2"", КодВозврата = %3:%4%5",
Имя,
Кластер_Агент.СтрокаПодключения(),
КодВозврата,
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Expand All @@ -244,7 +246,7 @@
Кластер_Агент.УстановитьАдминистратора(Имя, ПараметрыАдминАгента.Пароль);
КонецЕсли;

Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));
Лог.Отладка(ВыводКоманды);

ОбновитьДанные(Перечисления.РежимыОбновленияДанных.Принудительно);

Expand All @@ -268,22 +270,23 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка удаления администратора ""%1"" агента ""%2"", КодВозврата = %3:%4%5",
Имя,
Кластер_Агент.СтрокаПодключения(),
КодВозврата,
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Если ТекущееКоличество = 1 Тогда
Кластер_Агент.УстановитьАдминистратора("", "");
КонецЕсли;

Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));
Лог.Отладка(ВыводКоманды);

ОбновитьДанные(Перечисления.РежимыОбновленияДанных.Принудительно);

Expand Down
13 changes: 8 additions & 5 deletions src/Классы/АдминистраторыКластера.os
View file
Original file line number Diff line number Diff line change
Expand Up @@ -55,13 +55,14 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка получения списка администраторов кластера ""%1"", КодВозврата = %2:%3%4",
Кластер_Владелец.Имя(),
КодВозврата,
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Expand Down Expand Up @@ -231,22 +232,23 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Добавить");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка добавления администратора ""%1"" кластера ""%2"", КодВозврата = %3:%4%5",
Имя,
Кластер_Владелец.Имя(),
КодВозврата,
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Если УстановитьТекущим ИЛИ ТекущееКоличество = 0 Тогда
Кластер_Владелец.УстановитьАдминистратора(Имя, ПараметрыАдминКластера.Пароль);
КонецЕсли;

Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));
Лог.Отладка(ВыводКоманды);

ОбновитьДанные(Перечисления.РежимыОбновленияДанных.Принудительно);

Expand All @@ -271,22 +273,23 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка удаления администратора ""%1"" кластера ""%2"", КодВозврата = %3:%4%5",
Имя,
Кластер_Владелец.Имя(),
КодВозврата,
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Если ТекущееКоличество = 1 Тогда
Кластер_Владелец.УстановитьАдминистратора("", "");
КонецЕсли;

Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));
Лог.Отладка(ВыводКоманды);

ОбновитьДанные(Перечисления.РежимыОбновленияДанных.Принудительно);

Expand Down
7 changes: 4 additions & 3 deletions src/Классы/Блокировки.os
View file
Original file line number Diff line number Diff line change
Expand Up @@ -77,16 +77,17 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список");

ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка получения списка блокировок кластера ""%1"", КодВозврата = %2:%3%4",
Кластер_Владелец.Имя(),
КодВозврата,
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

МассивРезультатов = Кластер_Агент.ВыводКоманды();

МассивБлокировок = Новый Массив();
Expand Down
21 changes: 12 additions & 9 deletions src/Классы/ИнформационнаяБаза.os
View file
Original file line number Diff line number Diff line change
Expand Up @@ -177,9 +177,9 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("ПолноеОписание");

ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);
Если Найти(ВыводКоманды, "Недостаточно прав пользователя") = 0
И Найти(ВыводКоманды, "Превышено допустимое количество ошибок при вводе имени и пароля") = 0 Тогда
ВызватьИсключение ВыводКоманды;
Expand All @@ -190,11 +190,11 @@
Имя(),
Кластер_Владелец.Имя(),
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;
КонецЕсли;

МассивРезультатов = Кластер_Агент.ВыводКоманды();

Если НЕ ЗначениеЗаполнено(МассивРезультатов) Тогда
Expand All @@ -221,14 +221,15 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Описание");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка получения краткого описания информационной базы ""%1""
| кластера ""%2"":%3%4",
Имя(),
Кластер_Владелец.Имя(),
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Expand Down Expand Up @@ -507,18 +508,19 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка изменения информационной базы ""%1""
| кластера ""%2"":%3%4",
Имя(),
Кластер_Владелец.Имя(),
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));
Лог.Отладка(ВыводКоманды);

ОбновитьДанные(Перечисления.РежимыОбновленияДанных.Принудительно);

Expand Down Expand Up @@ -550,17 +552,18 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Удалить");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка удаления информационной базы ""%1""
| кластера ""%2"":%3%4",
Имя(),
Кластер_Владелец.Имя(),
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));
Лог.Отладка(ВыводКоманды);

КонецПроцедуры // Удалить()
14 changes: 8 additions & 6 deletions src/Классы/ИнформационныеБазы.os
View file
Original file line number Diff line number Diff line change
Expand Up @@ -55,16 +55,17 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Список");

ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка получения списка информационных баз кластера ""%1"", КодВозврата = %2:%3%4",
Кластер_Владелец.Имя(),
КодВозврата,
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

МассивРезультатов = Кластер_Агент.ВыводКоманды();

МассивИБ = Новый Массив();
Expand Down Expand Up @@ -228,18 +229,19 @@
ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Добавить");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка добавления информационной базы ""%1"" в кластер ""%2"", КодВозврата = %3:%4%5",
Имя,
Кластер_Владелец.Имя(),
КодВозврата,
Символы.ПС,
Кластер_Агент.ВыводКоманды(Ложь));
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;
Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));

Лог.Отладка(ВыводКоманды);

ОбновитьДанные(Перечисления.РежимыОбновленияДанных.Принудительно);

Expand Down
18 changes: 14 additions & 4 deletions src/Классы/Кластер.os
View file
Original file line number Diff line number Diff line change
Expand Up @@ -460,8 +460,8 @@
// Процедура изменяет параметры кластера
//
// Параметры:
// Имя - Строка - новое имя кластера
// ПараметрыКластера - Структура - новые параметры кластера
// Имя - Строка - новое имя кластера
// ПараметрыКластера - Структура - новые параметры кластера
//
Процедура Изменить(Знач Имя = "", Знач ПараметрыКластера = Неопределено) Экспорт

Expand All @@ -485,9 +485,19 @@

ПараметрыОбъекта.УстановитьЗначенияПараметровКоманд(ПараметрыКоманды);

ПараметрыОбъекта.ВыполнитьКоманду("Изменить");
КодВозврата = ПараметрыОбъекта.ВыполнитьКоманду("Изменить");
ВыводКоманды = Кластер_Агент.ВыводКоманды(Ложь);

Лог.Отладка(Кластер_Агент.ВыводКоманды(Ложь));
Если НЕ КодВозврата = 0 Тогда
ТекстОшибки = СтрШаблон("Ошибка изменения параметров кластера ""%1"", КодВозврата = %2:%3%4",
Имя(),
КодВозврата,
Символы.ПС,
ВыводКоманды);
ВызватьИсключение ТекстОшибки;
КонецЕсли;

Лог.Отладка(ВыводКоманды);

Кластер_Свойства = Неопределено;

Expand Down
Loading

0 comments on commit dd7fcc4

Please sign in to comment.