Реализация продвинутой обработки запросов HTTP сервиса

Функция ШаблонURLОбщийОбщийОбработчик(Запрос)
	
	Возврат ph_srv_ОбработчикHTTPСервиса.ОбработатьHTTPЗапрос("MangoOfficeApi", Запрос);
	
КонецФункции

Функция ОбработатьHTTPЗапрос(ИмяAPI, Запрос) Экспорт
	
	Отказ = Ложь;
	
	СтруктураОтвет = ПолучитьСтруктураОтветПоУмолчанию();
	
	СтруктураМаршрут = ПолучитьМаршрутИПараметрыАдреса(ИмяAPI, Запрос);
	
	Если ПустаяСтрока(СтруктураМаршрут.Маршрут) Тогда
		
		СтруктураОтвет.Ошибки.Вставить("message", "Адрес не найден");
		СтруктураОтвет.КодСостояния = 404;
		
		Возврат СформироватьОтвет(Запрос, СтруктураОтвет);
		
	КонецЕсли;
	
	Попытка
		ВыполнитьМаршрут(ИмяAPI, СтруктураМаршрут.Маршрут, СтруктураМаршрут.ПараметрыАдреса, СтруктураОтвет, Запрос, Отказ);	
	Исключение
		СтруктураОтвет.Ошибки.Вставить("message", "Внутренняя ошибка выполнения");
	    СтруктураОтвет.КодСостояния = 500;
		ЗаписатьЗапросВЖурналРегистрации("ОшибкаВыполнения", ОписаниеОшибки(), УровеньЖурналаРегистрации.Ошибка);
	КонецПопытки;
	
	Если Не Отказ Тогда
		СтруктураОтвет.КодСостояния = 200;	
	КонецЕсли;
	
	Возврат СформироватьОтвет(Запрос, СтруктураОтвет);
	
КонецФункции

Функция ПолучитьСтруктураОтветПоУмолчанию() Экспорт
	
	СтруктураОтвет = Новый Структура;
	
	СтруктураОтвет.Вставить("КодСостояния", 400);
	СтруктураОтвет.Вставить("Ошибки", Новый Соответствие);
	СтруктураОтвет.Вставить("Данные", Новый Соответствие);
	
	Возврат СтруктураОтвет;
		
КонецФункции

Функция СформироватьОтвет(Запрос, СтруктураОтвет)
	
	Если СтруктураОтвет.Ошибки.Количество() > 0 Тогда
		
		Если СтруктураОтвет.КодСостояния = 200 Тогда
			СтруктураОтвет.КодСостояния = 400;
		КонецЕсли;
		
		СтрокаОтвет = В_JSON(СтруктураОтвет.Ошибки);
		
	Иначе
		
		СтрокаОтвет = В_JSON(СтруктураОтвет.Данные);
		
	КонецЕсли;
	
	Ответ = Новый HTTPСервисОтвет(СтруктураОтвет.КодСостояния);
	Ответ.Заголовки.Вставить("Content-type", "application/json");
	Ответ.УстановитьТелоИзСтроки(СтрокаОтвет);
	
	Возврат Ответ;
	
КонецФункции

Функция ПолучитьМаршрутИПараметрыАдреса(ИмяAPI, Запрос)
	
	СтруктураОтвет = Новый Структура;
	СтруктураОтвет.Вставить("Маршрут", "");
	СтруктураОтвет.Вставить("ПараметрыАдреса", Новый Соответствие);
	
	НастройкиПараметровАдреса = ПолучитьНастройкиПараметровАдреса(ИмяAPI);
	
	Для Каждого СтрТ Из ПолучитьТаблицуМаршрутов(ИмяAPI) Цикл
		
		Если Запрос.HTTPМетод = СтрТ.Метод И ПроверитьСоответствиеПолучитьПараметрыСтроки(Запрос.ОтносительныйURL, СтрТ.Шаблон, СтруктураОтвет.ПараметрыАдреса, НастройкиПараметровАдреса) Тогда
			СтруктураОтвет.Маршрут = СтрТ.ИмяМаршрута;
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат СтруктураОтвет; 
	
КонецФункции

//--

Функция ПроверитьСоответствиеПолучитьПараметрыСтроки(Адрес, Шаблон, ПараметрыАдреса, НастройкиПараметровАдреса)
	
	АдресСоответвтвуетШаблону = Ложь;
	
	МассивПараметровШаблона = Новый Массив;
	
	Паттерн = ПолучитьПаттернШаблона(Шаблон, НастройкиПараметровАдреса, МассивПараметровШаблона);
	
	МассивПараметровАдреса = Новый Массив;
	
	Если ph_srv_regexp.ПроверитьПолучитьПодстроки(Адрес, Паттерн, МассивПараметровАдреса) Тогда
		
		АдресСоответвтвуетШаблону = Истина;
		
		Для к = 0 По МассивПараметровШаблона.ВГраница() Цикл
			ПараметрыАдреса.Вставить(МассивПараметровШаблона[к], МассивПараметровАдреса[к]); 
		КонецЦикла;
	КонецЕсли; 
	
	Возврат АдресСоответвтвуетШаблону;
	
