cpdb

1
// ----------------------------------------------------------
2
// This Source Code Form is subject to the terms of the
3
// Mozilla Public License, v.2.0. If a copy of the MPL
4
// was not distributed with this file, You can obtain one
5
// at http://mozilla.org/MPL/2.0/.
6
// ----------------------------------------------------------
7
// Codebase: https://github.com/ArKuznetsov/cpdb/
8
// ----------------------------------------------------------
9

10
#Использовать cli
11
#Использовать "."
12

13
Перем Лог;     // Объект       - объект записи лога приложения
14

15
Процедура ВыполнитьПриложение()
16

17
	Приложение = Новый КонсольноеПриложение(ПараметрыСистемы.ИмяПриложения(),
18
	                                        "приложение для загрузки и подготовки релизов 1С");
19
	Приложение.Версия("version", ПараметрыСистемы.Версия());
20

21
	Приложение.ДобавитьКоманду("batch b",
22
                               "выполнить пакет команд",
23
                               Новый КомандаВыполнитьПакет());
24

25
	Приложение.ДобавитьКоманду("database d",
26
                               "команды работы с СУБД",
27
                               Новый КомандыРаботыССУБД());
28

29
	Приложение.ДобавитьКоманду("infobase i",
30
                               "команды работы с информационными базами 1С",
31
                               Новый КомандыРаботыСИБ());
32

33
	Приложение.ДобавитьКоманду("file f",
34
                               "команды работы с файлами",
35
                               Новый КомандыРаботыСФайлами());
36

37
	Приложение.ДобавитьКоманду("yadisk y",
38
                               "команды обмена файлами с Yandex-диском",
39
                               Новый КомандыРаботыСЯндексДиск());
40

41
	Приложение.ДобавитьКоманду("nextcloud n",
42
                               "команды обмена файлами с сервисом NextCloud",
43
                               Новый КомандыРаботыСNextCloud());
44

45
	Приложение.ДобавитьКоманду("sftp s",
46
                               "команды обмена файлами с SFTP-сервером",
47
                               Новый КомандыРаботыСSFTP());
48

49
	Приложение.Опция("v verbose", Ложь, "вывод отладочной информации в процессе выполнения")
50
	          .Флаговый()
51
	          .ВОкружении("CPDB_VERBOSE");
52

53
	Приложение.Запустить(АргументыКоманднойСтроки);
54
	
55
КонецПроцедуры // ВыполнитьПриложение()
56

57
// Функция - проверяет, что приложение запущено в режиме тестирования
58
//
59
// Возвращаемое значение:
60
//   Булево  - Истина - приложение запущено в режиме тестирования
61
//
62
Функция ЭтоТест()
63
	
64
	Попытка
65
		Возврат ЭтотОбъект.ЭтоТест;
66
	Исключение
67
		Возврат Ложь;
68
	КонецПопытки;
69

70
КонецФункции // ЭтоТест()
71

72
///////////////////////////////////////////////////////
73

74
Лог = ПараметрыСистемы.Лог();
75

76
Попытка
77

78
	ВыполнитьПриложение();
79

80
Исключение
81

82
	Лог.КритичнаяОшибка(ОписаниеОшибки());
83
	ВременныеФайлы.Удалить();
84

85
	Если ЭтоТест() Тогда
86
		ВызватьИсключение ОписаниеОшибки();
87
	Иначе
88
		ЗавершитьРаботу(1);
89
	КонецЕсли;
90

91
КонецПопытки;
92