Merge pull request #246 from dmpas/feature/less-info-90

fix #90: Меньше шума при установке пакетов.

Author: nixel2007

src/core/Классы/МенеджерПолученияПакетов.os

@@ -29,7 +29,7 @@
 ФайлПакета = ИмяПакета + ".ospx";
 КонецЕсли;
 
-Лог.Информация("Скачиваю файл: " + ФайлПакета);
+ОбщегоНазначенияOpm.СообщениеПользователю(Лог, "Скачиваю файл: " + ФайлПакета);
 
 Если ПустаяСтрока(ПутьКФайлуПакета) Тогда
 ПутьКФайлуПакета = ВременныеФайлы.НовоеИмяФайла("ospx");
@@ -287,4 +287,4 @@
 
 КонецПроцедуры
 
-Лог = Логирование.ПолучитьЛог("oscript.app.opm");
+Лог = Логирование.ПолучитьЛог("oscript.app.opm.receive");

src/core/Классы/МенеджерУстановкиПакетов.os

@@ -3,8 +3,9 @@
 #Использовать logos
 #Использовать tempfiles
 
+// BSLLS:MissingVariablesDescription-off
+
 Перем Лог;
-Перем мВременныйКаталогУстановки;
 
 Перем ТекущийРежимУстановкиПакетов;
 Перем КэшУстановленныхПакетов;
@@ -18,12 +19,16 @@
 Перем УстанавливатьЗависимостиРазработчика;
 Перем СоздаватьФайлыЗапуска;
 
-Процедура ПриСозданииОбъекта(Знач ВходящийРежимУстановкиПакетов = Неопределено, Знач ВходящийКаталогУстановки = Неопределено, Знач ВходящийКаталогУстановкиЗависимостей = Неопределено, Знач ВходящийИмяСервера = "")
+// BSLLS:NumberOfOptionalParams-off
+Процедура ПриСозданииОбъекта(Знач ВходящийРежимУстановкиПакетов = Неопределено,
+Знач ВходящийКаталогУстановки = Неопределено,
+Знач ВходящийКаталогУстановкиЗависимостей = Неопределено,
+Знач ВходящийИмяСервера = "")
 
 ПутьККаталогуЛокальнойУстановки = ОбъединитьПути(
-ТекущийКаталог(),
-КонстантыOpm.ЛокальныйКаталогУстановкиПакетов
-);
+ТекущийКаталог(),
+КонстантыOpm.ЛокальныйКаталогУстановкиПакетов
+);
 
 Если Не ВходящийРежимУстановкиПакетов = Неопределено Тогда
 УстановитьРежимУстановкиПакетов(ВходящийРежимУстановкиПакетов);
@@ -110,9 +115,9 @@
 
 Если ЗависимостьПакета.ДляРазработки Тогда
 Если УстанавливатьЗависимостиРазработчика Тогда
-Лог.Информация("<%1> отмечена как зависимость для разработчика. Устанавливаем.", ЗависимостьПакета.ИмяПакета);
+Лог.Отладка("<%1> отмечена как зависимость для разработчика. Устанавливаем.", ЗависимостьПакета.ИмяПакета);
 Иначе
