#356: Контроль поведения через параметр командной строки.

Author: dmpas

src/cmd/gitsync.os

@@ -45,6 +45,9 @@
 	Приложение.Опция("domain-email", "localhost", "домен почты для пользователей git")
 					.ВОкружении("GITSYNC_EMAIL GITSYNC_DOMAIN_EMAIL");
 
+	Приложение.Опция("ignore-broken-plugins", Ложь, "разрешить работу приложения при сломанных расширениях")
+					.ВОкружении("GITSYNC_IGNORE_BROKEN_PLUGINS");
+
 	Приложение.ДобавитьКоманду("usage u", "Выводит примеры использования",
 								Новый КомандаUsage);
 	Приложение.ДобавитьКоманду("init i", "Инициализация структуры нового хранилища git. Подготовка к синхронизации",
@@ -72,6 +75,10 @@
 
 Процедура ПередВыполнениемКоманды(Знач Команда) Экспорт
 
+	Если Команда.ЗначениеОпции("ignore-broken-plugins") = Истина Тогда
+		ПараметрыПриложения.УстановитьПризнакПродолженияВыполненияПриОшибкахПлагинов(Истина);
+	КонецЕсли;
+
 	ВерсияПлатформы = Команда.ЗначениеОпции("v8version");
 	ПутьКПлатформе = Команда.ЗначениеОпции("v8-path");
 	ВыводДополнительнойИнформации = Команда.ЗначениеОпции("verbose");
@@ -90,11 +97,10 @@
 
 КонецПроцедуры
 
-Процедура ВывестиПредупреждения()
-
-	Если ПараметрыПриложения.ЕстьОшибкиЗагрузкиПлагинов() Тогда
-		Лог.Предупреждение("В загружаемых плагинах есть ошибка! Возможна неверная работа синхронизации!");
-	КонецЕсли;
+Процедура ПослеВыполненияКоманды(Знач Команда) Экспорт
+	
+	// В конце работы выводим предупреждение ещё раз
+	ПараметрыПриложения.ПроверитьЗагрузкуПлагинов(Истина);
 
 КонецПроцедуры
 
@@ -103,14 +109,10 @@
 Лог = ПараметрыПриложения.Лог();
 ПараметрыПриложения.ПодготовитьПлагины(); 
 
-ВывестиПредупреждения();
-
 Попытка
 
 	ВыполнитьПриложение();
 
-	ВывестиПредупреждения();
-
 Исключение
 
 	Лог.КритичнаяОшибка(ОписаниеОшибки());

src/cmd/Классы/КомандаClone.os

@@ -32,6 +32,8 @@
 
 Процедура ВыполнитьКоманду(Знач Команда) Экспорт
 
+	ПараметрыПриложения.ПроверитьЗагрузкуПлагинов();
+
 	ПутьКХранилищу			= Команда.ЗначениеАргумента("PATH");
 	КаталогРабочейКопии		= Команда.ЗначениеАргумента("WORKDIR");
 	URLРепозитория			= Команда.ЗначениеАргумента("URL");

src/cmd/Классы/КомандаInit.os

@@ -30,6 +30,8 @@
 
 Процедура ВыполнитьКоманду(Знач Команда) Экспорт
 
+	ПараметрыПриложения.ПроверитьЗагрузкуПлагинов();
+
 	Лог = ПараметрыПриложения.Лог();
 
 	ПутьКХранилищу			= Команда.ЗначениеАргумента("PATH");

src/cmd/Классы/КомандаSetVersion.os

@@ -15,6 +15,8 @@
 КонецПроцедуры
 
 Процедура ВыполнитьКоманду(Знач Команда) Экспорт
+
+	ПараметрыПриложения.ПроверитьЗагрузкуПлагинов();
 
 	Лог = ПараметрыПриложения.Лог();
 

src/cmd/Классы/КомандаSync.os

@@ -34,6 +34,8 @@
 
 Процедура ВыполнитьКоманду(Знач Команда) Экспорт
 
+	ПараметрыПриложения.ПроверитьЗагрузкуПлагинов();
+
 	Лог.Информация("Начало выполнение команды <sync>");
 
 	ПутьКХранилищу			= Команда.ЗначениеАргумента("PATH");

src/cmd/Модули/ПараметрыПриложения.os

@@ -15,6 +15,7 @@
 Перем МенеджерПлагинов;
 Перем ИмяФайлаПлагинов;
 Перем ЕстьОшибкаЗагрузкиПлагинов;
+Перем ПродолжитьВыполнениеПриОшибкахПлагинов;
 
 Процедура Инициализация()
 
@@ -29,6 +30,7 @@
 	ИмяФайлаНастройкиПриложения = "config.json";
 	ИмяФайлаПлагинов = "plugins.json gitsync-plugins.json";
 	МенеджерПлагинов = Новый МенеджерПлагинов;
+	ПродолжитьВыполнениеПриОшибкахПлагинов = Ложь;
 
 	ОпределитьКаталогПлагинов();
 
@@ -52,13 +54,31 @@
 		Возврат ВключенныеПлагины;
 	КонецЕсли;
 
-	JsonСтрока = РаботаСФайлами.ПрочитатьФайл(ПутьКФайлу);
+	JsonСтрока = "";
+	Попытка
+		
+		JsonСтрока = РаботаСФайлами.ПрочитатьФайл(ПутьКФайлу);
+
+	Исключение
+		
+		ЕстьОшибкаЗагрузкиПлагинов = Истина;
+		ЛогПриложения.Предупреждение("Ошибка чтения настройки включения расширений <%1>: <%2>", ПутьКФайлу, ОписаниеОшибки());
+
+	КонецПопытки;
 
 	Если ПустаяСтрока(JsonСтрока) Тогда
 		Возврат ВключенныеПлагины;
 	КонецЕсли;
 
-	ДанныеФайла = РаботаСФайлами.ОбъектИзJson(JsonСтрока);
+	ДанныеФайла = Новый Массив;
+	Попытка
+		ДанныеФайла = РаботаСФайлами.ОбъектИзJson(JsonСтрока);
+	Исключение
+		
+		ЕстьОшибкаЗагрузкиПлагинов = Истина;
+		ЛогПриложения.Предупреждение("Ошибка чтения настройки включения расширений <%1>: <%2>", ПутьКФайлу, ОписаниеОшибки());
+
+	КонецПопытки;
 
 	Для каждого ДанныеПлагинаИзФайла Из ДанныеФайла Цикл
 
@@ -362,4 +382,29 @@
 
 КонецФункции
 
+Процедура ПроверитьЗагрузкуПлагинов(Знач ПродолжитьВыполнение = Неопределено) Экспорт
+
+	Если ПродолжитьВыполнение = Неопределено Тогда
+		ПродолжитьВыполнение = ПродолжитьВыполнениеПриОшибкахПлагинов;
+	КонецЕсли;
+
+	Если ПараметрыПриложения.ЕстьОшибкиЗагрузкиПлагинов() Тогда
+		
+		ТекстОшибки = "В загружаемых плагинах есть ошибка! Возможна неверная работа синхронизации!";
+		Если ПродолжитьВыполнение Тогда
+			ЛогПриложения.Предупреждение(ТекстОшибки);
+		Иначе
+			ЛогПриложения.КритичнаяОшибка(ТекстОшибки);
+			ВызватьИсключение ТекстОшибки;
+		КонецЕсли;
+
+	КонецЕсли;
+
+КонецПроцедуры
+
+Процедура УстановитьПризнакПродолженияВыполненияПриОшибкахПлагинов(Знач Признак = Истина) Экспорт
+	ПродолжитьВыполнениеПриОшибкахПлагинов = Признак;
+КонецПроцедуры
+
+
 Инициализация();

src/core/Классы/internal/Классы/ПодключениеПлагиновКаталога.os

@@ -106,8 +106,21 @@
 		И ФайлКласса.ЭтоФайл() Тогда
 		Идентификатор = Чтение.ЗначениеАтрибута("name");
 		Если Не ПустаяСтрока(Идентификатор) Тогда
-			ПодключитьСценарий(ФайлКласса.ПолноеИмя, Идентификатор);
-			МассивПодключенныхПлагинов.Добавить(Идентификатор);
+
+			Попытка
+				
+				ПодключитьСценарий(ФайлКласса.ПолноеИмя, Идентификатор);
+				МассивПодключенныхПлагинов.Добавить(Идентификатор);
+				
+			Исключение
+				ТекстОшибкиЗагрузки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+				Лог.Предупреждение("Плагин <%1>, класс <%2> ошибка загрузки: <%3>",
+					Путь,
+					ФайлКласса.ПолноеИмя,
+					ТекстОшибкиЗагрузки
+				);
+			КонецПопытки;
+			
 		КонецЕсли;
 	Иначе
 		ВызватьИсключение "Не найден файл " + ФайлКласса.ПолноеИмя + ", указанный в манифесте";