1
+
2
+ ///////////////////////////////////////////////////////////////////////////////////////////////////
3
+ // Прикладной интерфейс
4
+
5
+ Перем Лог ;
6
+
7
+ Процедура ЗарегистрироватьКоманду (Знач ИмяКоманды , Знач Парсер ) Экспорт
8
+
9
+ ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Снять базу данных с поддержки" );
10
+
11
+ Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "СтрокаПодключения" , "Строка подключения к рабочему контуру" );
12
+ Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,
13
+ "-db-user" ,
14
+ "Пользователь информационной базы" );
15
+
16
+ Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,
17
+ "-db-pwd" ,
18
+ "Пароль пользователя информационной базы" );
19
+
20
+ Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,
21
+ "-v8version" ,
22
+ "Маска версии платформы 1С" );
23
+
24
+ Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,
25
+ "-uccode" ,
26
+ "Ключ разрешения запуска" );
27
+
28
+ Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды,
29
+ "-force" ,
30
+ "Принудительное выполнение" );
31
+
32
+ Парсер.ДобавитьКоманду(ОписаниеКоманды);
33
+
34
+ КонецПроцедуры
35
+
36
+ Функция ВыполнитьКоманду (Знач ПараметрыКоманды ) Экспорт
37
+
38
+ ВозможныйРезультат = МенеджерКомандПриложения.РезультатыКоманд();
39
+
40
+ СтрокаПодключения = ПараметрыКоманды["СтрокаПодключения" ];
41
+ Пользователь = ПараметрыКоманды["-db-user" ];
42
+ Пароль = ПараметрыКоманды["-db-pwd" ];
43
+ ПринудительноеВыполнение = ПараметрыКоманды["-force" ];
44
+ ИспользуемаяВерсияПлатформы = ПараметрыКоманды["-v8version" ];
45
+ КлючРазрешенияЗапуска = ПараметрыКоманды["-uccode" ];
46
+
47
+ Если ПустаяСтрока (СтрокаПодключения) Тогда
48
+ Лог.Ошибка("Не задана строка подключения" );
49
+ Возврат ВозможныйРезультат.НеверныеПараметры;
50
+ КонецЕсли ;
51
+
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
+ Лог = Логирование.ПолучитьЛог("vanessa.app.deployka" );
0 commit comments