Merge pull request #29 from oscript-library/feature/opm-metadata

Feature/opm metadata

Author: EvilBeaver

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

@@ -221,7 +221,7 @@
 	ТихийРежим = ЗначенияПараметров["-q"];
 
 	Если ЗначенияПараметров["-remote"] Тогда
-		ТекстСообщения  = СтрШаблон("Пакеты в хабе :");		
+		ТекстСообщения  = СтрШаблон("Пакеты в хабе:");		
 		КэшПакетовВХабе = Новый КэшПакетовХаба();	
 		УстановленныеПакеты =  КэшПакетовВХабе.ПолучитьПакетыХаба();	
 	Иначе	
@@ -238,7 +238,12 @@
 	КонецЕсли;
 
 	Для Каждого УстановленныйПакет Из УстановленныеПакеты Цикл
-		Сообщить(УстановленныйПакет.Ключ);
+		СтрокаСообщения = УстановленныйПакет.Ключ;
+		Если ТипЗнч(УстановленныйПакет.Значение) = Тип("ОписаниеПакета") Тогда
+			ОписаниеПакета = УстановленныйПакет.Значение;
+			СтрокаСообщения = СтрокаСообщения + "@" + ОписаниеПакета.Свойства().Версия;
+		КонецЕсли;
+		Сообщить(СтрокаСообщения);
 	КонецЦикла;
 
 КонецПроцедуры

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

@@ -41,8 +41,23 @@
 
 Процедура ДобавитьУстановленныйПакет(Знач ФайлКаталога)
 
-	// TODO - здесь какое-то мета-описание нужно вместо Истины
-	УстановленныеПакеты.Вставить(ФайлКаталога.Имя, Истина);
+	ПутьКФайлуМетаданных = ОбъединитьПути(ФайлКаталога.ПолноеИмя, Константы.ИмяФайлаМетаданныхПакета);
+	ФайлМетаданных = Новый Файл(ПутьКФайлуМетаданных);
+	Если ФайлМетаданных.Существует() Тогда
+		
+		Чтение = Новый ЧтениеXML;
+		Чтение.ОткрытьФайл(ПутьКФайлуМетаданных);
+		Лог.Отладка("XML загружен");
+		Сериализатор = Новый СериализацияМетаданныхПакета;
+		МетаОписаниеПакета = Сериализатор.ПрочитатьXML(Чтение);
+		
+		Чтение.Закрыть();
+
+	Иначе
+		МетаОписаниеПакета = Истина;
+	КонецЕсли;
+
+	УстановленныеПакеты.Вставить(ФайлКаталога.Имя, МетаОписаниеПакета);
 
 КонецПроцедуры
 

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

@@ -43,6 +43,7 @@
 		Если СтандартнаяОбработка Тогда
 			СгенерироватьСкриптыЗапускаПриложенийПриНеобходимости(ПутьУстановки.ПолноеИмя, Метаданные);
 		КонецЕсли;
+		СохранитьФайлМетаданныхПакета(ПутьУстановки.ПолноеИмя, ФайлМетаданных);
 
 		ЧтениеПакета.Закрыть();
 
@@ -399,6 +400,14 @@
 
 КонецФункции
 
+Процедура СохранитьФайлМетаданныхПакета(Знач КаталогУстановки, Знач ПутьКФайлуМетаданных)
+
+	ПутьСохранения = ОбъединитьПути(КаталогУстановки, Константы.ИмяФайлаМетаданныхПакета);
+	ДанныеФайла = Новый ДвоичныеДанные(ПутьКФайлуМетаданных);
+	ДанныеФайла.Записать(ПутьСохранения);
+
+КонецПроцедуры
+
 //////////////////////////////////////////////////////////////////////////////////
 //