- Добавил возможность отправлять пакеты в зеркало

- Добавил возможность устанавливать и обновлять пакеты из зеркала
- Скорректировал сохранение настроек, добавив информацию о ресурсе публикации пакета
- Исправил ошибки неработоспособности КомандаOpm_Install и КомандаOpm_Update

Author: bia-tech

features/step_definitions/Настройки.os

@@ -128,20 +128,20 @@
 	Если Не СервераПакетов = Неопределено Тогда
 		Индекс = 1;
 
-		Для каждого СерверПакетов Из СервераПакетов Цикл
+		Для каждого ТекущийСерверПакетов Из СервераПакетов Цикл
 
-			Сервер = ПолучитьЗначение(СерверПакетов, "Сервер", "");
-			Порт = Число(ПолучитьЗначение(СерверПакетов, "Порт", 80));
-			ПутьНаСервере = ПолучитьЗначение(СерверПакетов, "ПутьНаСервере", "/");
-			РесурсПубликацииПакетов = ПолучитьЗначение(СерверПакетов, "РесурсПубликацииПакетов", "/");
-			Имя = ПолучитьЗначение(СерверПакетов, "Имя", СтрШаблон("ДопСервер_%1",Индекс));
-			Приоритет = Число(ПолучитьЗначение(СерверПакетов, "Приоритет", 0));
+			Сервер = ПолучитьЗначение(ТекущийСерверПакетов, "Сервер", "");
+			Порт = Число(ПолучитьЗначение(ТекущийСерверПакетов, "Порт", 80));
+			ПутьНаСервере = ПолучитьЗначение(ТекущийСерверПакетов, "ПутьНаСервере", "/");
+			РесурсПубликацииПакетов = ПолучитьЗначение(ТекущийСерверПакетов, "РесурсПубликацииПакетов", "/");
+			Имя = ПолучитьЗначение(ТекущийСерверПакетов, "Имя", СтрШаблон("ДопСервер_%1",Индекс));
+			Приоритет = Число(ПолучитьЗначение(ТекущийСерверПакетов, "Приоритет", 0));
 
 			Если ПустаяСтрока(Сервер) Тогда
 				Продолжить;
 			КонецЕсли;
 
-			НастройкиOpm.ДобавитьСерверПакетов(Имя, Сервер, ПутьНаСервере, РесурсПубликацииПакетов, Порт, Приоритет);
+			НастройкиOpm.ДобавитьТекущийСерверПакетов(Имя, Сервер, ПутьНаСервере, РесурсПубликацииПакетов, Порт, Приоритет);
 			Индекс = Индекс +1;
 
 		КонецЦикла;

src/cmd/Классы/КомандаOpm_Install.os

@@ -9,11 +9,12 @@
 	КомандаПриложения.Опция("s skip-install-deps", Ложь, "признак пропуска установки зависимых пакетов");
 	КомандаПриложения.Опция("skip-create-app", Ложь, "признак отключения создания файла запуска");
 	КомандаПриложения.Опция("d dest", "", "Переопределить стандартный каталог в который устанавливаются пакеты (вместо oscript_modules)");
