Merge branch 'release/v0.3'

Author: EvilBeaver

packagedef

@@ -0,0 +1,9 @@
+
+Описание.Имя("packman")
+		.Версия("0.3")
+		.ЗависитОт("logos")
+		.ЗависитОт("cmdline")
+		.ВключитьФайл("src")
+		.ВключитьФайл("tools/СборИнформацииОМетаданных.epf")
+		.ВключитьФайл("tools/ПомощникСозданияМанифестаПоставки.epf")
+		.ИсполняемыйФайл("src/packman.os");

src/packagedef

@@ -0,0 +1,100 @@
+
+#Использовать v8runner
+#Использовать logos
+
+Перем Лог;
+
+///////////////////////////////////////////////////////////////////////////////////////////////////
+// Прикладной интерфейс
+
+Процедура ЗарегистрироватьКоманду(Знач ИмяКоманды, Знач Парсер) Экспорт
+    
+    ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Создание архива для удобного тиражирования");
+    
+    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-in", "Путь к каталогу дистрибутива");
+    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-name-prefix", "Префикс имени архива, например erp20");
+    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-mdinfo", "Каталог с файлом v8-metadata.info, генерируемым командой make-dist");
+    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-out", "Выходной каталог с архивом");
+    
+    Парсер.ДобавитьКоманду(ОписаниеКоманды);
+
+КонецПроцедуры
+
+// Выполняет логику команды
+// 
+// Параметры:
+//   ПараметрыКоманды - Соответствие ключей командной строки и их значений
+//
+Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
+    
+    Лог = Логирование.ПолучитьЛог(ПараметрыСистемы.ИмяЛогаСистемы()); 
+
+    УправлениеКонфигуратором = ОкружениеСборки.ПолучитьКонфигуратор();
+
+    КаталогДляАрхивации = ПараметрыКоманды["-in"];
+    Если Не ЗначениеЗаполнено(КаталогДляАрхивации) Тогда
+        КаталогДляАрхивации = ОбъединитьПути(УправлениеКонфигуратором.КаталогСборки(), ОкружениеСборки.ИмяКаталогаФормированияДистрибутива());
+    КонецЕсли;
+
+    Каталог = Новый Файл(КаталогДляАрхивации);
+    Если Не Каталог.Существует() Тогда
+        ВызватьИсключение СтрШаблон("Каталог %1 не существует", КаталогДляАрхивации);
+    КонецЕсли;
+
+    Если ЗначениеЗаполнено(ПараметрыКоманды["-mdinfo"]) Тогда
+        ФайлМетаданных = Новый Файл(ОбъединитьПути(ПараметрыКоманды["-mdinfo"], ОкружениеСборки.ИмяФайлаИнформацииОМетаданных()));
+    Иначе
+        ФайлМетаданных = Новый Файл(ОбъединитьПути(УправлениеКонфигуратором.КаталогСборки(), ОкружениеСборки.ИмяФайлаИнформацииОМетаданных()));
+    КонецЕсли;
+
+    Лог.Отладка("Имя файла метаданных:" + ФайлМетаданных.ПолноеИмя);
+    Если ФайлМетаданных.Существует() Тогда
+        ОписаниеМетаданных = ОкружениеСборки.ПрочитатьИнформациюОМетаданных(ФайлМетаданных.ПолноеИмя);
+        Лог.Информация("Текущая версия конфигурации: " + ОписаниеМетаданных.Версия);
+        ИмяАрхива = СформироватьИмяАрхива(ПараметрыКоманды["-name-prefix"], ОписаниеМетаданных.Версия);
+    Иначе
+        ИмяАрхива = СформироватьИмяАрхива(ПараметрыКоманды["-name-prefix"]);
+    КонецЕсли;
+
+    ВыходнойКаталог = ?(ПустаяСтрока(ПараметрыКоманды["-out"]),УправлениеКонфигуратором.КаталогСборки(),ПараметрыКоманды["-out"]);
+    АрхивироватьДистрибутив(ВыходнойКаталог, ИмяАрхива, КаталогДляАрхивации);
+
+КонецФункции
+
+Функция СформироватьИмяАрхива(Знач Префикс, Знач Версия = "")
+    
+    Если Не ЗначениеЗаполнено(Префикс) Тогда
+        Префикс = ОкружениеСборки.ИмяКаталогаФормированияДистрибутива();
+    КонецЕсли;
+
+    Имя = Префикс;
+    Если ЗначениеЗаполнено(Версия) Тогда
+        Имя = Имя + "-" + Версия;
+    КонецЕсли;
+
+    Возврат Имя + ".zip";
+
+КонецФункции // СформироватьИмяАрхива(Знач Префикс, Знач Версия = "")
+
+Процедура АрхивироватьДистрибутив(Знач ВыходнойКаталог, Знач ИмяАрхива, Знач КаталогДляАрхивации)
+    
+    Лог.Отладка("ВыходнойКаталог = " + ВыходнойКаталог);
+    Лог.Отладка("ИмяАрхива = " + ИмяАрхива);
+    Лог.Отладка("КаталогДляАрхивации = " + КаталогДляАрхивации);
+
+    ОбъектКаталога = Новый Файл(ВыходнойКаталог);
+    Если Не ОбъектКаталога.Существует() Тогда
+        СоздатьКаталог(ОбъектКаталога.ПолноеИмя);
+    КонецЕсли;
+
+    ПолноеИмяАрхива = ОбъединитьПути(ОбъектКаталога.ПолноеИмя, ИмяАрхива);
+    ЗаписьZIP = Новый ЗаписьZipФайла(ПолноеИмяАрхива);
+    ЗаписьZIP.Добавить(
+        ОбъединитьПути(КаталогДляАрхивации, ПолучитьМаскуВсеФайлы()),
+        РежимСохраненияПутейZIP.СохранятьОтносительныеПути,
+        РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
+    ЗаписьZIP.Записать();
+
+    Лог.Информация("Архив: " + ПолноеИмяАрхива + " создан.");
+
+КонецПроцедуры

src/Классы/КомандаАрхивироватьДистрибутив.os

@@ -2,6 +2,7 @@
 #Использовать v8runner
 #Использовать tempfiles
 #Использовать asserts
+#Использовать tool1cd
 
 Перем Лог;
 Перем ВФ;
@@ -10,14 +11,14 @@
 // Прикладной интерфейс
 
 Процедура ЗарегистрироватьКоманду(Знач ИмяКоманды, Знач Парсер) Экспорт
-	
+    
     ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Выгрузка версии из хранилища в рабочую среду");
     Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "АдресХранилища", "Хранилище конфигурации 1С из которого выполняется сборка");
     // TODO с помощью tool1cd можно не применять авторизацию
     Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-storage-user", "Пользователь хранилища 1С");
     Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-storage-pwd", "Пароль пользователя хранилища 1С (опционально)");
     Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-storage-v", "Версия в хранилище, которую включаем в дистрибутив (опционально)");
