Установка всех пакетов с хаба

Author: nixel2007

src/Классы/ДиспетчерКомандПриложения.os

@@ -49,6 +49,7 @@
 
 Процедура ДобавитьКомандуInstall(Знач Парсер)
 	Команда = Парсер.ОписаниеКоманды("install", "Выполнить установку. Если указано имя пакета, происходит установка из хаба или из файла. В обратном случае устанавливаются зависимости текущего пакета по файлу packagedef.");
+	Парсер.ДобавитьПараметрФлагКоманды(Команда, "-all", "Установить все пакеты, зарегистрированные в хабе");
 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-f", "Указать файл из которого нужно установить пакет");
 	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета");
 	Парсер.ДобавитьКоманду(Команда);
@@ -126,7 +127,9 @@
 Процедура УстановитьПакет(Знач ЗначенияПараметров) Экспорт
 
 	Установщик = Новый УстановкаПакета;
-	Если ЗначенияПараметров["-f"] = Неопределено И ЗначенияПараметров["ИмяПакета"] = Неопределено Тогда
+	Если ЗначенияПараметров["-all"] Тогда
+		Установщик.УстановитьВсеПакетыИзОблака();
+	ИначеЕсли ЗначенияПараметров["-f"] = Неопределено И ЗначенияПараметров["ИмяПакета"] = Неопределено Тогда
 		Установщик.УстановитьПакетыПоОписаниюПакета();
 	ИначеЕсли ЗначенияПараметров["-f"] <> Неопределено Тогда
 		Установщик.УстановитьПакетИзАрхива(ЗначенияПараметров["-f"]);

src/Классы/УстановкаПакета.os

@@ -114,6 +114,16 @@
 
 КонецПроцедуры
 
+Процедура УстановитьВсеПакетыИзОблака() Экспорт
+
+	КэшПакетовХаба = Новый КэшПакетовХаба();
+	ПакетыХаба = КэшПакетовХаба.ПолучитьПакетыХаба();
+	Для Каждого КлючИЗначение Из ПакетыХаба Цикл
+		УстановитьПакетИзОблака(КлючИЗначение.Ключ);
+	КонецЦикла;
+
+КонецПроцедуры
+
 Процедура ОбновитьПакетИзОблака(Знач ИмяПакета) Экспорт
 
 	ИмяВерсияПакета = РаботаСВерсиями.РазобратьИмяПакета(ИмяПакета);