Переименовывание module вынесено в параметр.

Добавлен булев параметр командной строки `-rename-modulebsl`.
* on - переименовывать module в Module.bsl
* off (по-умолчанию) - старое поведение

Author: dmpas

src/core/Классы/КомандаExport.os

@@ -26,6 +26,7 @@
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-maxversion", "<номер максимальной версии для выгрузки>");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-limit", "<выгрузить неболее limit версий от текущей выгруженной>");
 	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-tempdir", "<Путь к каталогу временных файлов>");
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-rename-modulebsl", "<on|off>");
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -38,6 +39,7 @@
 	МинВерсия = ПараметрыКоманды["-minversion"];
 	МаксВерсия = ПараметрыКоманды["-maxversion"];
 	Лимит = ПараметрыКоманды["-limit"];
+	ПереименовыватьФайлМодуляОбычнойФормы = ПараметрыКоманды["-rename-modulebsl"] = "on";
 
 	Если ЛокальныйКаталогГит = Неопределено Тогда
 
@@ -76,6 +78,7 @@
 	Распаковщик = РаспаковщикКонфигурации.ПолучитьИНастроитьРаспаковщик(ПараметрыКоманды, ДополнительныеПараметры);
 	Распаковщик.ВерсияПлатформы				= ПараметрыКоманды["-v8version"];
 	Распаковщик.ДоменПочтыДляGitПоУмолчанию	= ПараметрыКоманды["-email"];
+	Распаковщик.ПереименовыватьФайлМодуляОбычнойФормы = ПереименовыватьФайлМодуляОбычнойФормы;
 	ДополнительныеПараметры.Лог.Информация("Начинаю выгрузку исходников");
 	РаспаковщикКонфигурации.ВыполнитьЭкспортИсходников(Распаковщик, ПараметрыКоманды["ПутьКХранилищу"], ЛокальныйКаталогГит, МинВерсия, МаксВерсия, Формат,,, Лимит);
 	ДополнительныеПараметры.Лог.Информация("Выгрузка завершена");

src/core/Классы/МенеджерСинхронизации.os

@@ -25,6 +25,7 @@
 
 Перем ДоменПочтыДляGitПоУмолчанию Экспорт;
 Перем ВерсияПлатформы Экспорт;
+Перем ПереименовыватьФайлМодуляОбычнойФормы Экспорт;
 
 // Выполняет выгрузку конфигурации в файлы
 // и распределение файлов по каталогам согласно иерархии метаданных.
@@ -396,16 +397,20 @@
 
 	ЗапуститьПриложение(СтрокаЗапуска,,Истина);
 
-	Для Каждого ФайлМодуля Из НайтиФайлы(КаталогРаспаковки, "module", Истина) Цикл
+	Если ПереименовыватьФайлМодуляОбычнойФормы Тогда
 
-		СтароеИмяФайла = ФайлМодуля.ПолноеИмя;
-		НовоеИмяФайла = ОбъединитьПути(ФайлМодуля.Путь, "Module.bsl");
-		ПереместитьФайл(СтароеИмяФайла, НовоеИмяФайла);
-		ДобавитьПереименование(Переименования,
-			СтрЗаменить(СтароеИмяФайла, КорневойКаталог, ""),
-			СтрЗаменить(НовоеИмяФайла, КорневойКаталог, ""));
+		Для Каждого ФайлМодуля Из НайтиФайлы(КаталогРаспаковки, "module", Истина) Цикл
 
-	КонецЦикла;
+			СтароеИмяФайла = ФайлМодуля.ПолноеИмя;
+			НовоеИмяФайла = ОбъединитьПути(ФайлМодуля.Путь, "Module.bsl");
+			ПереместитьФайл(СтароеИмяФайла, НовоеИмяФайла);
+			ДобавитьПереименование(Переименования,
+				СтрЗаменить(СтароеИмяФайла, КорневойКаталог, ""),
+				СтрЗаменить(НовоеИмяФайла, КорневойКаталог, ""));
+
+		КонецЦикла;
+
+	КонецЕсли;
 
 КонецПроцедуры