Учитывать max-age для cookies #24, Для cookie без пути прописывать зн…

…ачение по умолчанию #22

src/CommonModules/КоннекторHTTP/Ext/Module.bsl

@@ -17,7 +17,7 @@
 //
 // URL:    https://github.com/vbondarevsky/Connector
 // e-mail: [email protected]
-// Версия: 1.3.4
+// Версия: 1.3.5
 //
 // Требования: платформа 1С версии 8.3.10 и выше
 
@@ -925,6 +925,16 @@
 
 КонецФункции
 
+Процедура УдалитьCookieИзХранилища(ХранилищеCookies, Cookie)
+
+	Если ХранилищеCookies.Получить(Cookie.Домен) <> Неопределено
+		И ХранилищеCookies[Cookie.Домен].Получить(Cookie.Путь) <> Неопределено
+		И ХранилищеCookies[Cookie.Домен][Cookie.Путь].Получить(Cookie.Наименование) <> Неопределено Тогда
+		ХранилищеCookies[Cookie.Домен][Cookie.Путь].Удалить(Cookie.Наименование);
+	КонецЕсли;
+
+КонецПроцедуры
+
 Процедура ДобавитьCookieВХранилище(ХранилищеCookies, Cookie, Замещать = Ложь)
 
 	Если ХранилищеCookies.Получить(Cookie.Домен) = Неопределено Тогда
@@ -1390,12 +1400,18 @@
 
 Функция ИзвлечьCookies(Заголовки, URL)
 
+	ТекущееВремя = ТекущаяУниверсальнаяДата();
 	Cookies = Новый Соответствие;
 	Для Каждого ОчереднойЗаголовок Из Заголовки Цикл
 		Если НРег(ОчереднойЗаголовок.Ключ) = "set-cookie" Тогда
 			Для Каждого ЗаголовокCookie Из РазбитьНаОтдельныеЗаголовкиCookies(ОчереднойЗаголовок.Значение) Цикл
-				Cookie = РаспарситьCookie(ЗаголовокCookie, URL);
-				Если Cookie <> Неопределено Тогда
+				Cookie = РаспарситьCookie(ЗаголовокCookie, URL, ТекущееВремя);
+				Если Cookie = Неопределено Тогда
+					Продолжить;
+				КонецЕсли;
+				Если Cookie.СрокДействия <= ТекущееВремя Тогда
+					УдалитьCookieИзХранилища(Cookies, Cookie);
+				Иначе
 					ДобавитьCookieВХранилище(Cookies, Cookie);
 				КонецЕсли;
 			КонецЦикла;
@@ -1427,7 +1443,7 @@
 			ОтдельныйЗаголовок = ОтдельныйЗаголовок + ЗапчастиЗаголовков[Индекс];
 		КонецЕсли;
 	КонецЦикла;
-	Заголовки.Добавить(ОтдельныйЗаголовок);	
+	Заголовки.Добавить(ОтдельныйЗаголовок);
 
 	Возврат Заголовки;
 
@@ -1460,7 +1476,7 @@
 
 КонецФункции
 
-Функция РаспарситьCookie(Заголовок, URL)
+Функция РаспарситьCookie(Заголовок, URL, ТекущееВремя)
 
 	Cookie = Неопределено;
 	Индекс = 0;
@@ -1486,6 +1502,10 @@
 			Cookie.Путь = Значение;
 		ИначеЕсли Ключ = "secure" Тогда
 			Cookie.ТолькоБезопасноеСоединение = Истина;
+		ИначеЕсли Ключ = "max-age" Тогда
+			ОписаниеТипа = Новый ОписаниеТипов("Число");
+			Секунды = ОписаниеТипа.ПривестиЗначение(Значение);
+			Cookie.СрокДействия = ТекущееВремя + Секунды;
 		Иначе
 			Продолжить; // INFO: другие параметры пока игнорируются
 		КонецЕсли; 
@@ -1495,17 +1515,31 @@
 		Возврат Cookie;
 	КонецЕсли;
 
+	ДозаполнитьCookieНеявнымиЗначениями(Cookie, URL);
+
+	Возврат Cookie;
+
+КонецФункции
+
+Процедура ДозаполнитьCookieНеявнымиЗначениями(Cookie, URL)
+
 	СтруктураURL = КоннекторHTTP.РазобратьURL(URL);
 	Если Не ЗначениеЗаполнено(Cookie.Домен) Тогда
 		Cookie.Домен = СтруктураURL.Сервер;
 	КонецЕсли;
 	Если Не ЗначениеЗаполнено(Cookie.Порт) И ЗначениеЗаполнено(СтруктураURL.Порт) Тогда
 		Cookie.Порт = СтруктураURL.Порт;
 	КонецЕсли;
-
-	Возврат Cookie;
-
-КонецФункции
+	Если Не ЗначениеЗаполнено(Cookie.Путь) Тогда
+		ПозицияПоследнегоСлеша = СтрНайти(СтруктураURL.Путь, "/", НаправлениеПоиска.СКонца);
+		Если ПозицияПоследнегоСлеша <= 1 Тогда
+			Cookie.Путь = "/";
+		Иначе
+			Cookie.Путь = Лев(СтруктураURL.Путь, ПозицияПоследнегоСлеша - 1);
+		КонецЕсли;
+	КонецЕсли;
+
+КонецПроцедуры
 
 Функция ПолучитьЗначениеЗаголовка(Заголовок, ВсеЗаголовки, Ключ = Неопределено)