;********************************
;*
;* 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