Merge branch 'release/v0.7.0'

Author: nixel2007

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("opm")
-		.Версия("0.6.1")
+		.Версия("0.7.0")
 		.ЗависитОт("logos")
 		.ЗависитОт("cmdline")
 		.ЗависитОт("tempfiles")

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

@@ -13,6 +13,7 @@
 	ДобавитьКомандуUpdate(Парсер);
 	ДобавитьКомандуApp(Парсер);
 	ДобавитьКомандуConfig(Парсер);
+	ДобавитьКомандуList(Парсер);
 	ДобавитьКомандуHelp(Парсер);
 КонецПроцедуры
 
@@ -49,14 +50,14 @@
 Процедура ДобавитьКомандуInstall(Знач Парсер)
 	Команда = Парсер.ОписаниеКоманды("install", "Выполнить установку. Если указано имя пакета, происходит установка из хаба или из файла. В обратном случае устанавливаются зависимости текущего пакета по файлу packagedef.");
 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-f", "Указать файл из которого нужно установить пакет");
-	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе");
+	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета");
 	Парсер.ДобавитьКоманду(Команда);
 КонецПроцедуры
 
 Процедура ДобавитьКомандуUpdate(Знач Парсер)
 	Команда = Парсер.ОписаниеКоманды("update", "Обновить пакет");
 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-f", "Указать файл из которого нужно установить пакет");
-	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе");
+	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ИмяПакета", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета");
 	Парсер.ДобавитьКоманду(Команда);
 КонецПроцедуры
 
@@ -78,6 +79,12 @@
  	Парсер.ДобавитьКоманду(Команда);
  КонецПроцедуры
 
