From bbeceee2b8a81b68f8c100c8b019f23c43b7ec10 Mon Sep 17 00:00:00 2001
From: Ground0 <rene.linder@lihaso.ch>
Date: Mon, 30 Sep 2024 17:07:24 +0200
Subject: [PATCH] Session Handling initial

---
 inc/lweb_header_privat.pbi |  5 +++++
 lweb.pbi                   |  7 +++++++
 lweb.pbp                   | 18 +++++++++---------
 3 files changed, 21 insertions(+), 9 deletions(-)

diff --git a/inc/lweb_header_privat.pbi b/inc/lweb_header_privat.pbi
index c1194ec..3025546 100644
--- a/inc/lweb_header_privat.pbi
+++ b/inc/lweb_header_privat.pbi
@@ -107,6 +107,10 @@
     perm.i
   EndStructure
   
+  Structure session
+    Cookie.s
+  EndStructure
+  
   Structure host
     description.s
     http.server_http
@@ -117,6 +121,7 @@
     Map dynamichandler.dynamichandler()
     Map usedlibs.usedlibs()
     Map headerfunctions.headerfunctions()
+    Map sessions.session()
     defaultfile.s
     basedir.s
     Map status.http_status_codes()     ;Individual Error Messages and Headers
diff --git a/lweb.pbi b/lweb.pbi
index ecf0682..95a1a20 100644
--- a/lweb.pbi
+++ b/lweb.pbi
@@ -702,6 +702,13 @@ Module lhs_web
               
               ;TODO: Header Handler
               ; ex. Cookie: #http_head_cookie
+              If Header(#http_head_cookie) <> ""
+                ldl::Logging("Session:"+Header(#http_head_cookie))
+                
+              Else
+                Header(#http_head_cookie) = CreateUUID()
+                configuration\hosts(m_clients(Str(thread_cli_id))\host_id)\sessions(Header(#http_head_cookie))\Cookie = Header(#http_head_cookie)
+              EndIf
               
               Select Header(#http_head_method)
                 Case #http_method_get
diff --git a/lweb.pbp b/lweb.pbp
index d0feeec..2f8ea7e 100644
--- a/lweb.pbp
+++ b/lweb.pbp
@@ -8,7 +8,7 @@
   <section name="data">
     <explorer view="../../../bin/purebasic/examples/" pattern="0"/>
     <log show="1"/>
-    <lastopen date="2024-09-23 05:54" user="renlin" host="renlin-home"/>
+    <lastopen date="2024-09-30 17:05" user="renlin" host="renlin-office"/>
   </section>
   <section name="files">
     <file name="build_tools/src/default_host_xml_export.pb">
@@ -29,12 +29,16 @@
     </file>
     <file name="inc/lweb_header_privat.pbi">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="5" panelstate="+-"/>
-      <fingerprint md5="7881b6857cdf512fa97b58e5a1f030c7"/>
+      <fingerprint md5="2803c98024b9588db6f85d77f30023e1"/>
     </file>
     <file name="inc/lweb_helper.pbi">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="6" panelstate="+-"/>
       <fingerprint md5="e6b5d486bd08b6de7f34a94316df2543"/>
     </file>
+    <file name="lhs_lib/NET/lhs_web_helper.pbi">
+      <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="7" panelstate="+--"/>
+      <fingerprint md5="52ed1675b88a463b7ada8cf2003430e1"/>
+    </file>
     <file name="inc/lweb_helper_header.pbi">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="8" panelstate="+-"/>
       <fingerprint md5="6ea3e5baa62f8e66063e3b45e17d7e91"/>
@@ -87,10 +91,6 @@
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="20" panelstate="+--"/>
       <fingerprint md5="c586d25a1493f437c7461374a891a715"/>
     </file>
-    <file name="lhs_lib/NET/lhs_web_helper.pbi">
-      <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="7" panelstate="+--"/>
-      <fingerprint md5="52ed1675b88a463b7ada8cf2003430e1"/>
-    </file>
     <file name="lhs_lib/SYS/lhs_log_ext.pbi">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="21" panelstate="+--"/>
       <fingerprint md5="f37e027dbab8be85535563b3287f7fff"/>
@@ -105,7 +105,7 @@
     </file>
     <file name="lweb.pbi">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="24" panelstate="+"/>
-      <fingerprint md5="77f20440d446be67de4e5ebd91e513b6"/>
+      <fingerprint md5="c1c977e77f83f79bc4e6e2b64b0a6b77"/>
     </file>
     <file name="lweb_header.pbi">
       <config load="0" scan="1" panel="1" warn="1" lastopen="1" sortindex="25" panelstate="+"/>
@@ -145,7 +145,7 @@
     <target name="lhttpd" enabled="1" default="1">
       <inputfile value="lhttpd.pb"/>
       <outputfile value="lhttpd"/>
-      <compiler version="PureBasic 6.12 LTS - C Backend (Linux - x64)"/>
+      <compiler version="PureBasic 6.12 LTS (Linux - x64)"/>
       <executable value="lhttpd"/>
       <options thread="1" debug="1" optimizer="0"/>
       <format exe="console" cpu="0"/>
@@ -154,7 +154,7 @@
     <target name="build_tools/status_xml_export" enabled="1" default="0">
       <inputfile value="build_tools/src/status_xml_export.pb"/>
       <outputfile value="build_tools/status_xml_export"/>
-      <compiler version="PureBasic 6.00 Beta 4 - C Backend (Linux - x64)"/>
+      <compiler version="PureBasic 6.12 LTS (Linux - x64)"/>
       <executable value="build_tools/status_xml_export"/>
       <options optimizer="0"/>
       <format exe="console" cpu="0"/>