|
26 | 26 | Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-maxversion", "<номер максимальной версии для выгрузки>"); |
27 | 27 | Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-limit", "<выгрузить неболее limit версий от текущей выгруженной>"); |
28 | 28 | Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-tempdir", "<Путь к каталогу временных файлов>"); |
| 29 | + Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-process-fatform-modules", "Переименовывать модули обычных форм в Module.bsl"); |
| 30 | + Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-check-authors", "Проверка файла AUTHORS, на наличие всех авторов коммитов "); |
| 31 | + |
| 32 | + Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-amount-look-for-license", "<число> количество повторов получения лицензии (попытка подключения каждые 10 сек), 0 - без ограничений"); |
| 33 | + Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой"); |
| 34 | + Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-auto-set-tags", "Автоматическая установка тэгов по версия конфиграции"); |
| 35 | + |
29 | 36 |
|
30 | 37 | Парсер.ДобавитьКоманду(ОписаниеКоманды); |
31 | 38 |
|
|
38 | 45 | МинВерсия = ПараметрыКоманды["-minversion"]; |
39 | 46 | МаксВерсия = ПараметрыКоманды["-maxversion"]; |
40 | 47 | Лимит = ПараметрыКоманды["-limit"]; |
| 48 | + ПереименовыватьФайлМодуляОбычнойФормы = ПараметрыКоманды["-process-fatform-modules"]; |
| 49 | + ПроверитьАвторовХранилища = ПараметрыКоманды["-check-authors"]; |
| 50 | + ПрерватьВыполнениеБезКомментарияКВерсии = ПараметрыКоманды["-stop-if-empty-comment"]; |
| 51 | + АвтоматическаяУстановкаТэговПоВерсиям = ПараметрыКоманды["-auto-set-tags"]; |
41 | 52 |
|
42 | 53 | Если ЛокальныйКаталогГит = Неопределено Тогда |
43 | 54 |
|
44 | 55 | ЛокальныйКаталогГит = ТекущийКаталог(); |
45 | 56 |
|
46 | 57 | КонецЕсли; |
47 | 58 |
|
| 59 | + Если ПроверитьАвторовХранилища = Неопределено Тогда |
| 60 | + |
| 61 | + ПроверитьАвторовХранилища = Ложь; |
| 62 | + |
| 63 | + КонецЕсли; |
| 64 | + |
48 | 65 | Если Формат = Неопределено Тогда |
49 | 66 |
|
50 | 67 | Формат = РежимВыгрузкиФайлов.Авто; |
|
69 | 86 |
|
70 | 87 | КонецЕсли; |
71 | 88 |
|
| 89 | + Если ПрерватьВыполнениеБезКомментарияКВерсии = Неопределено Тогда |
| 90 | + |
| 91 | + ПрерватьВыполнениеБезКомментарияКВерсии = Ложь; |
| 92 | + |
| 93 | + КонецЕсли; |
| 94 | + |
| 95 | + Если АвтоматическаяУстановкаТэговПоВерсиям = Неопределено Тогда |
| 96 | + |
| 97 | + АвтоматическаяУстановкаТэговПоВерсиям = Ложь; |
| 98 | + |
| 99 | + КонецЕсли; |
| 100 | + |
72 | 101 | МаксВерсия = Число(МаксВерсия); |
73 | 102 | МинВерсия = Число(МинВерсия); |
74 | 103 | Лимит = Число(Лимит); |
75 | 104 |
|
76 | 105 | Распаковщик = РаспаковщикКонфигурации.ПолучитьИНастроитьРаспаковщик(ПараметрыКоманды, ДополнительныеПараметры); |
77 | 106 | Распаковщик.ВерсияПлатформы = ПараметрыКоманды["-v8version"]; |
78 | 107 | Распаковщик.ДоменПочтыДляGitПоУмолчанию = ПараметрыКоманды["-email"]; |
| 108 | + Распаковщик.ПереименовыватьФайлМодуляОбычнойФормы = ПереименовыватьФайлМодуляОбычнойФормы; |
79 | 109 | ДополнительныеПараметры.Лог.Информация("Начинаю выгрузку исходников"); |
80 | | - РаспаковщикКонфигурации.ВыполнитьЭкспортИсходников(Распаковщик, ПараметрыКоманды["ПутьКХранилищу"], ЛокальныйКаталогГит, МинВерсия, МаксВерсия, Формат,,, Лимит); |
| 110 | + РаспаковщикКонфигурации.ВыполнитьЭкспортИсходников(Распаковщик, |
| 111 | + ПараметрыКоманды["ПутьКХранилищу"], |
| 112 | + ЛокальныйКаталогГит, |
| 113 | + МинВерсия, |
| 114 | + МаксВерсия, |
| 115 | + Формат, |
| 116 | + , |
| 117 | + , |
| 118 | + Лимит, |
| 119 | + ПрерватьВыполнениеБезКомментарияКВерсии, |
| 120 | + , |
| 121 | + АвтоматическаяУстановкаТэговПоВерсиям, |
| 122 | + ПроверитьАвторовХранилища); |
81 | 123 | ДополнительныеПараметры.Лог.Информация("Выгрузка завершена"); |
82 | 124 |
|
83 | 125 | Возврат МенеджерКомандПриложения.РезультатыКоманд().Успех; |
|
0 commit comments