+Процедура ДобавитьКомандуList(Знач Парсер)
+	Команда = Парсер.ОписаниеКоманды("list", "Вывести список пакетов");
+	Парсер.ДобавитьПараметрФлагКоманды(Команда, "-q", """Тихий"" режим вывода без лишних сообщений.");
+	Парсер.ДобавитьПараметрФлагКоманды(Команда, "-remote", "Вывести список пакетов в хабе");
+	Парсер.ДобавитьКоманду(Команда);
+КонецПроцедуры
 
 Процедура ДобавитьКомандуHelp(Знач Парсер) Экспорт
 	Команда = Парсер.ОписаниеКоманды("help", "Справка по командам");
@@ -103,7 +110,9 @@
 	ИначеЕсли ПараметрыКоманды.Команда = "app" Тогда
 		СоздатьСкриптЗапуска(ЗначенияПараметров["ИмяСкрипта"], ЗначенияПараметров["Каталог"], ЗначенияПараметров["-name"]);
 	ИначеЕсли ПараметрыКоманды.Команда = "config" Тогда
- 		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);		
+		НастройкиПриложения.СохранитьНастройки(ЗначенияПараметров);	
+	ИначеЕсли ПараметрыКоманды.Команда = "list" Тогда
+ 		ВывестиСписокПакетов(ЗначенияПараметров);		
 	ИначеЕсли ПараметрыКоманды.Команда = "help" Тогда
 		ВывестиСправку(ЗначенияПараметров);
 	КонецЕсли;
@@ -201,6 +210,33 @@
 
 КонецПроцедуры
 
+Процедура ВывестиСписокПакетов(Знач ЗначенияПараметров)
+	
+	ТихийРежим = ЗначенияПараметров["-q"];
+
+	Если ЗначенияПараметров["-remote"] Тогда
+		ТекстСообщения  = СтрШаблон("Пакеты в хабе :");		
+		КэшПакетовВХабе = Новый КэшПакетовХаба();	
+		УстановленныеПакеты =  КэшПакетовВХабе.ПолучитьПакетыХаба();	
+	Иначе	
+	
+		ПутьККаталогуПакетов = ПолучитьЗначениеСистемнойНастройки("lib.system");
+		ТекстСообщения = СтрШаблон("Пакеты в системном каталоге библиотек <%1>:", ПутьККаталогуПакетов);		
+	
+		КэшУстановленныхПакетов = Новый КэшУстановленныхПакетов();
+		УстановленныеПакеты = КэшУстановленныхПакетов.ПолучитьУстановленныеПакеты();
+	КонецЕсли;
+
+	Если НЕ ТихийРежим Тогда
+			Сообщить(ТекстСообщения);
+	КонецЕсли;
+
+	Для Каждого УстановленныйПакет Из УстановленныеПакеты Цикл
+		Сообщить(УстановленныйПакет.Ключ);
+	КонецЦикла;
+	
+КонецПроцедуры
+
 Процедура ВывестиСправку(Знач ЗначенияПараметров)
 	Если ЗначенияПараметров["ИмяКоманды"] = Неопределено Тогда
 		ВывестиСправкуПоКомандам();

src/Классы/КэшПакетовХаба.os

@@ -0,0 +1,57 @@
+
+#Использовать logos
+
+Перем Лог;
+
+Перем ПакетыХаба;
+
+Процедура Обновить() Экспорт
+
+	УстановкаПакета = Новый Установкапакета();
+	Сервер =  Константы.СерверУдаленногоХранилища;
+	Соединение = УстановкаПакета.ИнициализироватьСоединение(Сервер);
+	Ресурс = Константы.ПутьВХранилище + "list.txt";
+	Запрос = Новый HTTPЗапрос(Ресурс);
+	Ответ  = Соединение.Получить(Запрос);
+
+	Если НЕ Ответ.КодСостояния = 200 Тогда
+		ТекстИсключения = СтрШаблон("Ошибка подключения к хабу <%1>", Ответ.КодСостояния);
+		Ответ.Закрыть();
+		ВызватьИсключение ТекстИсключения;
+	КонецЕсли;
+	
+	ТекстОтвета = Ответ.ПолучитьТелоКакСтроку();
+	Ответ.Закрыть();
+		
+	ПакетыХаба = Новый Соответствие;
+	ТекстовыйДокумент  = Новый ТекстовыйДокумент;
+	ТекстовыйДокумент.УстановитьТекст(ТекстОтвета);
+	КоличествоПакетовВХабе = ТекстовыйДокумент.КоличествоСтрок();
+	Для НомерСтроки = 1 По КоличествоПакетовВХабе Цикл
+		ПакетыХаба.Вставить(СокрЛП(ТекстовыйДокумент.ПолучитьСтроку(НомерСтроки)), Истина);
+	КонецЦикла;		
+
+КонецПроцедуры
+
+Функция ЭтоПакетХаба(Знач ИмяПакета) Экспорт
+
+	Возврат ПакетыХаба[ИмяПакета] = Истина;
+
+КонецФункции
+
+Функция ПолучитьПакетыХаба() Экспорт
+
+	Возврат ПакетыХаба;
+
+КонецФункции	
+
+Процедура Инициализация()
+
+	Лог = Логирование.ПолучитьЛог("oscript.app.opm");
+	//Лог.УстановитьУровень(УровниЛога.Отладка);
+	
+	Обновить();
+	
+КонецПроцедуры
+
+Инициализация();

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

@@ -26,6 +26,10 @@
 
 КонецПроцедуры
 
+Функция ПолучитьУстановленныеПакеты() Экспорт
+	Возврат УстановленныеПакеты;
+КонецФункции
+
 Процедура Инициализация()
 
 	Лог = Логирование.ПолучитьЛог("oscript.app.opm");

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

@@ -109,21 +109,15 @@
 
 Процедура УстановитьПакетИзОблака(Знач ИмяПакета) Экспорт
 
-	УстановленныеПакеты = ПолучитьУстановленныеПакеты();
-	
-	Если УстановленныеПакеты.ПакетУстановлен(ИмяПакета) Тогда
-		Лог.Ошибка(СтрШаблон("Пакет %1 уже установлен", ИмяПакета));
-	Иначе
-		СкачатьИУстановитьПакет(ИмяПакета, Неопределено);
-	КонецЕсли;
-	
+		ИмяВерсияПакета = РаботаСВерсиями.РазобратьИмяПакета(ИмяПакета);
+		СкачатьИУстановитьПакет(ИмяВерсияПакета.ИмяПакета, ИмяВерсияПакета.Версия);
+		
 КонецПроцедуры
 
 Процедура ОбновитьПакетИзОблака(Знач ИмяПакета) Экспорт
-	
-	УстановленныеПакеты = ПолучитьУстановленныеПакеты();
-	
-	СкачатьИУстановитьПакет(ИмяПакета, Неопределено);
+
+	ИмяВерсияПакета = РаботаСВерсиями.РазобратьИмяПакета(ИмяПакета);
+	СкачатьИУстановитьПакет(ИмяВерсияПакета.ИмяПакета, ИмяВерсияПакета.Версия);
 
 КонецПроцедуры
 
@@ -173,10 +167,6 @@
 	Возврат Новый КэшУстановленныхПакетов();
 КонецФункции
 
-Функция СерверУдаленногоХранилища()
-	Возврат "http://hub.oscript.io";
-КонецФункции
-
 Процедура СкачатьИУстановитьПакетПоОписанию(Знач ОписаниеПакета)
 	// TODO: Нужно скачивание конкретной версии по маркеру
 	СкачатьИУстановитьПакет(ОписаниеПакета.ИмяПакета, Неопределено);
@@ -190,20 +180,10 @@
 		ФайлПакета = ИмяПакета + ".ospx";
 	КонецЕсли;
 
-	Сервер = СерверУдаленногоХранилища();
-	Ресурс = "/download/" + ИмяПакета + "/" + ФайлПакета;
+	Сервер = Константы.СерверУдаленногоХранилища;
+	Ресурс = Константы.ПутьВХранилище + ИмяПакета + "/" + ФайлПакета;
+	Соединение = ИнициализироватьСоединение(Сервер);
 
-	НастройкиПрокси = НастройкиПриложения.Получить().Прокси;
-	Если НастройкиПрокси.ИспользоватьПрокси = Истина Тогда
-		Прокси = Новый ИнтернетПрокси(НастройкиПрокси.ПроксиПоУмолчанию);
- 		Если НастройкиПрокси.ПроксиПоУмолчанию = Ложь Тогда
-			Прокси.Установить("http",НастройкиПрокси.Сервер,НастройкиПрокси.Порт,НастройкиПрокси.Пользователь,НастройкиПрокси.Пароль,НастройкиПрокси.ИспользоватьАутентификациюОС);
- 		КонецЕсли;	
-		Соединение = Новый HTTPСоединение(Сервер,,,,Прокси);
-	Иначе
-		Соединение = Новый HTTPСоединение(Сервер);
-	КонецЕсли;
-	
 	Запрос = Новый HTTPЗапрос(Ресурс);
 	Лог.Информация("Скачиваю файл: " + ФайлПакета);
 
@@ -229,6 +209,23 @@
 
 КонецПроцедуры
 
+Функция ИнициализироватьСоединение(Сервер) Экспорт
+	
+	НастройкиПрокси = НастройкиПриложения.Получить().Прокси;
+	Если НастройкиПрокси.ИспользоватьПрокси = Истина Тогда
+		Прокси = Новый ИнтернетПрокси(НастройкиПрокси.ПроксиПоУмолчанию);
+ 		Если НастройкиПрокси.ПроксиПоУмолчанию = Ложь Тогда
+			Прокси.Установить("http",НастройкиПрокси.Сервер,НастройкиПрокси.Порт,НастройкиПрокси.Пользователь,НастройкиПрокси.Пароль,НастройкиПрокси.ИспользоватьАутентификациюОС);
+ 		КонецЕсли;	
+		Соединение = Новый HTTPСоединение(Сервер,,,,Прокси);
+	Иначе
+		Соединение = Новый HTTPСоединение(Сервер);
+	КонецЕсли;
+
+	Возврат Соединение;
+
+КонецФункции	
+
 Функция РазобратьМаркерВерсии(Знач МаркерВерсии)
 
 	Перем ИндексВерсии;

src/Модули/Константы.os

@@ -3,10 +3,16 @@
 Перем ИмяФайлаСкриптаУстановки Экспорт;
 Перем ИмяФайлаСодержимогоПакета Экспорт;
 Перем ИмяФайлаМетаданныхПакета Экспорт;
+Перем СерверУдаленногоХранилища Экспорт;
+Перем ПутьВХранилище Экспорт;
+
 
 ///////////////////////////////////////////////////////////////
 
 ИмяФайлаСпецификацииПакета = "packagedef";
 ИмяФайлаСкриптаУстановки   = "_install_.os";
 ИмяФайлаСодержимогоПакета  = "content.zip";
-ИмяФайлаМетаданныхПакета   = "opm-metadata.xml";
+ИмяФайлаМетаданныхПакета   = "opm-metadata.xml";
+СерверУдаленногоХранилища  = "http://hub.oscript.io";
+ПутьВХранилище			   = "/download/";
+

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

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

tests/build-install-test.os

@@ -1,4 +1,6 @@
-#Использовать "../src"
+#Использовать asserts
+
+#Использовать "../src"
 
 Перем юТест;
 
@@ -28,14 +30,14 @@
 
 	ФайлПакета = Новый Файл(ОбъединитьПути(КаталогСборки, "test-0.3.1.ospx"));
 
-	юТест.ПроверитьИстину(ФайлПакета.Существует(), "Файл пакета должен существовать");
+	Утверждения.ПроверитьИстину(ФайлПакета.Существует(), "Файл пакета должен существовать");
 	ЧтениеАрхива = Новый ЧтениеZipФайла(ФайлПакета.ПолноеИмя);
 
 	ЭлементСодержимого = ЧтениеАрхива.Элементы.Найти("content.zip");
 	ЭлементМанифеста   = ЧтениеАрхива.Элементы.Найти("opm-metadata.xml");
 
-	юТест.ПроверитьНеравенство(Неопределено, ЭлементСодержимого);
-	юТест.ПроверитьНеравенство(Неопределено, ЭлементМанифеста);
+	Утверждения.ПроверитьНеравенство(Неопределено, ЭлементСодержимого);
+	Утверждения.ПроверитьНеравенство(Неопределено, ЭлементМанифеста);
 
 	КаталогПроверки = ПолучитьИмяВременногоФайла();//юТест.ИмяВременногоФайла();
 	СоздатьКаталог(КаталогПроверки);
@@ -47,7 +49,7 @@
 	ЧтениеАрхива.ИзвлечьВсе(КаталогПроверки);
 	ЧтениеАрхива.Закрыть();
 	ФайлИсходника = Новый Файл(ОбъединитьПути(КаталогПроверки, "folder/src.os"));
-	юТест.ПроверитьИстину(ФайлИсходника.Существует(), "Существует файл в подкаталоге");
+	Утверждения.ПроверитьИстину(ФайлИсходника.Существует(), "Существует файл в подкаталоге");
 
 	Сообщить(ФайлИсходника.ПолноеИмя);