Merge pull request #238 from dmpas/feature/opm-download

OPM в оффлайне

Author: EvilBeaver

src/cmd/opm.os

@@ -38,6 +38,10 @@
     Приложение.ДобавитьКоманду("test", НСтр("ru='Выполнить тестирование проекта';en='Run project testing'"), Новый КомандаOpm_Test);
     Приложение.ДобавитьКоманду("u update",  НСтр("ru='Обновить пакет';en='Update package'"), Новый КомандаOpm_Update);
     Приложение.ДобавитьКоманду("version", НСтр("ru='Вывести версию продукта';en='show application version'"), Новый КомандаOpm_Version);
+    Приложение.ДобавитьКоманду("dl download",
+        НСтр("ru='Скачать файл пакета и файлы зависимостей';
+        |en='Download package and dependencies'"),
+        Новый КомандаOpm_Download);
 
     Приложение.Запустить(АргументыКоманднойСтроки);
 

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

@@ -0,0 +1,137 @@
+///////////////////////////////////////////////////////////////////////////////////////////////////
+// Прикладной интерфейс
+
+Процедура ОписаниеКоманды(Знач КомандаПриложения) Экспорт
+	
+	КомандаПриложения.Опция("a all", Ложь, "Установить все пакеты, зарегистрированные в хабе");
+	КомандаПриложения.Опция("f file", "", "Указать файл из которого нужно установить пакет. Поддерживает указание маски файла для пакетной установки");
+	КомандаПриложения.Опция("u url", "", "Указать прямую интернет-ссылку на файл *.ospx из которого нужно установить пакет");
+	
+	КомандаПриложения.Опция("dev", Ложь, "Признак установки пакетов для разработки");
+	КомандаПриложения.Опция("s skip-install-deps", Ложь, "признак пропуска установки зависимых пакетов");
+	КомандаПриложения.Опция("d dest", "", "Целевой каталог");
+	
+	ОпцияЗеркала = КомандаПриложения.Опция("m mirror", "", "Указать имя сервера, с которого необходимо ставить пакеты.
+					|    Доступные сервера прописываются в конфигурационном файле opm.cfg, параметр 'СервераПакетов'.")
+					.ВОкружении("OPM_HUB_MIRROR")
+					.ТПеречисление();
+
+	МенеджерПолучения = Новый МенеджерПолученияПакетов();
+	Для Каждого ДоступноеЗеркало Из МенеджерПолучения.ИменаДоступныхСерверов() Цикл
+		ОпцияЗеркала.Перечисление(ДоступноеЗеркало, ДоступноеЗеркало, "Сервер '" + ДоступноеЗеркало + "'");
+	КонецЦикла;
+
+	КомандаПриложения.Аргумент("PACKAGE", "", "Имя пакета в хабе. Чтобы установить конкретную версию, используйте ИмяПакета@ВерсияПакета")
+						.ТМассивСтрок()
+						.Обязательный(Ложь);
+						
+	// КомандаПриложения.Спек = "(-a | --all | -l | --local | -d | --dest )";
+
+КонецПроцедуры
+
+Процедура ВыполнитьКоманду(Знач КомандаПриложения) Экспорт
+	
+	УстановкаПакетовРазработчика = КомандаПриложения.ЗначениеОпции("dev");
+	УстановкаВсехПакетов = КомандаПриложения.ЗначениеОпции("all");
+	КаталогУстановки = КомандаПриложения.ЗначениеОпции("dest");
+	ФайлПакетаУстановки = КомандаПриложения.ЗначениеОпции("file");
+	ИнтернетСсылкаНаПакет = КомандаПриложения.ЗначениеОпции("url");
+	МассивПакетовКУстановке = КомандаПриложения.ЗначениеАргумента("PACKAGE");
+
+	НеобходимоУстановитьЗависимости = Не КомандаПриложения.ЗначениеОпции("skip-install-deps");
+	ИмяСервера = КомандаПриложения.ЗначениеОпции("mirror");
+	
+	РежимУстановки = РежимУстановкиПакетов.Скачивание;
+	
+	Если Не ПустаяСтрока(КаталогУстановки) Тогда
+		ЦелевойКаталог = КаталогУстановки;
+	Иначе
+		ЦелевойКаталог = ТекущийКаталог();
+	КонецЕсли;
+	Лог = Логирование.ПолучитьЛог(ПараметрыПриложенияOpm.ИмяЛогаСистемы());
+
+	Лог.Отладка("УстановкаПакетовРазработчика: %1", УстановкаПакетовРазработчика);
+	Лог.Отладка("УстановкаВсехПакетов: %1", УстановкаВсехПакетов);
+	Лог.Отладка("КаталогУстановки: %1", КаталогУстановки);
+	Лог.Отладка("ФайлПакетаУстановки: %1", ФайлПакетаУстановки);
+	Лог.Отладка("ИнтернетСсылкаНаПакет: %1", ИнтернетСсылкаНаПакет);
+	Лог.Отладка("МассивПакетовКУстановке: %1", МассивПакетовКУстановке.Количество());
+	Лог.Отладка("НеобходимоУстановитьЗависимости: %1", НеобходимоУстановитьЗависимости);
+
+	НастройкаУстановки = РаботаСПакетами.ПолучитьНастройкуУстановки();
+	НастройкаУстановки.УстанавливатьЗависимости = НеобходимоУстановитьЗависимости;
+	НастройкаУстановки.УстанавливатьЗависимостиРазработчика = УстановкаПакетовРазработчика;
+	НастройкаУстановки.СоздаватьФайлыЗапуска = Ложь;
+	НастройкаУстановки.ИмяСервера = ИмяСервера;
+
+	Если УстановкаВсехПакетов Тогда
+		РаботаСПакетами.УстановитьВсеПакетыИзОблака(РежимУстановки, ЦелевойКаталог, НастройкаУстановки);
+	ИначеЕсли ПустаяСтрока(ФайлПакетаУстановки) И ПустаяСтрока(ИнтернетСсылкаНаПакет) И МассивПакетовКУстановке.Количество() = 0 Тогда
+		РаботаСПакетами.УстановитьПакетыПоОписаниюПакета(РежимУстановки, ЦелевойКаталог, НастройкаУстановки);
+	ИначеЕсли НЕ ПустаяСтрока(ФайлПакетаУстановки) Тогда
+		
+		РазобранныйАдрес = СтрРазделить(ФайлПакетаУстановки, ПолучитьРазделительПути());
+		Путь = ".";
+		Маска = ФайлПакетаУстановки;
+		Если РазобранныйАдрес.Количество() > 1 Тогда // отделим последнюю секцию как имя файла, а остальное опять соберем в строку пути
+			
+			Маска = РазобранныйАдрес[РазобранныйАдрес.Количество() - 1];
+			РазобранныйАдрес.Удалить(РазобранныйАдрес.Количество() - 1);
+			Путь = СтрСоединить(РазобранныйАдрес, ПолучитьРазделительПути());
+			
+		КонецЕсли;
+		
+		ФайлыПоМаске = НайтиФайлы(Путь, Маска);
+		Для Каждого ФайлПакета Из ФайлыПоМаске Цикл
+			
+			РаботаСПакетами.УстановитьПакетИзФайла(ФайлПакета.ПолноеИмя, РежимУстановки, ЦелевойКаталог, НастройкаУстановки);
+			
+		КонецЦикла;
+		
+	ИначеЕсли НЕ ПустаяСтрока(ИнтернетСсылкаНаПакет) Тогда
+		
+		позСервер = СтрНайти(ИнтернетСсылкаНаПакет, "/", , , 3);
+		Сервер = Лев(ИнтернетСсылкаНаПакет, позСервер-1);
+		Адрес = Сред(ИнтернетСсылкаНаПакет, позСервер);
+		Если Нрег(Лев(Сервер, 5)) = "https" Тогда
+			Порт = 443;
+		Иначе
+			Порт = 80;
+		КонецЕсли;
+		
+		Соединение = Новый HTTPСоединение(Сервер, Порт);
+		Запрос = Новый HTTPЗапрос(Адрес);
+		Ответ = Соединение.Получить(Запрос);
+		ДД = Ответ.ПолучитьТелоКакДвоичныеДанные();
+		ИмяВременногоФайла = ПолучитьИмяВременногоФайла("ospx");
+		ДД.Записать(ИмяВременногоФайла);
+		
+		РаботаСПакетами.УстановитьПакетИзФайла(ИмяВременногоФайла, РежимУстановки, ЦелевойКаталог, НастройкаУстановки);
+		
+		УдалитьФайлы(ИмяВременногоФайла);
+
+	Иначе
+
+		Для каждого ИмяПакета Из МассивПакетовКУстановке Цикл
+
+			Если ЭтоФайлПакета(ИмяПакета) Тогда
+				
+				РаботаСПакетами.УстановитьПакетИзФайла(ИмяПакета, РежимУстановки, ЦелевойКаталог, НастройкаУстановки);
+			
+			Иначе
+
+				РаботаСПакетами.УстановитьПакетИзОблака(ИмяПакета, РежимУстановки, ЦелевойКаталог, НастройкаУстановки);
+				
+			КонецЕсли;
+		
+		КонецЦикла;
+
+	КонецЕсли;
+	
+КонецПроцедуры
+
+Функция ЭтоФайлПакета(Знач ИмяПакета)
+	
+	Возврат СтрЗаканчиваетсяНа(НРег(ИмяПакета), ".ospx");
+
+КонецФункции

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

@@ -57,7 +57,7 @@
 	КонецЕсли;
 	Лог = Логирование.ПолучитьЛог(ПараметрыПриложенияOpm.ИмяЛогаСистемы());
 
-	Если РежимУстановки = РежимУстановкиПакетов.Локально Тогда
+	Если (РежимУстановки = РежимУстановкиПакетов.Локально) И ЗначениеЗаполнено(ЦелевойКаталог) Тогда
 		Лог.Предупреждение("При локальной установке параметр -dest игнорируется");
 		ЦелевойКаталог = Неопределено;
 	КонецЕсли;

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

@@ -18,21 +18,24 @@
 	ДанныеПакета = УстановленныеПакеты.Получить(ОписаниеЗависимости.ИмяПакета);
 	ПакетУстановлен = ДанныеПакета <> Неопределено;
 	Если ПакетУстановлен И НЕ ПустаяСтрока(КаталогПоискаБиблиотек) Тогда
-		КаталогБиблиотекПакета = Новый Файл(ОбъединитьПути(ДанныеПакета.КаталогПакета, "..")).ПолноеИмя;
+		КаталогБиблиотекПакета = Новый Файл(ДанныеПакета.КаталогПакета).Путь;
 		ПакетУстановлен = ФС.ПутиРавны(КаталогБиблиотекПакета, КаталогПоискаБиблиотек);
 	КонецЕсли;
 
 	ПутьКФайлуМетаданных = ПолучитьПутьКФайлуМетаданныхБиблиотеки(ОписаниеЗависимости.ИмяПакета);
 
 	ФайлМетаданных = Новый Файл(ПутьКФайлуМетаданных);
 	Если ФайлМетаданных.Существует() Тогда	
-		МетаОписаниеПакета = ПрочитатьМетаданныеПакета(ПутьКФайлуМетаданных);
+		МетаОписаниеПакета = РаботаСПакетами.ПрочитатьМетаданныеПакета(ПутьКФайлуМетаданных);
 		УстановленнаяВерсия = МетаОписаниеПакета.Свойства().Версия;	
 	Иначе
 		// @deprecated
 		УстановленнаяВерсия = "0";
 	КонецЕсли;
-	Лог.Отладка("ПакетУстановлен: Перед вызовом СравнитьВерсии(ЭтаВерсия = <%1>, БольшеЧемВерсия = <%2>)", УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия);
+
+	Лог.Отладка("ПакетУстановлен: Перед вызовом СравнитьВерсии(ЭтаВерсия = <%1>, БольшеЧемВерсия = <%2>)",
+		УстановленнаяВерсия,
+		ОписаниеЗависимости.МинимальнаяВерсия);
 
 	ВерсияSNAPSHOT = "SNAPSHOT";
 	Если ОписаниеЗависимости.МинимальнаяВерсия = ВерсияSNAPSHOT И УстановленнаяВерсия = ВерсияSNAPSHOT Тогда
@@ -93,21 +96,6 @@
 
 КонецФункции
 
-Процедура Инициализация()
-	
-	Лог = Логирование.ПолучитьЛог("oscript.app.opm");
-	МассивКаталоговПоискаБиблиотек = Новый Массив;
-
-	КаталогСистемныхБиблиотек = ОбъединитьПути(
-			КаталогПрограммы(),
-			ПолучитьЗначениеСистемнойНастройки("lib.system")
-	);
-
-	МассивКаталоговПоискаБиблиотек.Добавить(КаталогСистемныхБиблиотек);
-	ДобавитьКаталогБиблиотек("./" + КонстантыOpm.ЛокальныйКаталогУстановкиПакетов);
-
-КонецПроцедуры
-
 // Добавляет каталог в список, по которому выполняется поиск библиотек
 Процедура ДобавитьКаталогБиблиотек(Знач Каталог) Экспорт
 
@@ -120,7 +108,7 @@
 	ПутьКФайлуМетаданных = ОбъединитьПути(ФайлКаталога.ПолноеИмя, КонстантыOpm.ИмяФайлаМетаданныхПакета);
 	ФайлМетаданных = Новый Файл(ПутьКФайлуМетаданных);
 	Если ФайлМетаданных.Существует() Тогда	
-		МетаОписаниеПакета = ПрочитатьМетаданныеПакета(ПутьКФайлуМетаданных);	
+		МетаОписаниеПакета = РаботаСПакетами.ПрочитатьМетаданныеПакета(ПутьКФайлуМетаданных);	
 	Иначе
 		// @deprecated
 		МетаОписаниеПакета = Истина;
@@ -134,25 +122,6 @@
 
 КонецПроцедуры
 
-Функция ПрочитатьМетаданныеПакета(Знач ПутьКФайлуМетаданных)
-	
-	Перем Метаданные;
-	Попытка
-		Чтение = Новый ЧтениеXML;
-		Чтение.ОткрытьФайл(ПутьКФайлуМетаданных);
-		Сериализатор = Новый СериализацияМетаданныхПакета;
-		Метаданные = Сериализатор.ПрочитатьXML(Чтение);
-		
-		Чтение.Закрыть();
-	Исключение
-		Чтение.Закрыть();
-		ВызватьИсключение;
-	КонецПопытки;
-
-	Возврат Метаданные;
-	
-КонецФункции
-
 Функция ПолучитьПутьКФайлуМетаданныхБиблиотеки(ИмяПакета) Экспорт
 
 	ПутьКФайлуМетаданных = "";