Зарегистрироваться (БСП)

Зарегистрироваться. Регистрирует в сервисе.

// Регистрирует в сервисе.
//
// Параметры:
//   ИмяСервера - Строка.
//   ЭлектроннаяПочта - Строка.
//   Наименование - Строка.
//   Телефон - Строка.
//
// Возвращаемое значение:
//   Булево
//
Функция Зарегистрироваться(ИмяСервера, Наименование, Логин, ЭлектроннаяПочта, Пароль, Телефон) Экспорт
	
	ПараметрыЗапроса = Новый Структура;
	ПараметрыЗапроса.Вставить("name", Наименование);
	ПараметрыЗапроса.Вставить("login", Логин);
	ПараметрыЗапроса.Вставить("email", ЭлектроннаяПочта);
	ПараметрыЗапроса.Вставить("password", Пароль);
	ПараметрыЗапроса.Вставить("phone", Телефон);
	
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(, Новый СертификатыУдостоверяющихЦентровОС);
	Соединение = Новый HTTPСоединение(ИмяСервера, , , , Новый ИнтернетПрокси, 30, ЗащищенноеСоединение);
	
	Запрос = Новый HTTPЗапрос("/info/hs/migration/register");
	Запрос.УстановитьТелоИзСтроки(ОбъектВJSON(ПараметрыЗапроса));
	
	Попытка
		Ответ = Соединение.ВызватьHTTPМетод("POST", Запрос);
	Исключение
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
		Возврат Ложь;
	КонецПопытки;
	
	Если Ответ.КодСостояния <> 200 Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрШаблон(НСтр("ru = 'Не удалось выполнить запрос, код ответа: %1'"), Ответ.КодСостояния));
		Возврат Ложь;
	КонецЕсли;
	
	Результат = JSONВОбъект(Ответ.ПолучитьТелоКакСтроку());
	
	Если Результат.error Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Результат.description);
		Возврат Ложь;
	КонецЕсли;
	
	Возврат Истина;
	
КонецФункции

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

// Регистрирует в сервисе.
//
// Параметры:
//   ИмяСервера - Строка.
//   ЭлектроннаяПочта - Строка.
//   Наименование - Строка.
//   Телефон - Строка.
//
// Возвращаемое значение:
//   Булево
//
Функция Зарегистрироваться(ИмяСервера, Наименование, Логин, ЭлектроннаяПочта, Пароль, Телефон) Экспорт
	
	ПараметрыЗапроса = Новый Структура;
	ПараметрыЗапроса.Вставить("name", Наименование);
	ПараметрыЗапроса.Вставить("login", Логин);
	ПараметрыЗапроса.Вставить("email", ЭлектроннаяПочта);
	ПараметрыЗапроса.Вставить("password", Пароль);
	ПараметрыЗапроса.Вставить("phone", Телефон);
	
	ЗащищенноеСоединение = Новый ЗащищенноеСоединениеOpenSSL(, Новый СертификатыУдостоверяющихЦентровОС);
	Соединение = Новый HTTPСоединение(ИмяСервера, , , , Новый ИнтернетПрокси, 30, ЗащищенноеСоединение);
	
	Запрос = Новый HTTPЗапрос("/info/hs/migration/register");
	Запрос.УстановитьТелоИзСтроки(ОбъектВJSON(ПараметрыЗапроса));
	
	Попытка
		Ответ = Соединение.ВызватьHTTPМетод("POST", Запрос);
	Исключение
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));
		Возврат Ложь;
	КонецПопытки;
	
	Если Ответ.КодСостояния <> 200 Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрШаблон(НСтр("ru = 'Не удалось выполнить запрос, код ответа: %1'"), Ответ.КодСостояния));
		Возврат Ложь;
	КонецЕсли;
	
	Результат = JSONВОбъект(Ответ.ПолучитьТелоКакСтроку());
	
	Если Результат.error Тогда
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Результат.description);
		Возврат Ложь;
	КонецЕсли;
	
	Возврат Истина;
	
КонецФункции

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