69 lines
2.2 KiB
Text
69 lines
2.2 KiB
Text
|
;********************************
|
||
|
;*
|
||
|
;* 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
|