diff --git a/lweb.pbi b/lweb.pbi index 14ec20b..7b08983 100644 --- a/lweb.pbi +++ b/lweb.pbi @@ -778,6 +778,9 @@ Module lhs_web Else Header(#http_head_status) = "200 OK" EndIf + If Response(#http_head_set_cookie) <> "" + Header(#http_head_set_cookie) = Response(#http_head_set_cookie) + EndIf Header(#http_head_content_length) = Str(thread_data_size) Header(#http_head_content_type) = thread_type diff --git a/lweb.pbp b/lweb.pbp index 7ab92e7..211b310 100644 --- a/lweb.pbp +++ b/lweb.pbp @@ -8,7 +8,7 @@
- +
@@ -53,11 +53,11 @@ - + - + @@ -65,7 +65,7 @@ - +
diff --git a/lweb_header.pbi b/lweb_header.pbi index 6983b55..eae1b8b 100644 --- a/lweb_header.pbi +++ b/lweb_header.pbi @@ -82,6 +82,8 @@ DeclareModule lhs_web #http_head_content_type = "content-type:" #http_head_connection = "connection:" #http_head_keep_alive = "keep-alive:" + #http_head_cookie = "cookie:" + #http_head_set_cookie = "set-cookie:" #http_content_type_application_x_www_form_urlencoded = "application/x-www-form-urlencoded" #http_content_type_multipart_form_data = "multipart/form-data" diff --git a/server_example.pb b/server_example.pb index 9e27391..c324dfc 100644 --- a/server_example.pb +++ b/server_example.pb @@ -44,10 +44,16 @@ Procedure.s Sample_Header(Map Header.s()) Define *Text Define.s Encoded, ZumSenden, TBD, Text NewMap Response.s() + If Header("cookie:") <> "" + Debug "A Cookie is set :" + Header("cookie:") + Else + Debug "No Cookie." + EndIf + TBD="

Header


"+#CRLF$ ResetMap(Header()) While NextMapElement(Header()) - TBD = TBD+"
"+MapKey(Header())+" : "+Header()+"

"+#CRLF$ + TBD = TBD+"
"+MapKey(Header())+" "+Header()+"

"+#CRLF$ Wend Text = "
Alle Client Headers
"+TBD+"" @@ -59,6 +65,10 @@ Procedure.s Sample_Header(Map Header.s()) Response(lhs_web::#cha_R_StringBase64) = Encoded Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html") Response(lhs_web::#cha_R_http_head_status) = "200 OK" + If Header("cookie:") = "" + Response(lhs_web::#http_head_set_cookie) = "session=test" + EndIf + ZumSenden = lhs_web::MapToJSONString(Response()) Debug "ZumSenden: " + ZumSenden ProcedureReturn ZumSenden