Добавлена функциональность остановки (прерывания) синхронизации с хранилищем, если не заполнен комментарий к версии

Author: khorevaa

src/core/Классы/КомандаExport.os

@@ -27,8 +27,10 @@
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-limit", "<выгрузить неболее limit версий от текущей выгруженной>");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-tempdir", "<Путь к каталогу временных файлов>");
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-process-fatform-modules", "Переименовывать модули обычных форм в Module.bsl");
-
+	
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек), 0 - без ограничений");
+	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой");
+
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -42,6 +44,7 @@
 	МаксВерсия = ПараметрыКоманды["-maxversion"];
 	Лимит = ПараметрыКоманды["-limit"];
 	ПереименовыватьФайлМодуляОбычнойФормы = ПараметрыКоманды["-process-fatform-modules"];
+	ПрерватьВыполнениеБезКомментарияКВерсии = ПараметрыКоманды["-stop-if-empty-comment"];
 
 	Если ЛокальныйКаталогГит = Неопределено Тогда
 
@@ -73,6 +76,12 @@
 
 	КонецЕсли;
 
+	Если ПрерватьВыполнениеБезКомментарияКВерсии = Неопределено Тогда
+
+		ПрерватьВыполнениеБезКомментарияКВерсии = Ложь;
+
+	КонецЕсли;
+
 	МаксВерсия = Число(МаксВерсия);
 	МинВерсия = Число(МинВерсия);
 	Лимит = Число(Лимит);
@@ -82,7 +91,16 @@
 	Распаковщик.ДоменПочтыДляGitПоУмолчанию	= ПараметрыКоманды["-email"];
 	Распаковщик.ПереименовыватьФайлМодуляОбычнойФормы = ПереименовыватьФайлМодуляОбычнойФормы;
 	ДополнительныеПараметры.Лог.Информация("Начинаю выгрузку исходников");
-	РаспаковщикКонфигурации.ВыполнитьЭкспортИсходников(Распаковщик, ПараметрыКоманды["ПутьКХранилищу"], ЛокальныйКаталогГит, МинВерсия, МаксВерсия, Формат,,, Лимит);
+	РаспаковщикКонфигурации.ВыполнитьЭкспортИсходников(Распаковщик, 
+														ПараметрыКоманды["ПутьКХранилищу"], 
+														ЛокальныйКаталогГит, 
+														МинВерсия, 
+														МаксВерсия, 
+														Формат,
+														,
+														, 
+														Лимит, 
+														ПрерватьВыполнениеБезКомментарияКВерсии);
 	ДополнительныеПараметры.Лог.Информация("Выгрузка завершена");
 
 	Возврат МенеджерКомандПриложения.РезультатыКоманд().Успех;

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

@@ -30,6 +30,7 @@
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-push-every-n-commits", "<число> количество коммитов до промежуточной отправки на удаленный сервер");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек), 0 - без ограничений");
 	Парсер.ДобавитьПараметрФлагКоманды       (ОписаниеКоманды, "-process-fatform-modules", "Переименовывать модули обычных форм в Module.bsl");	
+	Парсер.ДобавитьПараметрФлагКоманды		 (ОписаниеКоманды, "-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой");
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -47,6 +48,7 @@
 	Парсер.ДобавитьИменованныйПараметр("-tempdir", "<Путь к каталогу временных файлов>");
 	Парсер.ДобавитьИменованныйПараметр("-push-every-n-commits", "<число> количество коммитов до промежуточной отправки на удаленный сервер");
 	Парсер.ДобавитьПараметрФлаг       ("-process-fatform-modules", "Переименовывать модули обычных форм в Module.bsl");
+	Парсер.ДобавитьПараметрФлагКоманды("-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой");
 
 КонецПроцедуры // ЗарегистрироватьКоманду
 
@@ -67,6 +69,7 @@
 	Лимит					= ПараметрыКоманды["-limit"];
 	КоличествоКоммитовДоPush = ПараметрыКоманды["-push-every-n-commits"];
 	ПереименовыватьФайлМодуляОбычнойФормы = ПараметрыКоманды["-process-fatform-modules"];
+	ПрерватьВыполнениеБезКомментарияКВерсии = ПараметрыКоманды["-stop-if-empty-comment"];
 
 	Если НачальнаяВерсия = Неопределено Тогда
 
@@ -92,6 +95,12 @@
 
 	КонецЕсли;
 
