Обработка события "ПередУстановкой " #134

Удаление файлов, указанных для удаления в манифесте пакета

Author: artbear

src/core/Классы/СборщикПакета.os

@@ -259,10 +259,22 @@
 	|
 	|");
 
+	ЗаписьТекста.ЗаписатьСтроку("// Вызывается пакетным менеджером перед установкой пакета на клиентскую машину.");
+	ЗаписьТекста.ЗаписатьСтроку("// ");
+	ЗаписьТекста.ЗаписатьСтроку("// Параметры:");
+	ЗаписьТекста.ЗаписатьСтроку("//   КаталогУстановкиПакета - строка. Путь в который пакетный менеджер устанавливает текущий пакет.");
+	ЗаписьТекста.ЗаписатьСтроку("//   ЧтениеZipФайла - ЧтениеZipФайла. Архив пакета.");
+	ЗаписьТекста.ЗаписатьСтроку("// ");
+	ЗаписьТекста.ЗаписатьСтроку("Процедура ПередУстановкой(Знач КаталогУстановкиПакета, Знач ЧтениеZipФайла) Экспорт");
+	ЗаписьТекста.ЗаписатьСтроку("	// TODO: Реализуйте спец. логику перед установкой, если требуется");
+	ЗаписьТекста.ЗаписатьСтроку("КонецПроцедуры");
+	ЗаписьТекста.ЗаписатьСтроку(Символы.ПС);
+		
 	ЗаписьТекста.ЗаписатьСтроку("// Вызывается пакетным менеджером после распаковки пакета на клиентскую машину.");
 	ЗаписьТекста.ЗаписатьСтроку("// ");
 	ЗаписьТекста.ЗаписатьСтроку("// Параметры:");
 	ЗаписьТекста.ЗаписатьСтроку("//   КаталогУстановкиПакета - строка. Путь в который пакетный менеджер устанавливает текущий пакет.");
+	ЗаписьТекста.ЗаписатьСтроку("//   СтандартнаяОбработка - Булево. Возможность отменить стандартную обработку.");
 	ЗаписьТекста.ЗаписатьСтроку("// ");
 	ЗаписьТекста.ЗаписатьСтроку("Процедура ПриУстановке(Знач КаталогУстановкиПакета, СтандартнаяОбработка) Экспорт");
 	ЗаписьТекста.ЗаписатьСтроку("	// TODO: Реализуйте спец. логику установки, если требуется");

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

@@ -137,9 +137,14 @@
 
 		Лог.Отладка("Устанавливаю файлы пакета из архива");
 		УдалитьУстаревшиеФайлы(ПутьУстановки);
+
+		ОбработчикСобытий = ПолучитьОбработчикСобытий(ПутьУстановки.ПолноеИмя);
+		УдалитьФайлыУказанныеВМанифесте(ОбработчикСобытий, ПутьУстановки);
+
+		ВызватьСобытиеПередУстановкой(ОбработчикСобытий, ПутьУстановки.ПолноеИмя, ЧтениеСодержимого);
+
 		ЧтениеСодержимого.ИзвлечьВсе(ПутьУстановки.ПолноеИмя);
 
-		ОбработчикСобытий = ПолучитьОбработчикСобытий(ПутьУстановки.ПолноеИмя);
 		ВызватьСобытиеПриУстановке(ОбработчикСобытий, ПутьУстановки.ПолноеИмя, СтандартнаяОбработка);
 
 	Исключение
@@ -157,6 +162,26 @@
 	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "packagedef", Ложь);
 КонецПроцедуры
 
+Процедура УдалитьФайлыУказанныеВМанифесте(Знач ОбработчикСобытий, Знач ПутьУстановки)
+
+	Если ОбработчикСобытий = Неопределено Тогда
+		Возврат;
+	КонецЕсли;
+
+	УдаляемыеФайлы = ОбработчикСобытий.УдаляемыеФайлы();
+	Если УдаляемыеФайлы.Количество() = 0 Тогда
+		Лог.Отладка("Не определены удаляемые файлы");
+		Возврат;
+	КонецЕсли;
+
+	Для Каждого УдаляемыйФайл Из УдаляемыеФайлы Цикл
+		Лог.Отладка("Удаляем файл: " + УдаляемыйФайл);
+		ПолныйПуть = Новый Файл(УдаляемыйФайл).ПолноеИмя;
+
+		УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, УдаляемыйФайл, Истина);
+	КонецЦикла;
+КонецПроцедуры
+
 Процедура УдалитьФайлыВКаталоге(Знач ПутьКаталога, Знач МаскаФайлов, Знач ИскатьВПодкаталогах = Истина)
 	ФайлыДляУдаления = НайтиФайлы(ПутьКаталога, МаскаФайлов, ИскатьВПодкаталогах);
 	Для Каждого Файл из ФайлыДляУдаления Цикл
@@ -180,6 +205,20 @@
 	Возврат ОбработчикСобытий;
 КонецФункции
 
+Процедура ВызватьСобытиеПередУстановкой(Знач ОбработчикСобытий, Знач Каталог, Знач ЧтениеZipФайла)
+
+	Если ОбработчикСобытий = Неопределено Тогда
+		Возврат;
+	КонецЕсли;
+
+	Рефлектор = Новый Рефлектор;
+	Если Рефлектор.МетодСуществует(ОбработчикСобытий, "ПередУстановкой") Тогда
+		Лог.Отладка("Вызываю событие ПередУстановкой");
+		ОбработчикСобытий.ПередУстановкой(Каталог, ЧтениеZipФайла);
+	КонецЕсли;
+
+КонецПроцедуры
+
 Процедура ВызватьСобытиеПриУстановке(Знач ОбработчикСобытий, Знач Каталог, СтандартнаяОбработка)
 
 	Если ОбработчикСобытий = Неопределено Тогда