Parse request cookies.

shabiel · Jun 16, 2012 · 1785b66 · 1785b66
1 parent 4aac547
commit 1785b66
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/r/request.m b/r/request.m
@@ -45,6 +45,10 @@
 	set:(fieldname="HOST")!(fieldname="CONNECTION") value=$$FUNC^%UCASE(value)
 
 	if fieldname="CONNECTION" set connection(fieldname)=value
+	else  if fieldname="COOKIE" do  if 1
+	.	for  do  quit:value=""
+	.	.	set request("headers",fieldname,$ztranslate($zpiece(value,"=")," "))=$zpiece($zextract(value,$zfind(value,"="),$zlength(value)),";")
+	.	.	set value=$select($zfind(value,";"):$zextract(value,$zfind(value,";"),$zlength(value)),1:"")
 	else  set request("headers",fieldname)=value
 
 	quit