Merge pull request #166 from bia-technologies/feature/mirror2

Добавил заполнение параметра mirror через перечисление

Author: nixel2007

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

@@ -9,8 +9,17 @@
 	КомандаПриложения.Опция("s skip-install-deps", Ложь, "признак пропуска установки зависимых пакетов");
 	КомандаПриложения.Опция("skip-create-app", Ложь, "признак отключения создания файла запуска");
 	КомандаПриложения.Опция("d dest", "", "Переопределить стандартный каталог в который устанавливаются пакеты (вместо oscript_modules)");
-	КомандаПриложения.Опция("m mirror", "", "Указать имя сервера, с которого необходимо ставить пакеты");
 
+	ОпцияЗеркала = КомандаПриложения.Опция("m mirror", "", "Указать имя сервера, с которого необходимо ставить пакеты.
+					|    Доступные сервера прописываются в конфигурационном файле opm.cfg, параметр 'СервераПакетов'.")
+					.ВОкружении("OPM_HUB_MIRROR")
+					.ТПеречисление();
+
+	МенеджерПолучения = Новый МенеджерПолученияПакетов();
+	Для Каждого ДоступноеЗеркало Из МенеджерПолучения.ИменаДоступныхСерверов() Цикл
+		ОпцияЗеркала.Перечисление(ДоступноеЗеркало, ДоступноеЗеркало, "Сервер '" + ДоступноеЗеркало + "'");
+	КонецЦикла;
+
 	КомандаПриложения.Аргумент("PACKAGE", "", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета")
 						.ТМассивСтрок()
 						.Обязательный(Ложь);

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

@@ -25,10 +25,15 @@
 							.Перечисление("stable", "stable", "Канал содержащий стабильные версии пакетов")
 							.Перечисление("dev", "dev" , "Канал содержащий разработческие версии пакетов")
 							.ВОкружении("OPM_HUB_CHANNEL");
-	КомандаПриложения.Опция("m mirror", "СерверУдаленногоХранилища", "Имя сервера для публикации.
-							|    Доступные сервера прописываются в конфигурационном файле opm.cfg, параметр 'СервераПакетов'.
-							|    По умолчанию используется 'СерверУдаленногоХранилища'.")
-							.ВОкружении("OPM_HUB_MIRROR");
+	ОпцияЗеркала = КомандаПриложения.Опция("m mirror", "СерверУдаленногоХранилища", "Имя сервера для публикации.
+							|    Доступные сервера прописываются в конфигурационном файле opm.cfg, параметр 'СервераПакетов'.")
+							.ВОкружении("OPM_HUB_MIRROR")
+							.ТПеречисление();
+
+	МенеджерПолучения = Новый МенеджерПолученияПакетов();
+	Для Каждого ДоступноеЗеркало Из МенеджерПолучения.ИменаДоступныхСерверов() Цикл
+		ОпцияЗеркала.Перечисление(ДоступноеЗеркало, ДоступноеЗеркало, "Сервер '" + ДоступноеЗеркало + "'");
+	КонецЦикла;
 
 	КомандаПриложения.Аргумент("FILE", "", "Маска или имя файла пакета.")
 							.Обязательный(Ложь);

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

@@ -10,6 +10,16 @@
 	КомандаПриложения.Опция("skip-create-app", Ложь, "признак отключения создания файла запуска");
 	КомандаПриложения.Опция("m mirror", "", "Указать имя сервера, с которого необходимо ставить пакеты");
 
+	ОпцияЗеркала = КомандаПриложения.Опция("m mirror", "", "Указать имя сервера, с которого необходимо ставить пакеты.
+				|    Доступные сервера прописываются в конфигурационном файле opm.cfg, параметр 'СервераПакетов'.")
+				.ВОкружении("OPM_HUB_MIRROR")
+				.ТПеречисление();
+
+	МенеджерПолучения = Новый МенеджерПолученияПакетов();
+	Для Каждого ДоступноеЗеркало Из МенеджерПолучения.ИменаДоступныхСерверов() Цикл
+		ОпцияЗеркала.Перечисление(ДоступноеЗеркало, ДоступноеЗеркало, "Сервер '" + ДоступноеЗеркало + "'");
+	КонецЦикла;
+
 	КомандаПриложения.Аргумент("PACKAGE", "", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета")
 						.ТМассивСтрок()
 						.Обязательный(Ложь);

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

@@ -203,6 +203,26 @@
 
 КонецПроцедуры
 
+// ИменаДоступныхСерверов
+//	Возвращает список доступных серверов-зеркал с пакетами
+//  Возвращаемое значение:
+//   Массив - Список имен
+//
+Функция ИменаДоступныхСерверов() Экспорт
+	
+	ИменаПакетов = Новый Массив();
+	СервераПакетов = НастройкиOpm.ПолучитьНастройки().СервераПакетов;
+
+	Для каждого НастройкаСервера Из СервераПакетов Цикл
+		
+		ИменаПакетов.Добавить(НастройкаСервера.Имя);
+		
+	КонецЦикла;
+	
+	Возврат ИменаПакетов;
+	
+КонецФункции
+
 Функция СоздатьСерверПакетовПоНастройке(Знач НастройкаСервера)
 
 	Возврат Новый СерверПакетов(НастройкаСервера.Имя,