-    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-use-tool1cd", "Использовать для чтения хранилища Tool1CD (указывается путь к Tool1CD)");
+    Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-use-tool1cd", "Использовать для чтения хранилища Tool1CD");
 
     Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -33,27 +34,31 @@
     Параметры = РазобратьПараметры(ПараметрыКоманды);
 
     Попытка
-    	ФайлВерсии = ПолучитьИмяВременногоФайла(".cf");
-        ВыгрузитьВерсиюИзХранилища(Параметры.АдресХранилища, Параметры.ВерсияХранилища, ФайлВерсии, Параметры.ПользовательХранилища, Параметры.ПарольХранилища);
+        ФайлВерсии = ПолучитьИмяВременногоФайла(".cf");
+        Если Параметры.ИспользоватьTool1CD Тогда
+            ВыгрузитьВерсиюСредствамиTool1CD(Параметры.АдресХранилища, Параметры.ВерсияХранилища, ФайлВерсии);
+        Иначе
+            ВыгрузитьВерсиюИзХранилища(Параметры.АдресХранилища, Параметры.ВерсияХранилища, ФайлВерсии, Параметры.ПользовательХранилища, Параметры.ПарольХранилища);
+        КонецЕсли;
 
         ФайлТест = Новый Файл(ФайлВерсии);
         Ожидаем.Что(ФайлТест.Существует(), "Должен существовать выгруженный файл версии");
 
         УправлениеКонфигуратором = ОкружениеСборки.ПолучитьКонфигуратор();
         ЗагрузитьКонфигурациюВБазуСборки(УправлениеКонфигуратором, ФайлВерсии);
     Исключение