-Лог.Информация("<%1> отмечена как зависимость для разработчика, " + 
+Лог.Отладка("<%1> отмечена как зависимость для разработчика, " + 
 "но установка зависимостей для разработчика не активирована. Пропускаем.", ЗависимостьПакета.ИмяПакета);
 Возврат;
 КонецЕсли;
@@ -140,10 +145,12 @@
 Исключение
 ВызватьИсключение ОписаниеОшибки();
 КонецПопытки;
-
+
 МанифестПакета = УстановкаПакета.ПолучитьМанифестПакета();
 ИмяПакета = МанифестПакета.Свойства().Имя;
 
+ОбщегоНазначенияOpm.СообщениеПользователю(Лог, "Пакет установлен: %1", ИмяПакета);
+
 ПолныйПутьККаталогуУстановки = Новый Файл(КаталогУстановки).ПолноеИмя;
 ИмяКаталогаЛокальныхЗависимостей = КонстантыOpm.ЛокальныйКаталогУстановкиПакетов;
 
@@ -181,15 +188,20 @@
 УстановленныеПакеты = ПолучитьУстановленныеПакеты();
 
 Для Каждого Зависимость Из Зависимости Цикл
-Лог.Информация("Устанавливаю зависимость: " + Зависимость.ИмяПакета);
+
+Лог.Отладка("Требуется зависимость: " + Зависимость.ИмяПакета);
 
 Если Не УстановленныеПакеты.ПакетУстановлен(Зависимость, КаталогУстановкиЗависимостей) Тогда
+
+Лог.Отладка("Устанавливаю зависимость: %1", Зависимость.ИмяПакета);
+
 // скачать
 // определить зависимости и так по кругу
 УстановитьПакетПоОписанию(Зависимость);
 УстановленныеПакеты.Обновить();
+
 Иначе
-Лог.Информация("" + Зависимость.ИмяПакета + " уже установлен. Пропускаем.");
+Лог.Отладка("" + Зависимость.ИмяПакета + " уже установлен. Пропускаем.");
 // считаем, что версия всегда подходит
 КонецЕсли;
 
@@ -207,10 +219,11 @@
 УстановленныеПакеты = ПолучитьУстановленныеПакеты();
 
 Для Каждого Зависимость Из Зависимости Цикл
-Лог.Информация("Устанавливаю зависимость: <%1> из каталога локальных зависимостей", Зависимость.ИмяПакета);
+
+Лог.Отладка("Устанавливаю зависимость: <%1> из каталога локальных зависимостей", Зависимость.ИмяПакета);
 
 Если УстановленныеПакеты.ПакетУстановлен(Зависимость, КаталогУстановкиЗависимостей) Тогда
-Лог.Информация("<%1> уже установлен. Пропускаем.", Зависимость.ИмяПакета);
+Лог.Отладка("<%1> уже установлен. Пропускаем.", Зависимость.ИмяПакета);
 Продолжить;
 КонецЕсли;
 
@@ -258,5 +271,4 @@
 
 КонецФункции
 
-Лог = Логирование.ПолучитьЛог("oscript.app.opm");
-//Лог.УстановитьУровень(УровниЛога.Отладка);
+Лог = Логирование.ПолучитьЛог("oscript.app.opm.install");

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

@@ -45,7 +45,7 @@
 
 ПутьУстановки = ОбъектКаталогУстановки.ПолноеИмя;
 
-Лог.Информация("Устанавливаю пакет " + ИмяПакета);
+ОбщегоНазначенияOpm.СообщениеПользователю(Лог, "Устанавливаю пакет " + ИмяПакета);
 РаботаСОписаниемПакета.ПроверитьВерсиюМанифеста(Метаданные);
 РаботаСОписаниемПакета.ПроверитьВерсиюСреды(Метаданные);
 Если мЗависимостиВРаботе[ИмяПакета] = "ВРаботе" Тогда
@@ -85,7 +85,7 @@
 ВызватьИсключение;
 КонецПопытки;
 
-Лог.Информация("Установка завершена");
+ОбщегоНазначенияOpm.СообщениеПользователю(Лог, "Установка завершена");
 
 КонецПроцедуры
 
@@ -250,7 +250,7 @@
 Для Каждого ФайлПриложения Из ОписаниеПакета.ИсполняемыеФайлы() Цикл
 
 ИмяСкриптаЗапуска = ?(ПустаяСтрока(ФайлПриложения.ИмяПриложения), ИмяПакета, ФайлПриложения.ИмяПриложения);
-Лог.Информация("Регистрация приложения: " + ИмяСкриптаЗапуска);
+ОбщегоНазначенияOpm.СообщениеПользователю(Лог, "Регистрация приложения: " + ИмяСкриптаЗапуска);
 
 ОбъектФайл = Новый Файл(ОбъединитьПути(КаталогУстановки, ФайлПриложения.Путь));
 

src/core/Модули/ОбщегоНазначенияOpm.os

@@ -12,6 +12,12 @@
 Возврат ПрименитьПеременныеСредыШаг(Значение, ПеременныеСреды, 0);
 КонецФункции
 
+Процедура СообщениеПользователю(Знач Лог, Знач СтрокаСообщения, Знач ПараметрШаблона1 = Неопределено) Экспорт
+Сообщить(СтрШаблон(СтрокаСообщения, ПараметрШаблона1));
+Лог.Отладка(СтрокаСообщения, ПараметрШаблона1);
+КонецПроцедуры
+
+
 Функция ПрименитьПеременныеСредыШаг(Знач Значение, Знач ПеременныеСреды, Знач Индекс)
 
 ПеременнаяИмя = СтрШаблон("${%1}", ПеременныеСреды[Индекс].Ключ);