From ce41a4cd2347fefbd8acc15c11dec55c3d7bbbd8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ren=C3=A9=20Linder?= <rene.linder@lihaso.ch>
Date: Tue, 18 Jul 2023 08:58:51 +0200
Subject: [PATCH] Remove post decoder from main and create new module

---
 inc/lweb_http_post_decoder.pbi | 68 ++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100644 inc/lweb_http_post_decoder.pbi

diff --git a/inc/lweb_http_post_decoder.pbi b/inc/lweb_http_post_decoder.pbi
new file mode 100644
index 0000000..944bd71
--- /dev/null
+++ b/inc/lweb_http_post_decoder.pbi
@@ -0,0 +1,68 @@
+;********************************
+;*
+;* lweb_http_post_decoder.pbi
+;*
+;* LiHaSo Webserver HTTP POST Data decoder
+;*
+;* Currently only x_www_form_urlencode implemented.
+;*
+
+DeclareModule lhs_web_post
+  Declare.s mem_x_www_form_urlencoded(ContentLength.i, MemorSize.i, Memory.i)
+  Declare.s mem_multipart_form_data(ContentLength.i, MemorySize.i, Memory.i)
+  #error_string = "error"
+EndDeclareModule
+
+Module lhs_web_post
+  Procedure.s mem_x_www_form_urlencoded(ContentLength.i, MemorSize.i, Memory.i)
+    Define.s JSONString, Working, ContentString
+    Define CountParams, Count, JSON
+    Protected NewMap Posts.s()
+    
+    If ContentLength > 0
+      OffsetMemory = Memory + (MemorSize - ContentLength)
+      ContentString = PeekS(OffsetMemory, ContentLength, #PB_UTF8)
+      ;Zerlegen &
+      ;Mapname = Content
+      If Len(ContentString) > 0 
+        CountParams = CountString(ContentString,"&")
+        If CountParams = 0
+          If CountString(ContentString, "=")
+            Posts(StringField(ContentString, 1, "=")) = StringField(ContentString,2, "=")
+          Else
+            ProcedureReturn ""
+          EndIf
+        ElseIf CountParams > 0
+          Count = 0
+          Repeat 
+            Posts(StringField(StringField(ContentString, Count + 1, "&"),1,"=")) = StringField(StringField(ContentString, Count + 1, "&"),2,"=")
+            ;ldl::Logging("Worked Count:"+Str(Count)+" of: "+Str(CountParams)+":"+StringField(StringField(ContentString, Count + 1, "&"),1,"=")+" = "+StringField(StringField(ContentString, Count + 1, "&"),2,"=")
+            Count + 1  
+          Until Count > CountParams
+        Else
+          ProcedureReturn ""
+        EndIf
+        JSON = CreateJSON(#PB_Any)
+        If JSON 
+          InsertJSONMap(JSONValue(JSON), Posts())
+          JSONString = ComposeJSON(JSON)
+          FreeMap(Posts())
+          FreeJSON(JSON)
+          ProcedureReturn JSONString.s
+        Else
+          ProcedureReturn #error_string
+        EndIf  
+      Else
+        ProcedureReturn ""
+      EndIf
+    Else
+      ProcedureReturn ""
+    EndIf
+    
+  EndProcedure
+  
+  Procedure.s mem_multipart_form_data(ContentLength.i, MemorySize.i, Memory.i)
+    
+    ProcedureReturn "NA"
+  EndProcedure
+EndModule