+	Если ПрерватьВыполнениеБезКомментарияКВерсии = Неопределено Тогда
+
+		ПрерватьВыполнениеБезКомментарияКВерсии = Ложь;
+
+	КонецЕсли;
+
 	НачальнаяВерсия = Число(НачальнаяВерсия);
 	КонечнаяВерсия = Число(КонечнаяВерсия);
 	Лимит = Число(Лимит);
@@ -149,7 +158,8 @@
 							Формат, 
 							КоличествоКоммитовДоPush, 
 							URLРепозитория,
-							Лимит);
+							Лимит,
+							ПрерватьВыполнениеБезКомментарияКВерсии);
 
 	Лог.Информация("Отправка изменений на удаленный узел");
 	КодВозврата = Распаковщик.ВыполнитьGitPush(ЛокальныйКаталогГит, URLРепозитория, ИмяВетки);

src/core/Классы/МенеджерСинхронизации.os

@@ -918,8 +918,8 @@
 		Знач Формат = Неопределено, 
 		Знач КоличествоКоммитовДоPush = 0,
 		Знач URLРепозитория = Неопределено,
-		Знач Лимит = 0
-		) Экспорт
+		Знач Лимит = 0,
+		Знач ПрерватьВыполнениеБезКомментарияКВерсии = Ложь) Экспорт
 
 	Лог.Информация("Начало синхронизации с git");
 	ТаблицаИсторииХранилища = ПрочитатьИзХранилищаИсториюКоммитовСАвторами(ФайлХранилища);
@@ -952,6 +952,10 @@
 		Формат = РежимВыгрузкиФайлов.Авто;
 	КонецЕсли;
 
+	если ПрерватьВыполнениеБезКомментарияКВерсии = Неопределено Тогда
+		ПрерватьВыполнениеБезКомментарияКВерсии = Ложь;
+	КонецЕсли;
+
 	Лог.Отладка("Используется формат выгрузки " + Формат);
 
 	МаксимальнаяВерсияДляРазбора = ОпределитьМаксимальнуюВерсиюСУчетомОграниченияСверху(ТаблицаИсторииХранилища, ТекущаяВерсия, КонечнаяВерсия);
@@ -969,6 +973,11 @@
 				ВызватьИсключение "Нашли следующую версию, а автор не прописан "+СледующаяВерсия + " автор "+СтрокаВерсии.Автор;
 			КонецЕсли;
 
+			Если ПустаяСтрока(СтрокаВерсии.Комментарий) 
+				И ПрерватьВыполнениеБезКомментарияКВерсии Тогда
+				ВызватьИсключение "Нашли следующую версию, а комментарий не задан "+СледующаяВерсия + " автор "+СтрокаВерсии.Автор;
+			КонецЕсли;
+
 			Попытка
 				Лог.Информация("Получаем исходники для версии " + СледующаяВерсия + ", " + ТекущаяДата());
 

src/core/Модули/РаспаковщикКонфигурации.os

@@ -78,7 +78,8 @@
 									Знач Формат = Неопределено, 
 									Знач КоличествоКоммитовДоPush = 0, 
 									Знач URLРепозитория = Неопределено, 
-									Знач Лимит = 0) Экспорт
+									Знач Лимит = 0,
+									Знач ПрерватьВыполнениеБезКомментарияКВерсии) Экспорт
 
 	ФайлБазыДанныхХранилища = ПолучитьПутьКБазеДанныхХранилища(ПутьКХранилищу);
 	Распаковщик.СинхронизироватьХранилищеКонфигурацийСГит(ЛокальныйКаталогГит, 
@@ -88,7 +89,8 @@
 															Формат, 
 															КоличествоКоммитовДоPush, 
 															URLРепозитория, 
-															Лимит);
+															Лимит,
+															ПрерватьВыполнениеБезКомментарияКВерсии);
 
 КонецПроцедуры // ВыполнитьЭкспортИсходников
 

src/xml-config.os

@@ -96,6 +96,8 @@
 			Ключ = "ПутьGit";
 		ИначеЕсли КлючИЗначение.Ключ = "push-every-n-commits" Тогда
 			Ключ = "КоличествоКоммитовДоPush";
+		ИначеЕсли КлючИЗначение.Ключ = "stop-if-empty-comment" Тогда
+			Ключ = "КоличествоКоммитовДоPush";
 		Иначе
 			ВызватьИсключение НекорректнаяСтруктураНастроек();
 		КонецЕсли;