Добавлена команда СнятьСПоддержки

src/Классы/КомандаСнятьСПоддержки.os

+
+///////////////////////////////////////////////////////////////////////////////////////////////////
+// Прикладной интерфейс
+
+Перем Лог;
+
+Процедура ЗарегистрироватьКоманду(Знач ИмяКоманды, Знач Парсер) Экспорт
+	
+    ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды, "Снять базу данных с поддержки");
+    
+    Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, "СтрокаПодключения", "Строка подключения к рабочему контуру");
+    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, 
+    	"-db-user",
+    	"Пользователь информационной базы");
+
+    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, 
+    	"-db-pwd",
+    	"Пароль пользователя информационной базы");
+
+    Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, 
+    	"-v8version",
+    	"Маска версии платформы 1С");
+	
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, 
+    	"-uccode",
+    	"Ключ разрешения запуска");
+
+	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, 
+    	"-force",
+    	"Принудительное выполнение");
+
+	Парсер.ДобавитьКоманду(ОписаниеКоманды);
+
+КонецПроцедуры
+
+Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт
+    
+	ВозможныйРезультат = МенеджерКомандПриложения.РезультатыКоманд();
+	
+    СтрокаПодключения = ПараметрыКоманды["СтрокаПодключения"];
+	Пользователь      = ПараметрыКоманды["-db-user"];
+	Пароль            = ПараметрыКоманды["-db-pwd"];
+	ПринудительноеВыполнение = ПараметрыКоманды["-force"];
+	ИспользуемаяВерсияПлатформы = ПараметрыКоманды["-v8version"];
+	КлючРазрешенияЗапуска = ПараметрыКоманды["-uccode"];
+	
+	Если ПустаяСтрока(СтрокаПодключения) Тогда
+		Лог.Ошибка("Не задана строка подключения");
+		Возврат ВозможныйРезультат.НеверныеПараметры;
+	КонецЕсли;
+	
+	Конфигуратор = ЗапускПриложений.НастроитьКонфигуратор(
+		СтрокаПодключения,
+		Пользователь,
+		Пароль,
+		ИспользуемаяВерсияПлатформы);
+	
+	Если Не ПустаяСтрока(КлючРазрешенияЗапуска) Тогда
+		Конфигуратор.УстановитьКлючРазрешенияЗапуска(КлючРазрешенияЗапуска);
+	КонецЕсли;
+	
+	Лог.Информация("Снимаю БД с поддержки");
+	Попытка
+		Конфигуратор.СнятьКонфигурациюСПоддержки(ПринудительноеВыполнение);
+		Текст = Конфигуратор.ВыводКоманды();
+		Если Не ПустаяСтрока(Текст) Тогда
+			Лог.Информация(Текст);
+		КонецЕсли;
+	Исключение
+		Лог.Ошибка(Конфигуратор.ВыводКоманды());
+		Возврат ВозможныйРезультат.ОшибкаВремениВыполнения;
+	КонецПопытки;
+	
+	Возврат ВозможныйРезультат.Успех;
+    
+КонецФункции
+
+Лог = Логирование.ПолучитьЛог("vanessa.app.deployka");
\ No newline at end of file

src/Модули/МенеджерКомандПриложения.os

@@ -11,6 +11,7 @@
 	ДобавитьКоманду("session" ,       "КомандаУправлениеСеансами", Парсер);
 	ДобавитьКоманду("dbupdate",       "КомандаОбновитьКонфигурациюБД", Парсер);
 	ДобавитьКоманду("run",            "КомандаЗапуститьВРежимеПредприятия", Парсер);
+	ДобавитьКоманду("disablesupport", "КомандаСнятьСПоддержки", Парсер);
 	
 КонецПроцедуры