Добавлен параметр командной строки - количество повторов получения лицензии

Author: Tushkan

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

@@ -27,6 +27,8 @@
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-limit", "<выгрузить неболее limit версий от текущей выгруженной>");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-tempdir", "<Путь к каталогу временных файлов>");
 
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек)");
+
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
 КонецПроцедуры // ЗарегистрироватьКоманду

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

@@ -28,6 +28,7 @@
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-format", "<hierarchical|plain>");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-tempdir", "<Путь к каталогу временных файлов>");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-push-every-n-commits", "<число> количество коммитов до промежуточной отправки на удаленный сервер");
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек)");
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 

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

@@ -25,6 +25,7 @@
 
 Перем ДоменПочтыДляGitПоУмолчанию Экспорт;
 Перем ВерсияПлатформы Экспорт;
+Перем КоличествоЦикловОжиданияЛицензии Экспорт;
 
 // Выполняет выгрузку конфигурации в файлы
 // и распределение файлов по каталогам согласно иерархии метаданных.
@@ -68,35 +69,36 @@
 	ЛогКонфигуратора = Логирование.ПолучитьЛог("oscript.lib.v8runner");
 	ЛогКонфигуратора.УстановитьУровень(Лог.Уровень());
 
-	КоличествоЦикловОжиданияЛицензии = 30;
-	Пока КоличествоЦикловОжиданияЛицензии > 0 Цикл
+	Пока КоличествоЦикловОжиданияЛицензии >= 0 Цикл
 		Попытка
-
+			
 			Конфигуратор.ЗагрузитьКонфигурациюИзФайла(ФайлКонфигурации, Ложь);
 			Прервать;
 
 		Исключение
-
+			
 			// проверим текст ошибки, если текст содержит информацию о необходимости конвертировать
 			// тогда выполним конвертацию и повторно попытаемся загрузить файл
 			ТекстОшибки = Конфигуратор.ВыводКоманды();
 			Если Найти(Врег(ТекстОшибки), Врег("Структура конфигурации несовместима с текущей версией программы")) Тогда
-
+				
 				Конфигуратор.СконвертироватьФайлКонфигурации(ФайлКонфигурации);
-
+				Конфигуратор.ЗагрузитьКонфигурациюИзФайла(ФайлКонфигурации, Ложь);
+				Прервать;
+				
 			ИначеЕсли Найти(Врег(ТекстОшибки), Врег("Не обнаружено свободной лицензии!")) Тогда
 				Лог.Ошибка(ТекстОшибки);
-				Лог.Информация("Повторное подключение. Не обнаружено свободной лицензии!");
-				Приостановить(10000);	// 5 минут подождем
-				КоличествоЦикловОжиданияЛицензии = КоличествоЦикловОжиданияЛицензии - 1;
-				
-			Иначе
+				Приостановить(10000);
+				Лог.Информация("Повторное подключение. Осталось попыток: " + КоличествоЦикловОжиданияЛицензии);
 
+			Иначе
+				
 				ВызватьИсключение ТекстОшибки;
-
+				
 			КонецЕсли;
-
+			
 		КонецПопытки;
+		КоличествоЦикловОжиданияЛицензии = КоличествоЦикловОжиданияЛицензии - 1;
 	КонецЦикла;
 
 	Если Не (Новый Файл(КаталогПлоскойВыгрузки).Существует()) Тогда
@@ -1398,4 +1400,5 @@
 
 Лог = Логирование.ПолучитьЛог("oscript.app.gitsync");
 ДоменПочтыДляGitПоУмолчанию = "localhost";
-УдалятьВременныеФайлы=Ложь;
+УдалятьВременныеФайлы = Ложь;
+КоличествоПовторовОжиданияЛицензии = 1;

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

@@ -16,6 +16,13 @@
 	Лог = ДополнительныеПараметры.Лог;
 	Распаковщик = ПолучитьРаспаковщик(ДополнительныеПараметры);
 	Распаковщик.ДоменПочтыДляGitПоУмолчанию = ПараметрыЗапуска["-email"];
+
+	КоличествоЦикловОжиданияЛицензии = ПараметрыЗапуска["-amount-look-for-license"];
+	Если КоличествоЦикловОжиданияЛицензии = Неопределено Тогда
+		КоличествоЦикловОжиданияЛицензии = 1;
+	КонецЕсли;
+	Распаковщик.КоличествоЦикловОжиданияЛицензии = Число(КоличествоЦикловОжиданияЛицензии);
+	
 	Возврат Распаковщик;
 
 КонецФункции // ПолучитьИНастроитьРаспаковщик