oscript-library#216 Таймаут через конфиг.

dmpas · Jun 13, 2024 · 1dfbcc3 · 1dfbcc3
1 parent d09eb99
commit 1dfbcc3
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 12 deletions.
diff --git a/src/cmd/Классы/КомандаOpm_Push.os b/src/cmd/Классы/КомандаOpm_Push.os
@@ -147,7 +147,7 @@
 	Ресурс = КонстантыOpm.РесурсПубликацииПакетов;
 	Авторизация = Неопределено;
 	ДополнительныеЗаголовки = Неопределено;
-	Таймаут = 60;
+	Таймаут = 600;
 
 	Для Каждого НастройкаСервера Из ДоступныеСервераПакетов Цикл
 
@@ -156,6 +156,7 @@
 			Ресурс = НастройкаСервера.РесурсПубликацииПакетов;
 			Авторизация = НастройкаСервера.Авторизация;
 			ДополнительныеЗаголовки = НастройкаСервера.ДополнительныеЗаголовки;
+			Таймаут = НастройкаСервера.Таймаут;
 			Прервать;
 		КонецЕсли;
 

diff --git a/src/core/Классы/МенеджерПолученияПакетов.os b/src/core/Классы/МенеджерПолученияПакетов.os
@@ -200,8 +200,7 @@
 
 	Для каждого НастройкаСервера Из СервераПакетов Цикл
 
-		ТекущийСерверПакетов = СоздатьСерверПакетовПоНастройке(НастройкаСервера);
-		ИндексСерверовПакетов.Вставить(НастройкаСервера.Имя, ТекущийСерверПакетов);
+		ИндексСерверовПакетов.Вставить(НастройкаСервера.Имя, НастройкаСервера);
 
 	КонецЦикла;
 
@@ -227,12 +226,6 @@
 
 КонецФункции
 
-Функция СоздатьСерверПакетовПоНастройке(Знач НастройкаСервера)
-
-	Возврат НастройкаСервера;
-
-КонецФункции
-
 Процедура ОбновитьИндексДоступныхПакетов()
 
 	// Учесть версии пакетов

diff --git a/src/core/Классы/СерверПакетов.os b/src/core/Классы/СерверПакетов.os
@@ -9,12 +9,13 @@
 Перем РесурсПубликацииПакетов Экспорт;
 Перем Авторизация Экспорт;
 Перем ДополнительныеЗаголовки Экспорт;
+Перем Таймаут Экспорт;
 
 Перем ПакетыХаба;
 
 Процедура ПриСозданииОбъекта(Знач ИмяСервера, Знач АдресСервер, Знач ВходящийПутьНаСервере = "",
 		Знач ВходящийРесурсПубликацииПакетов = "", Знач ВходящийПорт = 80, Знач ВходящийПриоритет = 0,
-		Знач ВходящаяАвторизация = Неопределено, Знач Заголовки = Неопределено)
+		Знач ВходящаяАвторизация = Неопределено, Знач Заголовки = Неопределено, Знач ВходящийТаймаут = 60)
 
 	Имя = ИмяСервера;
 	Сервер = АдресСервер;
@@ -24,6 +25,7 @@
 	РесурсПубликацииПакетов = ВходящийРесурсПубликацииПакетов;
 	Авторизация = ВходящаяАвторизация;
 	ДополнительныеЗаголовки = Заголовки;
+	Таймаут = ВходящийТаймаут;
 
 КонецПроцедуры
 
@@ -43,7 +45,6 @@
 
 	Порт = ?(Порт = Неопределено, 80, Порт);
 	Настройки = НастройкиOpm.ПолучитьНастройки();
-	Таймаут = 60;
 	Если Настройки.ИспользоватьПрокси Тогда
 		НастройкиПрокси = НастройкиOpm.ПолучитьИнтернетПрокси();
 		Соединение = Новый HTTPСоединение(Сервер, Порт, , , НастройкиПрокси, Таймаут);
@@ -166,6 +167,7 @@
 	Результат.Вставить("ПутьНаСервере", ПутьНаСервере);
 	Результат.Вставить("РесурсПубликацииПакетов", РесурсПубликацииПакетов);
 	Результат.Вставить("Порт", Порт);
+	Результат.Вставить("Таймаут", Таймаут);
 	Результат.Вставить("Авторизация", Авторизация);
 	Результат.Вставить("Заголовки", ДополнительныеЗаголовки);
 	Результат.Вставить("Приоритет", Приоритет);

diff --git a/src/core/Модули/СерверыПакетов.os b/src/core/Модули/СерверыПакетов.os
@@ -9,13 +9,14 @@
 	Приоритет = Число(ПолучитьЗначение(ТекущийСерверПакетов, "Приоритет", 0));
 	Авторизация = ПолучитьЗначение(ТекущийСерверПакетов, "Авторизация", "");
 	ДополнительныеЗаголовки = ПолучитьЗначение(ТекущийСерверПакетов, "Заголовки", Новый Соответствие);
+	Таймаут = ПолучитьЗначение(ТекущийСерверПакетов, "Таймаут", 600);
 
 	Если ПустаяСтрока(Сервер) Тогда
 		ВызватьИсключение СтрШаблон("Для сервера <%1> не задан адрес", Индекс);
 	КонецЕсли;
 
 	СерверПакетов = Новый СерверПакетов(Имя, Сервер, ПутьНаСервере, РесурсПубликацииПакетов,
-		Порт, Приоритет, Авторизация, ДополнительныеЗаголовки
+		Порт, Приоритет, Авторизация, ДополнительныеЗаголовки, Таймаут
 	);
 
 	Возврат СерверПакетов;