КонецФункции

Функция ПолучитьПаттернШаблона(Шаблон, СтруктураНастроекПаттерна, МассивПараметровШаблона)
	
	Паттерн = Шаблон;
	
	ПараметрыШаблона = Новый Массив;
	
	Если ph_srv_regexp.ПроверитьПолучитьПодстроки(Шаблон, "\{([a-z-_]+)\}", ПараметрыШаблона) Тогда
		
		Для каждого СтрП Из ПараметрыШаблона Цикл
			
			ЗначениеПаттерна = "";
			Если НЕ СтруктураНастроекПаттерна.Свойство(СтрП, ЗначениеПаттерна) Тогда
				ЗначениеПаттерна = "[a-z]+";
			КонецЕсли;
			
			Паттерн = СтрЗаменить(Паттерн, "{" + СтрП +  "}" , "(" + ЗначениеПаттерна + ")");				
			
			МассивПараметровШаблона.Добавить(СтрП);
			
		КонецЦикла;	
		
	КонецЕсли;
	
	Паттерн = Паттерн + "/?";
	
	Возврат Паттерн;
	
КонецФункции

Функция ПолучитьНастройкиПараметровАдреса(ИмяAPI)
	
	СтруктураНастроекПаттерна = Новый Структура;
	СтруктураНастроекПаттерна.Вставить("guid", "[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}");

	Если ИмяAPI = "MangoOfficeApi" Тогда
		ph_srv_ОбработчикHTTPСервиса_MangoOfficeApi.ДобавитьНастройкиПаттерна(СтруктураНастроекПаттерна);
	КонецЕсли;
	
	Возврат СтруктураНастроекПаттерна;
		
КонецФункции

Функция ПолучитьТаблицуМаршрутов(ИмяAPI)
	
	ТаблицаМаршрутов = Новый ТаблицаЗначений;
	ТаблицаМаршрутов.Колонки.Добавить("Метод"); 
	ТаблицаМаршрутов.Колонки.Добавить("Шаблон");
	ТаблицаМаршрутов.Колонки.Добавить("ИмяМаршрута");
	
	ДобавитьМаршрутВТаблицу(ТаблицаМаршрутов, "GET", "/ping", "ping");	
	
	Если ИмяAPI = "MangoOfficeApi" Тогда
		ph_srv_ОбработчикHTTPСервиса_MangoOfficeApi.ДобавитьМаршруты(ТаблицаМаршрутов);	
	КонецЕсли;
	
	Возврат ТаблицаМаршрутов;
	
КонецФункции

Процедура ДобавитьМаршрутВТаблицу(ТаблицаМаршрутов, Метод, Шаблон, ИмяМаршрута) Экспорт
	
	СтрМ = ТаблицаМаршрутов.Добавить();
	СтрМ.Метод = Метод; 
	СтрМ.Шаблон = Шаблон;
	СтрМ.ИмяМаршрута = ИмяМаршрута;
	
КонецПроцедуры

Функция ПроверитьПолучитьПодстроки(СтрокаДанных, Паттерн, МассивПодсток, ИгнорироватьРегистр = Истина, ПоискВсехВхождений = Истина, МногострочныйРежим = Ложь, Отказ = Ложь) Экспорт
	
	RegExp = Новый COMОбъект("VBScript.RegExp");
	
	RegExp.IgnoreCase = ИгнорироватьРегистр;
	RegExp.Global = ПоискВсехВхождений;
	RegExp.MultiLine = МногострочныйРежим;
	
	Попытка
		RegExp.Pattern = Паттерн;
		Matches=RegExp.Execute(СтрокаДанных);	
		Отказ = Истина;
	Исключение
		Возврат Ложь;
	КонецПопытки;
	
	ЧислоВхождений=Matches.Count();
	
	Если ЧислоВхождений = 0 Тогда
		Возврат Ложь;
	КонецЕсли;
	
	Для к = 0 По ЧислоВхождений-1 Цикл
		
		Match = Matches.Item(к);
		SubMatches = Match.SubMatches;
		
		Если SubMatches.Count() > 0 Тогда
			МассивПодсток.Добавить(SubMatches.Item(0));	
		КонецЕсли; 
		
	КонецЦикла;
	
	Возврат Истина;
	
КонецФункции

Процедура ВыполнитьМаршрут(ИмяAPI, Маршрут, ПараметрыАдреса, СтруктураОтвет, Запрос, Отказ)
	
	Если Маршрут = "ping" Тогда
		СтруктураОтвет.Данные.Вставить("message", "ОК");
		Возврат;
	КонецЕсли;
	
	Если ИмяAPI = "MangoOfficeApi" Тогда
		ph_srv_ОбработчикHTTPСервиса_MangoOfficeApi.ВыполнитьМаршрут(Маршрут, ПараметрыАдреса, СтруктураОтвет, Запрос, Отказ);
	КонецЕсли;
	
КонецПроцедуры