добавлен бесконечный цикл получения лицензии

Author: Tushkan

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

@@ -19,13 +19,13 @@
 Перем мАвторизацияВХранилищеСредствами1С;
 Перем ЭтоWindows;
 Перем УдалятьВременныеФайлы;
+Перем КоличествоЦикловОжиданияЛицензииПоУмолчанию;
 
 ///////////////////////////////////////////////////////////////////////////////////////////////
 // ПРОГРАММНЫЙ ИНТЕРФЕЙС
 
 Перем ДоменПочтыДляGitПоУмолчанию Экспорт;
 Перем ВерсияПлатформы Экспорт;
-Перем КоличествоЦикловОжиданияЛицензии Экспорт;
 Перем ПереименовыватьФайлМодуляОбычнойФормы Экспорт;
 
 // Выполняет выгрузку конфигурации в файлы
@@ -69,7 +69,7 @@
 
 	ЛогКонфигуратора = Логирование.ПолучитьЛог("oscript.lib.v8runner");
 	ЛогКонфигуратора.УстановитьУровень(Лог.Уровень());
-
+	КоличествоЦикловОжиданияЛицензии = ПолучитьКоличествоЦикловОжиданияЛицензии();
 	Пока КоличествоЦикловОжиданияЛицензии >= 0 Цикл
 		Попытка
 
@@ -80,17 +80,17 @@
 
 			// проверим текст ошибки, если текст содержит информацию о необходимости конвертировать
 			// тогда выполним конвертацию и повторно попытаемся загрузить файл
-			ТекстОшибки = Конфигуратор.ВыводКоманды();
-			Если Найти(Врег(ТекстОшибки), Врег("Структура конфигурации несовместима с текущей версией программы")) Тогда
+			ТекстОшибки = ВРег(Конфигуратор.ВыводКоманды());
+			Если Найти(ТекстОшибки, Врег("Структура конфигурации несовместима с текущей версией программы")) Тогда
 
 				Конфигуратор.СконвертироватьФайлКонфигурации(ФайлКонфигурации);
 				Конфигуратор.ЗагрузитьКонфигурациюИзФайла(ФайлКонфигурации, Ложь);
 				Прервать;
 
-			ИначеЕсли Найти(Врег(ТекстОшибки), Врег("Не обнаружено свободной лицензии!")) Тогда
+			ИначеЕсли Найти(ТекстОшибки, Врег("Не обнаружено свободной лицензии!")) Тогда
 				Лог.Ошибка(ТекстОшибки);
+				Лог.Информация("Повторное подключение через 10сек. Осталось попыток: " + КоличествоЦикловОжиданияЛицензии);
 				Приостановить(10000);
-				Лог.Информация("Повторное подключение. Осталось попыток: " + КоличествоЦикловОжиданияЛицензии);
 
 			Иначе
 
@@ -99,7 +99,11 @@
 			КонецЕсли;
 
 		КонецПопытки;
-		КоличествоЦикловОжиданияЛицензии = КоличествоЦикловОжиданияЛицензии - 1;
+
+		Если ПолучитьКоличествоЦикловОжиданияЛицензии() <> 0 Тогда
+			КоличествоЦикловОжиданияЛицензии = КоличествоЦикловОжиданияЛицензии - 1;
+		КонецЕсли;
+		
 	КонецЦикла;
 
 	Если Не (Новый Файл(КаталогПлоскойВыгрузки).Существует()) Тогда
@@ -966,7 +970,7 @@
 			КонецЕсли;
 
 			Попытка
-				Лог.Информация("Получаем исходники для версии " + СледующаяВерсия);
+				Лог.Информация("Получаем исходники для версии " + СледующаяВерсия + ", " + ТекущаяДата());
 
 				РазложитьМодулиПоНомеруВерсииХранилища1С(КаталогРабочейКопии, ФайлХранилища, СледующаяВерсия, Формат);
 				Лог.Отладка("Фиксируем в файле VERSION версию " + СледующаяВерсия);
@@ -1415,11 +1419,20 @@
 	Возврат ?(ДоменПочтыДляGitПоУмолчанию = Неопределено, "localhost", ДоменПочтыДляGitПоУмолчанию);
 КонецФункции
 
+Процедура УстановитьКоличествоЦикловОжиданияЛицензии(КоличествоЦиклов) Экспорт
+	КоличествоЦикловОжиданияЛицензииПоУмолчанию = КоличествоЦиклов;
+КонецПроцедуры
+
+Функция ПолучитьКоличествоЦикловОжиданияЛицензии() Экспорт
+	Возврат КоличествоЦикловОжиданияЛицензииПоУмолчанию;
+КонецФункции
+
+
 //////////////////////////////////////////////////////////////////////////////////////////////
 СистемнаяИнформация = Новый СистемнаяИнформация;
 ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;
 
 Лог = Логирование.ПолучитьЛог("oscript.app.gitsync");
 ДоменПочтыДляGitПоУмолчанию = "localhost";
 УдалятьВременныеФайлы = Ложь;
-КоличествоПовторовОжиданияЛицензии = 1;
+КоличествоЦикловОжиданияЛицензииПоУмолчанию = 1;

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

@@ -21,7 +21,7 @@
 	Если КоличествоЦикловОжиданияЛицензии = Неопределено Тогда
 		КоличествоЦикловОжиданияЛицензии = 1;
 	КонецЕсли;
-	Распаковщик.КоличествоЦикловОжиданияЛицензии = Число(КоличествоЦикловОжиданияЛицензии);
+	Распаковщик.УстановитьКоличествоЦикловОжиданияЛицензии(Число(КоличествоЦикловОжиданияЛицензии));
 
 	Возврат Распаковщик;