СервисПоддерживаетМиграцию (БСП)

Сервис поддерживает миграцию. Выполняет проверку сервиса.

// Выполняет проверку сервиса.
//
// Параметры:
//   ПараметрыДоступа - Структура - ключи:
//     * ИмяСервера - Строка.
//     * АдресПрограммногоИнтерфейса - Строка - выходной параметр.
//     * АдресРегистрации - Строка - выходной параметр.
//     * АдресВосстановления - Строка - выходной параметр.
//
// Возвращаемое значение:
//   Булево - Истина - в случае если поддерживает миграцию.
//
Функция СервисПоддерживаетМиграцию(ИмяСервера, АдресПрограммногоИнтерфейса, АдресРегистрации, АдресВосстановления, РегистрацияРазрешена) Экспорт
	
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(, Новый СертификатыУдостоверяющихЦентровОС);
	Соединение = Новый HTTPСоединение(ИмяСервера, , , , Новый ИнтернетПрокси, 30, ЗащищенноеСоединение);
	
	Запрос = Новый HTTPЗапрос("/info/hs/migration/info");
	
	Попытка
		Ответ = Соединение.ВызватьHTTPМетод("GET", Запрос);
	Исключение
		Шаблон = НСтр("ru = 'Сервис временно недоступен или не поддерживает миграцию,
                       |описание ошибки:
                       |%1'");
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрШаблон(Шаблон, КраткоеПредставлениеОшибки(ИнформацияОбОшибке())));
		Возврат Ложь;
	КонецПопытки;
	
	Если Ответ.КодСостояния <> 200 Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Сервис не поддерживает миграцию'"));
		Возврат Ложь;
	КонецЕсли;
	
	Попытка
		
		ПараметрыFresh = JSONВОбъект(Ответ.ПолучитьТелоКакСтроку());
		
		Если ПараметрыFresh.enabled <> Истина Тогда
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Сервис не поддерживает миграцию'"));
			Возврат Ложь;
		КонецЕсли;
		
		АдресПрограммногоИнтерфейса = ПараметрыFresh.url_api;
		
	Исключение
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Сервис не поддерживает миграцию'"));
		Возврат Ложь;
	КонецПопытки;
	
	АдресРегистрации = "";
	ПараметрыFresh.Свойство("url_register", АдресРегистрации);
	
	АдресВосстановления = "";
	ПараметрыFresh.Свойство("url_recover", АдресВосстановления);
	
	РегистрацияРазрешена = Ложь;
	ПараметрыFresh.Свойство("register_available", РегистрацияРазрешена);
	
	Возврат Истина;
	
КонецФункции

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////

// Выполняет проверку сервиса.
//
// Параметры:
//   ПараметрыДоступа - Структура - ключи:
//     * ИмяСервера - Строка.
//     * АдресПрограммногоИнтерфейса - Строка - выходной параметр.
//     * АдресРегистрации - Строка - выходной параметр.
//     * АдресВосстановления - Строка - выходной параметр.
//
// Возвращаемое значение:
//   Булево - Истина - в случае если поддерживает миграцию.
//
Функция СервисПоддерживаетМиграцию(ИмяСервера, АдресПрограммногоИнтерфейса, АдресРегистрации, АдресВосстановления, РегистрацияРазрешена) Экспорт
	
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(, Новый СертификатыУдостоверяющихЦентровОС);
	Соединение = Новый HTTPСоединение(ИмяСервера, , , , Новый ИнтернетПрокси, 30, ЗащищенноеСоединение);
	
	Запрос = Новый HTTPЗапрос("/info/hs/migration/info");
	
	Попытка
		Ответ = Соединение.ВызватьHTTPМетод("GET", Запрос);
	Исключение
		Шаблон = НСтр("ru = 'Сервис временно недоступен или не поддерживает миграцию,
                       |описание ошибки:
                       |%1'");
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрШаблон(Шаблон, КраткоеПредставлениеОшибки(ИнформацияОбОшибке())));
		Возврат Ложь;
	КонецПопытки;
	
	Если Ответ.КодСостояния <> 200 Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Сервис не поддерживает миграцию'"));
		Возврат Ложь;
	КонецЕсли;
	
	Попытка
		
		ПараметрыFresh = JSONВОбъект(Ответ.ПолучитьТелоКакСтроку());
		
		Если ПараметрыFresh.enabled <> Истина Тогда
			ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Сервис не поддерживает миграцию'"));
			Возврат Ложь;
		КонецЕсли;
		
		АдресПрограммногоИнтерфейса = ПараметрыFresh.url_api;
		
	Исключение
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(НСтр("ru = 'Сервис не поддерживает миграцию'"));
		Возврат Ложь;
	КонецПопытки;
	
	АдресРегистрации = "";
	ПараметрыFresh.Свойство("url_register", АдресРегистрации);
	
	АдресВосстановления = "";
	ПараметрыFresh.Свойство("url_recover", АдресВосстановления);
	
	РегистрацияРазрешена = Ложь;
	ПараметрыFresh.Свойство("register_available", РегистрацияРазрешена);
	
	Возврат Истина;
	
КонецФункции

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////