Шаблон http-сервиса

#Область ОбработчикиСобытий

Функция ЛицензииДоступны(Запрос)
	
	Ответ = Новый HTTPСервисОтвет(200);
	ДобавитьЗаголовкиДанных(Ответ);
	Результат = Результат();
	Ответ.КодСостояния = Результат.КодСостояния;
	Ответ.УстановитьТелоИзСтроки(Результат.ТекстСостояния);
	Возврат Ответ;
	
КонецФункции

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

Процедура ДобавитьЗаголовкиДанных(Ответ) Экспорт
	
	Заголовки = Ответ.Заголовки;
	
	Заголовки.Вставить("Accept", "application/json");
	Заголовки.Вставить("Accept-Charset", "utf-8");
	Заголовки.Вставить("Content-Type", "application/json; charset=utf-8");	
	Заголовки.Вставить("Cache-Control", "no-cache");
	
КонецПроцедуры

Функция Результат()
	
	Попытка
		ТекстСостояния = НаличиеЛицензийТекст();
		КодСостояния = 200;
	Исключение
		ТекстСостояния = "";
		КодСостояния = 500;
	КонецПопытки;
	
	Возврат Новый Структура("ТекстСостояния, КодСостояния", ТекстСостояния, КодСостояния);
КонецФункции

Функция НаличиеЛицензийТекст()
	
	УстановитьПривилегированныйРежим(Истина);
	ЗакрытьПрограмму = Ложь;
    торо_СЛКСервер.ПроверитьЛицензииПередНачаломРаботыСистемы(ЗакрытьПрограмму);
    
	Структура = Новый Структура;
	Структура.Вставить("LicenseAvailable ", Формат(НЕ ЗакрытьПрограмму, "БЛ=false; БИ=true"));
	
	ЗаписьJSON = Новый ЗаписьJSON;
	ЗаписьJSON.УстановитьСтроку();
	ЗаписатьJSON(ЗаписьJSON, Структура);
	Текст =  ЗаписьJSON.Закрыть();
	
	Возврат Текст;
КонецФункции

#КонецОбласти

#Область ОбработчикиСобытий

Функция ЛицензииДоступны(Запрос)
	
	Ответ = Новый HTTPСервисОтвет(200);
	ДобавитьЗаголовкиДанных(Ответ);
	Результат = Результат();
	Ответ.КодСостояния = Результат.КодСостояния;
	Ответ.УстановитьТелоИзСтроки(Результат.ТекстСостояния);
	Возврат Ответ;
	
КонецФункции

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

Процедура ДобавитьЗаголовкиДанных(Ответ) Экспорт
	
	Заголовки = Ответ.Заголовки;
	
	Заголовки.Вставить("Accept", "application/json");
	Заголовки.Вставить("Accept-Charset", "utf-8");
	Заголовки.Вставить("Content-Type", "application/json; charset=utf-8");	
	Заголовки.Вставить("Cache-Control", "no-cache");
	
КонецПроцедуры

Функция Результат()
	
	Попытка
		ТекстСостояния = НаличиеЛицензийТекст();
		КодСостояния = 200;
	Исключение
		ТекстСостояния = "";
		КодСостояния = 500;
	КонецПопытки;
	
	Возврат Новый Структура("ТекстСостояния, КодСостояния", ТекстСостояния, КодСостояния);
КонецФункции

Функция НаличиеЛицензийТекст()
	
	УстановитьПривилегированныйРежим(Истина);
	ЗакрытьПрограмму = Ложь;
    торо_СЛКСервер.ПроверитьЛицензииПередНачаломРаботыСистемы(ЗакрытьПрограмму);
    
	Структура = Новый Структура;
	Структура.Вставить("LicenseAvailable ", Формат(НЕ ЗакрытьПрограмму, "БЛ=false; БИ=true"));
	
	ЗаписьJSON = Новый ЗаписьJSON;
	ЗаписьJSON.УстановитьСтроку();
	ЗаписатьJSON(ЗаписьJSON, Структура);
	Текст =  ЗаписьJSON.Закрыть();
	
	Возврат Текст;
КонецФункции

#КонецОбласти