-		ВФ.Удалить();
-		ВызватьИсключение;
+        ВФ.Удалить();
+        ВызватьИсключение;
     КонецПопытки;
 
-	ВФ.Удалить();
+    ВФ.Удалить();
 
 КонецФункции
 
 Процедура ЗагрузитьКонфигурациюВБазуСборки(Знач УправлениеКонфигуратором, Знач ФайлВерсии) Экспорт
     Лог.Информация("Загружаю версию во временную базу");
-	УправлениеКонфигуратором.ЗагрузитьКонфигурациюИзФайла(ФайлВерсии, Истина);
-	Лог.Информация(УправлениеКонфигуратором.ВыводКоманды());
+    УправлениеКонфигуратором.ЗагрузитьКонфигурациюИзФайла(ФайлВерсии, Истина);
+    Лог.Информация(УправлениеКонфигуратором.ВыводКоманды());
 КонецПроцедуры
 
 // экспортная для целей тестирования
@@ -69,6 +74,7 @@
     Результат.Вставить("ПользовательХранилища", ПараметрыКоманды["-storage-user"]);
     Результат.Вставить("ПарольХранилища", ПараметрыКоманды["-storage-pwd"]);
     Результат.Вставить("ВерсияХранилища", ПараметрыКоманды["-storage-v"]);
+    Результат.Вставить("ИспользоватьTool1CD", ПараметрыКоманды["-use-tool1cd"]);
 
     Возврат Результат;
 
@@ -80,7 +86,7 @@
     Знач ПользовательХранилища = Неопределено,
     Знач ПарольХранилища = Неопределено) Экспорт
 
-	ВременныйКаталог = "";
+    ВременныйКаталог = "";
     Конфигуратор = ПолучитьКонфигуратор(ВременныйКаталог);
 
     Лог.Отладка("Выгружаю версию из хранилища");
@@ -98,18 +104,30 @@
     Лог.Отладка("Удален временный каталог: " + ВременныйКаталог);
 КонецПроцедуры
 
+Процедура ВыгрузитьВерсиюСредствамиTool1CD(Знач КаталогХранилища, Знач ВерсияХранилища, Знач ФайлВерсии) Экспорт
+    
+    ФайлХранилища = ОбъединитьПути(КаталогХранилища, "1cv8ddb.1CD");
+    Чтение = Новый ЧтениеХранилищаКонфигурации;
+    Если ВерсияХранилища = Неопределено Тогда
+        ВерсияХранилища = 0;
+    КонецЕсли;
+    
+    Чтение.ВыгрузитьВерсиюКонфигурации(ФайлХранилища, ФайлВерсии, ВерсияХранилища);
+
+КонецПроцедуры
+
 Функция ПолучитьКонфигуратор(РабочийКаталог = "")
-	
-	Если ПустаяСтрока(РабочийКаталог) Тогда
-		РабочийКаталог = ВФ.СоздатьКаталог();
-	    Лог.Отладка("Создан временный каталог: " + РабочийКаталог);
-	КонецЕсли;
-	
-	Конфигуратор = Новый УправлениеКонфигуратором();
+    
+    Если ПустаяСтрока(РабочийКаталог) Тогда
+        РабочийКаталог = ВФ.СоздатьКаталог();
+        Лог.Отладка("Создан временный каталог: " + РабочийКаталог);
+    КонецЕсли;
+    
+    Конфигуратор = Новый УправлениеКонфигуратором();
     Конфигуратор.КаталогСборки(РабочийКаталог);
-	
-	Возврат Конфигуратор;
-	
+    
+    Возврат Конфигуратор;
+    
 КонецФункции // ПолучитьКонфигуратор()
 
 //////////////////////////////////////////////////////////////////////////////