Указание версии при установке пакета

Author: asosnoviy

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

@@ -49,14 +49,14 @@
 Процедура ДобавитьКомандуInstall(Знач Парсер)
 	Команда = Парсер.ОписаниеКоманды("install", "Выполнить установку. Если указано имя пакета, происходит установка из хаба или из файла. В обратном случае устанавливаются зависимости текущего пакета по файлу packagedef.");
 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-f", "Указать файл из которого нужно установить пакет");
-	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе");
+	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета");
 	Парсер.ДобавитьКоманду(Команда);
 КонецПроцедуры
 
 Процедура ДобавитьКомандуUpdate(Знач Парсер)
 	Команда = Парсер.ОписаниеКоманды("update", "Обновить пакет");
 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-f", "Указать файл из которого нужно установить пакет");
-	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе");
+	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета");
 	Парсер.ДобавитьКоманду(Команда);
 КонецПроцедуры
 

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

@@ -109,21 +109,22 @@
 
 Процедура УстановитьПакетИзОблака(Знач ИмяПакета) Экспорт
 
-	УстановленныеПакеты = ПолучитьУстановленныеПакеты();
+	// УстановленныеПакеты = ПолучитьУстановленныеПакеты();
 
-	Если УстановленныеПакеты.ПакетУстановлен(ИмяПакета) Тогда
-		Лог.Ошибка(СтрШаблон("Пакет %1 уже установлен", ИмяПакета));
-	Иначе
-		СкачатьИУстановитьПакет(ИмяПакета, Неопределено);
-	КонецЕсли;
+	// Если УстановленныеПакеты.ПакетУстановлен(ИмяПакета) Тогда
+		// Лог.Ошибка(СтрШаблон("Пакет %1 уже установлен", ИмяПакета));
+	// Иначе
+		ИмяВерсияПакета = РаботаСВерсиями.РазобратьИмяПакета(ИмяПакета);
+		СкачатьИУстановитьПакет(ИмяВерсияПакета.ИмяПакета, ИмяВерсияПакета.Версия);
+	// КонецЕсли;
 
 КонецПроцедуры
 
 Процедура ОбновитьПакетИзОблака(Знач ИмяПакета) Экспорт
+
+	ИмяВерсияПакета = РаботаСВерсиями.РазобратьИмяПакета(ИмяПакета);
 
-	УстановленныеПакеты = ПолучитьУстановленныеПакеты();
-	
-	СкачатьИУстановитьПакет(ИмяПакета, Неопределено);
+	СкачатьИУстановитьПакет(ИмяВерсияПакета.ИмяПакета, ИмяВерсияПакета.Версия);
 
 КонецПроцедуры
 

src/Модули/РаботаСВерсиями.os

@@ -123,4 +123,17 @@
 
 	Возврат Компонент;
 
+КонецФункции
+
+Функция РазобратьИмяПакета(знач ИмяПакета) Экспорт
+
+	Пакет = Новый Структура("ИмяПакета,Версия","",Неопределено); 
+	ИмяВерсия = СтрРазделить(ИмяПакета,"@");
+	Пакет.Вставить("ИмяПакета", ИмяВерсия[0]);
+	Если ИмяВерсия.Количество() > 1 Тогда 
+		Пакет.Вставить("Версия", ИмяВерсия[1]);
+	КонецЕсли;	
+
+	Возврат Пакет;
+	
 КонецФункции

tests/versions-test.os

@@ -14,6 +14,7 @@
 	СписокТестов.Добавить("ТестДолжен_ПолучитьПустуюСтруктуруВерсии");
 	СписокТестов.Добавить("ТестДолжен_ЗаписатьВерсиюВСтроку");
 	СписокТестов.Добавить("ТестДолжен_ПроверитьЧтоВерсияАБольшеВерсииБ");
+	СписокТестов.Добавить("ТестДолжен_ПолучитьИмяИВерсиюПакета");
 
 	Возврат СписокТестов;
 
@@ -65,3 +66,15 @@
 	Ожидаем.Что(РаботаСВерсиями.СравнитьВерсии(ВерсияА, ВерсияБ)).Больше(0);
 
 КонецПроцедуры
+
+Процедура ТестДолжен_ПолучитьИмяИВерсиюПакета() Экспорт
+		
+		Пакет = РаботаСВерсиями.РазобратьИмяПакета("opm");
+		Ожидаем.Что(Пакет.ИмяПакета).Равно("opm");
+		Ожидаем.Что(Пакет.ИмяПакета).Не_().Равно("blabla");
+		
+		Пакет = РаботаСВерсиями.РазобратьИмяПакета("opm@1.1.1");
+		Ожидаем.Что(Пакет.ИмяПакета).Равно("opm");
+		Ожидаем.Что(Пакет.Версия).Равно("1.1.1");
+
+КонецПроцедуры