-
+	КомандаПриложения.Опция("m mirror", "", "Указать имя сервера, с которого необходимо ставить пакеты");
+	
 	КомандаПриложения.Аргумент("PACKAGE", "", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета")
 						.ТМассивСтрок()
 						.Обязательный(Ложь);
-
+						
 	// КомандаПриложения.Спек = "(-a | --all | -l | --local | -d | --dest )";
 
 КонецПроцедуры
@@ -28,6 +29,7 @@
 
 	НеобходимоУстановитьЗависимости = Не КомандаПриложения.ЗначениеОпции("skip-install-deps");
 	СоздаватьФайлыЗапуска = НЕ КомандаПриложения.ЗначениеОпции("skip-create-app");
+	ИмяСервера = КомандаПриложения.ЗначениеОпции("mirror");
 
 	РежимУстановки = РежимУстановкиПакетов.Глобально;
 	Если УстановкаВЛокальныйКаталог Тогда
@@ -57,6 +59,7 @@
 	НастройкаУстановки = РаботаСПакетами.ПолучитьНастройкуУстановки();
 	НастройкаУстановки.УстанавливатьЗависимости = НеобходимоУстановитьЗависимости;
 	НастройкаУстановки.СоздаватьФайлыЗапуска = СоздаватьФайлыЗапуска;
+	НастройкаУстановки.ИмяСервера = ИмяСервера;
 
 	Если УстановкаВсехПакетов Тогда
 		РаботаСПакетами.УстановитьВсеПакетыИзОблака(РежимУстановки, ЦелевойКаталог, НастройкаУстановки);

src/cmd/Классы/КомандаOpm_Push.os

@@ -130,6 +130,7 @@
 
 	ДоступныеСервераПакетов = НастройкиOpm.ПолучитьНастройки().СервераПакетов;
 
+	// Для настроек по умолчанию
 	Сервер = КонстантыOpm.СерверУдаленногоХранилища;
 	Ресурс = КонстантыOpm.РесурсПубликацииПакетов;
 

src/cmd/Классы/КомандаOpm_Update.os

@@ -8,6 +8,7 @@
 	КомандаПриложения.Опция("l local", Ложь, "Обновление пакета в локальном каталоге oscript_modules");
 	КомандаПриложения.Опция("s skip-install-deps", Ложь, "признак пропуска установки зависимых пакетов");
 	КомандаПриложения.Опция("skip-create-app", Ложь, "признак отключения создания файла запуска");
+	КомандаПриложения.Опция("m mirror", "", "Указать имя сервера, с которого необходимо ставить пакеты");
 
 	КомандаПриложения.Аргумент("PACKAGE", "", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета")
 						.ТМассивСтрок()
@@ -26,6 +27,7 @@
 
 	НеобходимУстановитьЗависимости = Не КомандаПриложения.ЗначениеОпции("skip-install-deps");
 	СоздаватьФайлыЗапуска = НЕ КомандаПриложения.ЗначениеОпции("skip-create-app");
+	ИмяСервера = КомандаПриложения.ЗначениеОпции("mirror");
 
 	РежимУстановки = РежимУстановкиПакетов.Глобально;
 
@@ -36,6 +38,7 @@
 	НастройкаУстановки = РаботаСПакетами.ПолучитьНастройкуУстановки();
 	НастройкаУстановки.УстанавливатьЗависимости = НеобходимУстановитьЗависимости;
 	НастройкаУстановки.СоздаватьФайлыЗапуска = СоздаватьФайлыЗапуска;
+	НастройкаУстановки.ИмяСервера = ИмяСервера;
 
 	Если ОбновлениеВсехПакетов Тогда
 		РаботаСПакетами.ОбновитьУстановленныеПакеты(РежимУстановки, , НастройкаУстановки);
@@ -44,9 +47,9 @@
 	Иначе
 
 		Для каждого ИмяПакета Из МассивПакетовКОбновлению Цикл
-			РаботаСПакетами.ОбновитьПакетИзОблака(ИмяПакета, РежимУстановки, НастройкаУстановки);
+			РаботаСПакетами.ОбновитьПакетИзОблака(ИмяПакета, РежимУстановки, , НастройкаУстановки);
 		КонецЦикла;
 
 	КонецЕсли;
 
-КонецПроцедуры
+КонецПроцедуры

src/cmd/Модули/ПараметрыПриложенияOpm.os

@@ -58,14 +58,14 @@
 	Если Не СервераПакетов = Неопределено Тогда
 		Индекс = 1;
 
-		Для каждого СерверПакетов Из СервераПакетов Цикл
+		Для каждого ТекущийСерверПакетов Из СервераПакетов Цикл
 
-			Сервер = ПолучитьЗначение(СерверПакетов, "Сервер", "");
-			Порт = Число(ПолучитьЗначение(СерверПакетов, "Порт", 80));
-			ПутьНаСервере = ПолучитьЗначение(СерверПакетов, "ПутьНаСервере", "/");
-			Имя = ПолучитьЗначение(СерверПакетов, "Имя", СтрШаблон("ДопСервер_%1", Индекс));
-			РесурсПубликацииПакетов = ПолучитьЗначение(СерверПакетов, "РесурсПубликацииПакетов", "/");
-			Приоритет = Число(ПолучитьЗначение(СерверПакетов, "Приоритет", 0));
+			Сервер = ПолучитьЗначение(ТекущийСерверПакетов, "Сервер", "");
+			Порт = Число(ПолучитьЗначение(ТекущийСерверПакетов, "Порт", 80));
+			ПутьНаСервере = ПолучитьЗначение(ТекущийСерверПакетов, "ПутьНаСервере", "/");
+			Имя = ПолучитьЗначение(ТекущийСерверПакетов, "Имя", СтрШаблон("ДопСервер_%1", Индекс));
+			РесурсПубликацииПакетов = ПолучитьЗначение(ТекущийСерверПакетов, "РесурсПубликацииПакетов", "/");
+			Приоритет = Число(ПолучитьЗначение(ТекущийСерверПакетов, "Приоритет", 0));
 
 			Если ПустаяСтрока(Сервер) Тогда
 				Лог.Отладка("Для сервера <%1> не задан адрес", Индекс);

src/core/Классы/МенеджерПолученияПакетов.os

@@ -10,7 +10,7 @@
 
 КонецПроцедуры
 
-Функция ПолучитьПакет(Знач ИмяПакета, Знач ВерсияПакета, ПутьКФайлуПакета = "") Экспорт
+Функция ПолучитьПакет(Знач ИмяПакета, Знач ВерсияПакета, ПутьКФайлуПакета = "", ИмяСервера = "") Экспорт
 
 	Если Не ПакетДоступен(ИмяПакета) Тогда
 
@@ -37,7 +37,7 @@
 
 	ПереченьСерверов = ИндексКешаПакетов[ИмяПакета];
 
-	Ответ = ЗапроситьПакет(ПереченьСерверов, ИмяРесурса);
+	Ответ = ЗапроситьПакет(ПереченьСерверов, ИмяСервера, ИмяРесурса);
 
 	Если Не Ответ = Неопределено Тогда
 		Лог.Отладка("Файл получен");
@@ -53,50 +53,75 @@
 
 КонецФункции
 
-Функция ЗапроситьПакет(Знач ПереченьСерверов, Знач ИмяРесурса)
+Функция ЗапроситьПакет(Знач ПереченьСерверов, Знач ИмяСервера, Знач ИмяРесурса)
 
 	ПакетУспешноПолучен = Ложь;
-
-	Для каждого ДоступныйСервер Из ПереченьСерверов Цикл
-
-		Сервер = ИндексСерверовПакетов[ДоступныйСервер.Ключ];
-
-		Если Сервер.СерверДоступен() Тогда
+	ОтветСервера = Неопределено;
+	
+	// Если указан нужный сервер, то только его и будем использовать 
+	Если ЗначениеЗаполнено(ИмяСервера) Тогда
 
-			Ответ  = Сервер.ПолучитьРесурс(ИмяРесурса);
-			Если Ответ = Неопределено Тогда
-				Продолжить;
-			КонецЕсли;
+		Сервер = ИндексСерверовПакетов[ИмяСервера];
+		ОтветСервера = ЗапроситьПакетССервера(Сервер, ИмяРесурса);
 
-			Если Ответ.КодСостояния = 200 Тогда
+	Иначе
+		
+		// поиск пакета на серверах
+		Для Каждого ДоступныйСервер Из ПереченьСерверов Цикл
+			
+			Сервер = ИндексСерверовПакетов[ДоступныйСервер.Ключ];
+			ОтветСервера = ЗапроситьПакетССервера(Сервер, ИмяРесурса);
+			Если ОтветСервера <> Неопределено Тогда
 
-				ПакетУспешноПолучен = Истина;
 				Прервать;
-				
-			КонецЕсли;
-
-			Ответ.Закрыть();
-
-			Лог.Информация("Ошибка подключения к хабу %1 <%2>",
-							Сервер.ПолучитьИмя(),
-							Ответ.КодСостояния);
 
-		КонецЕсли;
+			КонецЕсли;
+			
+		КонецЦикла;
 
-	КонецЦикла;
+	КонецЕсли;
 
-	Если ПакетУспешноПолучен Тогда
+	Если ОтветСервера <> Неопределено Тогда
 
 		Лог.Отладка("Ресурс %1 успешно получен с %2", ИмяРесурса, Сервер.ПолучитьИмя());
-
-		Возврат Ответ;
+		Возврат ОтветСервера;
 
 	КонецЕсли;
 
 	Возврат Неопределено;
 
 КонецФункции
 
+Функция ЗапроситьПакетССервера(Сервер, ИмяРесурса)
+	
+	ОтветСервера = Неопределено;
+	Если Сервер.СерверДоступен() Тогда
+			
+		ОтветСервера = Сервер.ПолучитьРесурс(ИмяРесурса);
+		Если ОтветСервера <> Неопределено Тогда
+			
+			Если ОтветСервера.КодСостояния = 200 Тогда
+						
+				Возврат ОтветСервера;
+						
+			КонецЕсли;
+
+			ОтветСервера.Закрыть();
+
+			Лог.Информация("Ошибка подключения к хабу %1 <%2>",
+							Сервер.ПолучитьИмя(),
+							ОтветСервера.КодСостояния);
+							
+			ОтветСервера = Неопределено;
+			
+		КонецЕсли;
+
+	КонецЕсли;
+	
+	Возврат ОтветСервера;
+	
+КонецФункции
+
 // Функция по имени пакета определяет имя архива в хабе
 // https://github.com/oscript-library/opm/issues/50
 // Имена файлов в хабе регистрозависимы, однако имена пакетов по обыкновению регистронезависимы
@@ -171,8 +196,8 @@
 
 	Для каждого НастройкаСервера Из СервераПакетов Цикл
 
-		СерверПакетов = СоздатьСерверПакетовПоНастройке(НастройкаСервера);
-		ИндексСерверовПакетов.Вставить(НастройкаСервера.Имя, СерверПакетов);
+		ТекущийСерверПакетов = СоздатьСерверПакетовПоНастройке(НастройкаСервера);
+		ИндексСерверовПакетов.Вставить(НастройкаСервера.Имя, ТекущийСерверПакетов);
 
 	КонецЦикла;
 
@@ -210,10 +235,10 @@
 
 	ИндексКешаПакетов = Новый Соответствие;
 
-	Для каждого СерверПакетов Из ИндексСерверовПакетов Цикл
+	Для каждого ТекущийСерверПакетов Из ИндексСерверовПакетов Цикл
 
-		ИмяСервера = СерверПакетов.Ключ;
-		КлассСервера = СерверПакетов.Значение;
+		ИмяСервера = ТекущийСерверПакетов.Ключ;
+		КлассСервера = ТекущийСерверПакетов.Значение;
 
 		Пакеты = КлассСервера.ПолучитьПакеты();
 
@@ -243,4 +268,4 @@
 
 КонецПроцедуры
 
-Лог = Логирование.ПолучитьЛог("oscript.app.opm");
+Лог = Логирование.ПолучитьЛог("oscript.app.opm");