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

- Скорректировал сохранение настроек, добавив информацию о ресурсе публикации пакета

Author: bia-tech

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

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

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

@@ -25,25 +25,27 @@
 							.Перечисление("stable", "stable", "Канал содержащий стабильные версии пакетов")
 							.Перечисление("dev", "dev" , "Канал содержащий разработческие версии пакетов")
 							.ВОкружении("OPM_HUB_CHANNEL");
+	КомандаПриложения.Опция("m mirror", "СерверУдаленногоХранилища", "Имя сервера для публикации.
+							|    Доступные сервера прописываются в конфигурационном файле opm.cfg, параметр 'СервераПакетов'.
+							|    По умолчанию используется 'СерверУдаленногоХранилища'.")
+							.ВОкружении("OPM_HUB_MIRROR");
 
 	КомандаПриложения.Аргумент("FILE", "", "Маска или имя файла пакета.")
 							.Обязательный(Ложь);
 
-	// КомандаПриложения.Спек = "(-a | --all | -l | --local | -d | --dest )";
-
 КонецПроцедуры
 
 Процедура ВыполнитьКоманду(Знач КомандаПриложения) Экспорт
 
-
 	ТокенАвторизации = КомандаПриложения.ЗначениеОпции("token");
 	МаскаФайлаПакетаСтарая = КомандаПриложения.ЗначениеОпции("file");
 	ИмяКаналаПубликации = КомандаПриложения.ЗначениеОпции("channel");
+	ИмяСервераПакетов = КомандаПриложения.ЗначениеОпции("mirror");
 
 	МаскаФайлаПакета = КомандаПриложения.ЗначениеАргумента("FILE");
 
 	Если Не ПустаяСтрока(МаскаФайлаПакетаСтарая) Тогда
-		ЛОг.Предупреждение("Использование опции <--file> устарело в следующих версиях будет удалена. Используйте аргумент <FILE>");
+		Лог.Предупреждение("Использование опции <--file> устарело в следующих версиях будет удалена. Используйте аргумент <FILE>");
 		МаскаФайлаПакета = МаскаФайлаПакетаСтарая;
 	КонецЕсли;
 
@@ -53,7 +55,7 @@
 
 	Канал = ПолучитьИмяКаналаПубликации(ИмяКаналаПубликации);
 
-	ОтправитьПакетВХаб(ТокенАвторизации, ФайлПакета, Канал);
+	ОтправитьПакетВХаб(ТокенАвторизации, ФайлПакета, Канал, ИмяСервераПакетов);
 
 КонецПроцедуры
 
@@ -121,14 +123,29 @@
 
 КонецФункции
 
-Процедура ОтправитьПакетВХаб(Знач ТокенАвторизации, Знач ФайлПакета, Знач Канал)
+Процедура ОтправитьПакетВХаб(Знач ТокенАвторизации, Знач ФайлПакета, Знач Канал, Знач ИмяСервераПакетов)
 
 	ДвоичныеДанныеФайла = Новый ДвоичныеДанные(ФайлПакета.ПолноеИмя);
 	ДвоичныеДанныеФайлаВBase64 = Base64Строка(ДвоичныеДанныеФайла);
 
+	ДоступныеСервераПакетов = НастройкиOpm.ПолучитьНастройки().СервераПакетов;
+
 	Сервер = КонстантыOpm.СерверУдаленногоХранилища;
 	Ресурс = КонстантыOpm.РесурсПубликацииПакетов;
 
+	Для Каждого НастройкаСервера Из ДоступныеСервераПакетов Цикл
+		
+		Если СтрСравнить(НастройкаСервера.Имя, ИмяСервераПакетов) = 0 Тогда
+			Сервер = НастройкаСервера.Сервер;
+			Ресурс = НастройкаСервера.РесурсПубликацииПакетов;
+			Прервать;
+		КонецЕсли;
+		
+	КонецЦикла;
+	
+	Лог.Отладка("Сервер = %1", Сервер);
+	Лог.Отладка("Ресурс = %1", Ресурс);
+
 	Заголовки = Новый Соответствие();
 	Заголовки.Вставить("OAUTH-TOKEN", ТокенАвторизации);
 	Заголовки.Вставить("FILE-NAME", ФайлПакета.Имя);

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

@@ -43,8 +43,6 @@
 
 		КонецЕсли;
 
-
-
 	КонецЕсли;
 
 	СоздаватьShСкриптЗапуска = ПолучитьЗначение(НастройкиOpmИзФайлов,"СоздаватьShСкриптЗапуска", Неопределено);
@@ -60,20 +58,21 @@
 	Если Не СервераПакетов = Неопределено Тогда
 		Индекс = 1;
 
-		Для каждого ДополнительныйСервер Из СервераПакетов Цикл
+		Для каждого СерверПакетов Из СервераПакетов Цикл
 
-			Сервер = ПолучитьЗначение(ДополнительныйСервер, "Сервер", "");
-			Порт = Число(ПолучитьЗначение(ДополнительныйСервер, "Порт", 80));
-			ПутьНаСервере = ПолучитьЗначение(ДополнительныйСервер, "ПутьНаСервере", "/");
-			Имя = ПолучитьЗначение(ДополнительныйСервер, "Имя", СтрШаблон("ДопСервер_%1",Индекс));
-			Приоритет = Число(ПолучитьЗначение(ДополнительныйСервер, "Приоритет", 0));
+			Сервер = ПолучитьЗначение(СерверПакетов, "Сервер", "");
+			Порт = Число(ПолучитьЗначение(СерверПакетов, "Порт", 80));
+			ПутьНаСервере = ПолучитьЗначение(СерверПакетов, "ПутьНаСервере", "/");
+			Имя = ПолучитьЗначение(СерверПакетов, "Имя", СтрШаблон("ДопСервер_%1", Индекс));
+			РесурсПубликацииПакетов = ПолучитьЗначение(СерверПакетов, "РесурсПубликацииПакетов", "/");
+			Приоритет = Число(ПолучитьЗначение(СерверПакетов, "Приоритет", 0));
 
 			Если ПустаяСтрока(Сервер) Тогда
-				Лог.Отладка("Для дополнительного сервера <%1> не задан адрес", Индекс);
+				Лог.Отладка("Для сервера <%1> не задан адрес", Индекс);
 				Продолжить;
 			КонецЕсли;
 
-			НастройкиOpm.ДобавитьСерверПакетов(Имя, Сервер, ПутьНаСервере, Порт, Приоритет);
+			НастройкиOpm.ДобавитьСерверПакетов(Имя, Сервер, ПутьНаСервере, РесурсПубликацииПакетов, Порт, Приоритет);
 			Индекс = Индекс +1;
 
 		КонецЦикла;
@@ -179,11 +178,6 @@
 
 	Для каждого НастройкаСервера Из ТекущиеНастройки.СервераПакетов Цикл
 
-		Если НастройкаСервера.Имя = "ОсновнойСерверПакетов"
-			Или НастройкаСервера.Имя = "ЗапаснойСерверПакетов" Тогда
-			Продолжить;
-		КонецЕсли;
-
 		МассивСерверовПакетов.Добавить(НастройкаСервера);
 
 	КонецЦикла;

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

@@ -180,7 +180,12 @@
 
 Функция СоздатьСерверПакетовПоНастройке(Знач НастройкаСервера)
 
-	Возврат Новый СерверПакетов(НастройкаСервера.Имя, НастройкаСервера.Сервер, НастройкаСервера.ПутьНаСервере, НастройкаСервера.Порт, НастройкаСервера.Приоритет)
+	Возврат Новый СерверПакетов(НастройкаСервера.Имя, 
+								НастройкаСервера.Сервер, 
+								НастройкаСервера.ПутьНаСервере, 
+								НастройкаСервера.РесурсПубликацииПакетов, 
+								НастройкаСервера.Порт, 
+								НастройкаСервера.Приоритет)
 
 КонецФункции
 

src/core/Модули/НастройкиOpm.os

@@ -80,12 +80,13 @@
 
 КонецПроцедуры
 
-Функция НастройкиСервераПакетов(Знач Имя, Знач Сервер, Знач ПутьНаСервере, Знач Порт, Знач Приоритет)
+Функция НастройкиСервераПакетов(Знач Имя, Знач Сервер, Знач ПутьНаСервере, Знач РесурсПубликацииПакетов, Знач Порт, Знач Приоритет)
 
 	Результат = Новый Структура;
 	Результат.Вставить("Имя", Имя);
 	Результат.Вставить("Сервер", Сервер);
 	Результат.Вставить("ПутьНаСервере", ПутьНаСервере);
+	Результат.Вставить("РесурсПубликацииПакетов", РесурсПубликацииПакетов);
 	Результат.Вставить("Порт", Порт);
 	Результат.Вставить("Приоритет", Приоритет);
 
@@ -96,14 +97,17 @@
 Процедура ДобавитьСерверПакетов(Знач Имя,
 								Знач Сервер,
 								Знач ПутьНаСервере = "",
+								Знач РесурсПубликацииПакетов = "",
 								Знач Порт = 80,
 								Знач Приоритет = Неопределено) Экспорт
 
-	мНастройки.СервераПакетов.Добавить(НастройкиСервераПакетов(Имя, Сервер, ПутьНаСервере, Порт, Приоритет));
-	Лог.Отладка("Добавлен дополнительный сервер <%1>, Адрес <%2>, ПутьНаСервере <%3>, Порт <%4>, Приоритет <%5>", Имя, Сервер, ПутьНаСервере, Порт, Приоритет);
+	мНастройки.СервераПакетов.Добавить(НастройкиСервераПакетов(Имя, Сервер, ПутьНаСервере, РесурсПубликацииПакетов, Порт, Приоритет));
+	Лог.Отладка("Добавлен сервер <%1>, Адрес <%2>, ПутьНаСервере <%3>, РесурсПубликацииПакетов <%4>, Порт <%5>, Приоритет <%6>", 
+				Имя, Сервер, ПутьНаСервере, РесурсПубликацииПакетов, Порт, Приоритет);
 
 КонецПроцедуры
 
+
 Процедура СброситьНастройки() Экспорт
 
 	Инициализация();
@@ -121,8 +125,8 @@
 	мНастройки.Вставить("СервераПакетов", Новый Массив);
 
 	// Сервера пакетов по умолчанию
-	ДобавитьСерверПакетов("ОсновнойСерверПакетов", КонстантыOpm.СерверУдаленногоХранилища, КонстантыOpm.ПутьВХранилище, 80, 0);
-	ДобавитьСерверПакетов("ЗапаснойСерверПакетов", КонстантыOpm.СерверЗапасногоХранилища, КонстантыOpm.ПутьВЗапасномХранилище, 80, 1);
+	ДобавитьСерверПакетов("ОсновнойСерверПакетов", КонстантыOpm.СерверУдаленногоХранилища, КонстантыOpm.ПутьВХранилище, КонстантыOpm.РесурсПубликацииПакетов, 80, 0);
+	ДобавитьСерверПакетов("ЗапаснойСерверПакетов", КонстантыOpm.СерверЗапасногоХранилища, КонстантыOpm.ПутьВЗапасномХранилище, Неопределено, 80, 1);
 
 КонецПроцедуры