Команда обновления всех установленных пакетов

Author: nixel2007

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

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

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

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