|
30 | 30 | ВыходнойКаталог = ФайлВыхКаталога.ПолноеИмя; |
31 | 31 | КонецЕсли; |
32 | 32 |
|
33 | | - Сообщить("Начинаю сборку в каталоге " + РабочийКаталог); |
| 33 | + Лог.Информация("Начинаю сборку в каталоге " + РабочийКаталог); |
34 | 34 | УстановитьТекущийКаталог(РабочийКаталог); |
35 | 35 | УточнитьФайлМанифеста(ФайлМанифеста); |
36 | 36 | Манифест = ПрочитатьМанифест(ФайлМанифеста); |
37 | 37 | СобратьПакетВКаталогеСборки(Манифест, ВыходнойКаталог); |
38 | 38 | УстановитьТекущийКаталог(ТекущийРабКаталог); |
39 | | - Сообщить("Сборка пакета завершена"); |
| 39 | + Лог.Информация("Сборка пакета завершена"); |
40 | 40 |
|
41 | 41 | Исключение |
42 | 42 | УстановитьТекущийКаталог(ТекущийРабКаталог); |
|
55 | 55 |
|
56 | 56 | ФайлОбъект = Новый Файл(Константы.ИмяФайлаСпецификацииПакета); |
57 | 57 | Если ФайлОбъект.Существует() и ФайлОбъект.ЭтоФайл() Тогда |
58 | | - Сообщить("Найден файл манифеста"); |
| 58 | + Лог.Информация("Найден файл манифеста"); |
59 | 59 | ФайлМанифеста = ФайлОбъект.ПолноеИмя; |
60 | 60 | Иначе |
61 | 61 | ВызватьИсключение "Не определен манифест пакета"; |
62 | 62 | КонецЕсли; |
63 | 63 | Иначе |
64 | | - Сообщить("Использую файл манифеста " + ФайлМанифеста); |
| 64 | + Лог.Информация("Использую файл манифеста " + ФайлМанифеста); |
65 | 65 | КонецЕсли; |
66 | 66 |
|
67 | 67 | КонецПроцедуры |
68 | 68 |
|
69 | 69 | Функция ПрочитатьМанифест(Знач ФайлМанифеста) |
70 | 70 |
|
71 | 71 | ОписаниеПакета = Новый ОписаниеПакета(); |
72 | | - Сообщить("Загружаю описание пакета..."); |
| 72 | + Лог.Информация("Загружаю описание пакета..."); |
73 | 73 | ВнешнийКонтекст = Новый Структура("Описание", ОписаниеПакета); |
74 | 74 | Манифест = ЗагрузитьСценарий(ФайлМанифеста, ВнешнийКонтекст); |
75 | | - Сообщить("Описание пакета прочитано"); |
| 75 | + Лог.Информация("Описание пакета прочитано"); |
76 | 76 |
|
77 | 77 | Возврат ОписаниеПакета; |
78 | 78 |
|
|
107 | 107 | Запись.Закрыть(); |
108 | 108 |
|
109 | 109 | Архив.Добавить(ПутьМанифеста); |
110 | | - Сообщить("Записаны метаданные пакета"); |
| 110 | + Лог.Информация("Записаны метаданные пакета"); |
111 | 111 |
|
112 | 112 | КонецПроцедуры |
113 | 113 |
|
|
118 | 118 | Возврат; |
119 | 119 | КонецЕсли; |
120 | 120 |
|
121 | | - Сообщить("Формирую определения модулей пакета (lib.config)"); |
| 121 | + Лог.Информация("Формирую определения модулей пакета (lib.config)"); |
122 | 122 |
|
123 | 123 | ПутьКонфигурацииПакета = ОбъединитьПути(ВремКаталогСборки, "lib.config"); |
124 | 124 | Запись = Новый ЗаписьXML; |
|
149 | 149 | Запись.Закрыть(); |
150 | 150 |
|
151 | 151 | Архив.Добавить(ПутьКонфигурацииПакета); |
152 | | - Сообщить("Записаны определения модулей пакета"); |
| 152 | + Лог.Информация("Записаны определения модулей пакета"); |
153 | 153 |
|
154 | 154 | КонецПроцедуры |
155 | 155 |
|
156 | 156 | Процедура ДобавитьФайлыПакета(Знач Архив, Знач Манифест) |
157 | 157 |
|
158 | 158 | ВключаемыеФайлы = Манифест.ВключаемыеФайлы(); |
159 | 159 | Если ВключаемыеФайлы.Количество() = 0 Тогда |
160 | | - Сообщить("Не определены включаемые файлы"); |
| 160 | + Лог.Информация("Не определены включаемые файлы"); |
161 | 161 | Возврат; |
162 | 162 | КонецЕсли; |
163 | 163 |
|
|
167 | 167 | ДобавитьОписаниеБиблиотеки(АрхивЦелевойСистемы, Манифест); |
168 | 168 |
|
169 | 169 | Для Каждого ВключаемыйФайл Из ВключаемыеФайлы Цикл |
170 | | - Сообщить("Добавляем файл: " + ВключаемыйФайл); |
| 170 | + Лог.Информация("Добавляем файл: " + ВключаемыйФайл); |
171 | 171 | ПолныйПуть = Новый Файл(ВключаемыйФайл).ПолноеИмя; |
172 | 172 | АрхивЦелевойСистемы.Добавить(ПолныйПуть, РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно); |
173 | 173 | КонецЦикла; |
|
192 | 192 | ИмяПакета = ВыходнойКаталог.Имя; |
193 | 193 |
|
194 | 194 | Если Не ВыходнойКаталог.Существует() Тогда |
195 | | - Сообщить("Создаю каталог " + ИмяПакета); |
| 195 | + Лог.Информация("Создаю каталог " + ИмяПакета); |
196 | 196 | СоздатьКаталог(ВыходнойКаталог.ПолноеИмя); |
197 | 197 | Иначе |
198 | 198 | Содержимое = НайтиФайлы(ВыходнойКаталог.ПолноеИмя, ПолучитьМаскуВсеФайлы()); |
|
208 | 208 | ЗаписатьЗаготовкуСкриптаУстановки(ВыходнойКаталог.ПолноеИмя); |
209 | 209 | ЗаписатьЗаготовкуМанифестаБиблиотеки(ВыходнойКаталог.ПолноеИмя, ИмяПакета); |
210 | 210 |
|
211 | | - Сообщить("Готово"); |
| 211 | + Лог.Информация("Готово"); |
212 | 212 |
|
213 | 213 | КонецПроцедуры |
214 | 214 |
|
215 | 215 | Процедура СоздатьПодкаталог(Знач База, Знач Имя) |
216 | | - Сообщить("Создаю каталог " + Имя); |
| 216 | + Лог.Информация("Создаю каталог " + Имя); |
217 | 217 | СоздатьКаталог(ОбъединитьПути(База, Имя)); |
218 | 218 | КонецПроцедуры |
219 | 219 |
|
220 | 220 | Процедура ЗаписатьЗаготовкуСкриптаУстановки(Знач Каталог) |
221 | 221 |
|
222 | | - Сообщить("Создаю заготовку скрипта установки/удаления"); |
| 222 | + Лог.Информация("Создаю заготовку скрипта установки/удаления"); |
223 | 223 |
|
224 | 224 | ИмяФайла = ОбъединитьПути(Каталог, Константы.ИмяФайлаСкриптаУстановки); |
225 | 225 | ЗаписьТекста = Новый ЗаписьТекста(ИмяФайла); |
|
265 | 265 |
|
266 | 266 | Процедура ЗаписатьЗаготовкуМанифестаБиблиотеки(Знач Каталог, Знач ИмяПакета) |
267 | 267 |
|
268 | | - Сообщить("Создаю заготовку описания пакета"); |
| 268 | + Лог.Информация("Создаю заготовку описания пакета"); |
269 | 269 |
|
270 | 270 | ЗаписьТекста = Новый ЗаписьТекста(ОбъединитьПути(Каталог, Константы.ИмяФайлаСпецификацииПакета)); |
271 | 271 |
|
|
0 commit comments