Добавил флаг пропуска ошибок создания существующих тегов

Author: VladFrost

src/Классы/smart-tags.os

@@ -3,6 +3,8 @@
 Перем ВерсияПлагина;
 Перем Лог;
 Перем Обработчик;
+Перем КомандыПлагина;
+Перем ПропускатьСуществующиеТеги;
 Перем ПоследняяВерсияКонфигурации;
 Перем ТекущаяВерсияКонфигурации;
 
@@ -20,6 +22,29 @@
 
 КонецПроцедуры
 
+Процедура ПриРегистрацииКомандыПриложения(ИмяКоманды, КлассРеализации, Парсер) Экспорт
+
+	Лог.Отладка("Ищю команду <%1> в списке поддерживаемых", ИмяКоманды);
+	Если КомандыПлагина.Найти(ИмяКоманды) = Неопределено Тогда
+		Возврат;
+	КонецЕсли;
+
+	Лог.Отладка("Устанавливаю дополнительные параметры для команды %1", ИмяКоманды);
+
+	ПропускатьСуществующиеТеги = КлассРеализации.Опция("S skip-exists-tags", Ложь, "[*skip-exists-tags] флаг пропуска ошибок создания существующих тегов").Флаговый();
+
+КонецПроцедуры
+
+Процедура ПриПолученииПараметров(ПараметрыКоманды, ДополнительныеПараметры) Экспорт
+
+	ПропускатьСуществующиеТеги = ПараметрыКоманды["--skip-exists-tags"];
+
+	Если ПропускатьСуществующиеТеги = Неопределено Тогда
+		ПропускатьСуществующиеТеги = Ложь;
+	КонецЕсли;
+
+КонецПроцедуры
+
 Процедура ПередНачаломВыполнения(ПутьКХранилищу, КаталогРабочейКопии, URLРепозитория, ИмяВетки) Экспорт
 
 	ПоследняяВерсияКонфигурации = ПрочитатьВерсиюИзИсходников(КаталогРабочейКопии);
@@ -52,7 +77,8 @@
 			ГитРепозиторий.ВыполнитьКоманду(ПараметрыКоманды);
 		Исключение
 			ТекстОшибки = ОписаниеОшибки();
-			Если ЭтоНесущественнаяОшибкаТегУжеСуществует(ТекстОшибки, ТекущаяВерсияКонфигурации) Тогда
+			Если ПропускатьСуществующиеТеги
+				И ЭтоОшибкаТегУжеСуществует(ТекстОшибки, ТекущаяВерсияКонфигурации) Тогда
 				Лог.Ошибка(ТекстОшибки);
 			Иначе
 				ВызватьИсключение ТекстОшибки;
@@ -78,7 +104,7 @@
 
 КонецФункции // ПрочитатьВерсиюИзИсходников()
 
-Функция ЭтоНесущественнаяОшибкаТегУжеСуществует(ТекстОшибки, ТекущаяВерсияКонфигурации)
+Функция ЭтоОшибкаТегУжеСуществует(ТекстОшибки, ТекущаяВерсияКонфигурации)
 
 	Возврат СтрНайти(
 		ТекстОшибки,