Merge pull request #165 from bia-technologies/feature/mirrors

Первая часть поддержки работы с зеркалами opm

Author: nixel2007

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

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

@@ -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,30 @@
 
 КонецФункции
 
-Процедура ОтправитьПакетВХаб(Знач ТокенАвторизации, Знач ФайлПакета, Знач Канал)
+Процедура ОтправитьПакетВХаб(Знач ТокенАвторизации, Знач ФайлПакета, Знач Канал, Знач ИмяСервераПакетов)
 
 	ДвоичныеДанныеФайла = Новый ДвоичныеДанные(ФайлПакета.ПолноеИмя);
 	ДвоичныеДанныеФайлаВBase64 = Base64Строка(ДвоичныеДанныеФайла);
 
+	ДоступныеСервераПакетов = НастройкиOpm.ПолучитьНастройки().СервераПакетов;
+
+	// Для настроек по умолчанию
 	Сервер = КонстантыOpm.СерверУдаленногоХранилища;
 	Ресурс = КонстантыOpm.РесурсПубликацииПакетов;
 
+	Для Каждого НастройкаСервера Из ДоступныеСервераПакетов Цикл
+		
+		Если СтрСравнить(НастройкаСервера.Имя, ИмяСервераПакетов) = 0 Тогда
+			Сервер = НастройкаСервера.Сервер;
+			Ресурс = НастройкаСервера.РесурсПубликацииПакетов;
+			Прервать;
+		КонецЕсли;
+		
+	КонецЦикла;
+	
+	Лог.Отладка("Сервер = %1", Сервер);
+	Лог.Отладка("Ресурс = %1", Ресурс);
+
 	Заголовки = Новый Соответствие();
 	Заголовки.Вставить("OAUTH-TOKEN", ТокенАвторизации);
 	Заголовки.Вставить("FILE-NAME", ФайлПакета.Имя);

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

@@ -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 @@
 
 	Для каждого НастройкаСервера Из ТекущиеНастройки.СервераПакетов Цикл
 
-		Если НастройкаСервера.Имя = "ОсновнойСерверПакетов"
-			Или НастройкаСервера.Имя = "ЗапаснойСерверПакетов" Тогда
-			Продолжить;
-		КонецЕсли;
-
 		МассивСерверовПакетов.Добавить(НастройкаСервера);
 
 	КонецЦикла;