Use the lhs_lib helper library now
This commit is contained in:
parent
c949699f9c
commit
ccbfa29588
1 changed files with 9 additions and 133 deletions
|
|
@ -1,137 +1,13 @@
|
||||||
DeclareModule lhs_web_helper
|
;************************
|
||||||
Declare.s MapToJSONString(Map ConvertMap.s())
|
;* server_example_function_library.pb
|
||||||
Declare.s Work_Header_to_JSONMap(String.s)
|
;*
|
||||||
Declare.s mimetype(file.s)
|
;* Test library for the lweb server.
|
||||||
#cha_R_ResponseType = "ResponseType" ;Element ResponseType :Mimetype
|
;*
|
||||||
#cha_R_ResponseContentType = "ResponseContentType" ;Element ResponseContentType :#response_string , #response_Memory
|
;* Created and develobed by Linder Hard- und Software
|
||||||
#cha_R_MemoryAdress = "MemoryAdress" ;Element MemoryAdress :Converted to String
|
;*
|
||||||
#cha_R_MemorySize = "MemorySize" ;Element MemorySize :Converted to String
|
;*
|
||||||
#cha_R_StringBase64 = "StringBase64" ;Element StringBase64 :Base64 Encoded String
|
|
||||||
#cha_R_http_head_status = "HeaderStatus" ;200 OK 300 Error 500 Server Error usw.
|
|
||||||
#response_string = "response_string"
|
|
||||||
#response_Memory = "response_memory"
|
|
||||||
#error_string = "error"
|
|
||||||
#http_head_method = "method:"
|
|
||||||
#http_head_request = "request:"
|
|
||||||
#http_head_protocol = "protocol:"
|
|
||||||
#http_head_query = "query:"
|
|
||||||
#http_head_status = "status:"
|
|
||||||
#http_head_date = "date:"
|
|
||||||
#http_head_server = "server:"
|
|
||||||
#http_head_content_length = "content-length:"
|
|
||||||
#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_head_redirect = "location:"
|
|
||||||
EndDeclareModule
|
|
||||||
|
|
||||||
Module lhs_web_helper
|
XIncludeFile "lhs_lib/NET/lhs_web_helper.pbi"
|
||||||
|
|
||||||
Procedure.s MapToJSONString(Map ConvertMap.s())
|
|
||||||
Protected MyJSON
|
|
||||||
Protected.s Response
|
|
||||||
MyJSON = CreateJSON(#PB_Any)
|
|
||||||
If MyJSON
|
|
||||||
InsertJSONMap(JSONValue(MyJSON), ConvertMap())
|
|
||||||
Response = ComposeJSON(MyJSON)
|
|
||||||
FreeJSON(MyJSON)
|
|
||||||
ProcedureReturn Response
|
|
||||||
EndIf
|
|
||||||
ProcedureReturn #error_string
|
|
||||||
EndProcedure
|
|
||||||
|
|
||||||
Procedure.s mimetype(file.s)
|
|
||||||
Select LCase(file)
|
|
||||||
Case "pdf"
|
|
||||||
ProcedureReturn "application/pdf"
|
|
||||||
Case "zip"
|
|
||||||
ProcedureReturn "application/zip"
|
|
||||||
Case "gz"
|
|
||||||
ProcedureReturn "application/gzip"
|
|
||||||
Case "doc"
|
|
||||||
ProcedureReturn "application/msword"
|
|
||||||
Case "xls"
|
|
||||||
ProcedureReturn "application/vnd.ms-excel"
|
|
||||||
Case "ppt"
|
|
||||||
ProcedureReturn "application/vnd.ms-powerpoint"
|
|
||||||
Case "png"
|
|
||||||
ProcedureReturn "image/png"
|
|
||||||
Case "gif"
|
|
||||||
ProcedureReturn "image/gif"
|
|
||||||
Case "jpg"
|
|
||||||
ProcedureReturn "image/jpeg"
|
|
||||||
Case "jpeg"
|
|
||||||
ProcedureReturn "image/jpeg"
|
|
||||||
Case "txt"
|
|
||||||
ProcedureReturn "text/plain"
|
|
||||||
Case "html"
|
|
||||||
ProcedureReturn "text/html"
|
|
||||||
Case "htm"
|
|
||||||
ProcedureReturn "text/html"
|
|
||||||
Case "mss"
|
|
||||||
ProcedureReturn "text/html"
|
|
||||||
Case "php"
|
|
||||||
ProcedureReturn "text/html"
|
|
||||||
Case "css"
|
|
||||||
ProcedureReturn "text/css"
|
|
||||||
Case "js"
|
|
||||||
ProcedureReturn "text/javascript"
|
|
||||||
Default
|
|
||||||
ProcedureReturn "application/octet-stream"
|
|
||||||
EndSelect
|
|
||||||
EndProcedure
|
|
||||||
|
|
||||||
Procedure.s Work_Header_to_JSONMap(String.s)
|
|
||||||
Protected NewMap Header.s()
|
|
||||||
Define.s JSONString, Working, Working_Line
|
|
||||||
Define CountLines, Lines, JSON
|
|
||||||
If CountString(String,#CRLF$+#CRLF$)
|
|
||||||
Working = StringField(String,1,#CRLF$+#CRLF$)
|
|
||||||
Working = Working + #CRLF$
|
|
||||||
Else
|
|
||||||
ProcedureReturn #error_string
|
|
||||||
EndIf
|
|
||||||
Lines = CountString(Working,#CRLF$)
|
|
||||||
If Lines
|
|
||||||
Working_Line = StringField(Working,1,#CRLF$)
|
|
||||||
If CountString(Working_Line," ")
|
|
||||||
Header(#http_head_method) = UCase(StringField(Working_Line,1," "))
|
|
||||||
Header(#http_head_request) = StringField(Working_Line,2," ")
|
|
||||||
Header(#http_head_protocol) = UCase(StringField(Working_Line,3," "))
|
|
||||||
If CountString(Header(#http_head_request), "?")
|
|
||||||
Header(#http_head_query) = StringField(Header(#http_head_request),2,"?")
|
|
||||||
Header(#http_head_request) = StringField(Header(#http_head_request),1,"?")
|
|
||||||
Else
|
|
||||||
Header(#http_head_query) = ""
|
|
||||||
EndIf
|
|
||||||
For CountLines = 2 To Lines
|
|
||||||
Working_Line = StringField(Working,CountLines,#CRLF$)
|
|
||||||
Header(LCase(Trim(StringField(Working_Line,1,":")))+":") = Trim(Mid(Working_Line, FindString(Working_Line, ":") + 1))
|
|
||||||
Next
|
|
||||||
Else
|
|
||||||
FreeMap(Header())
|
|
||||||
ProcedureReturn #error_string
|
|
||||||
EndIf
|
|
||||||
Else
|
|
||||||
FreeMap(Header())
|
|
||||||
ProcedureReturn #error_string
|
|
||||||
EndIf
|
|
||||||
JSON = CreateJSON(#PB_Any)
|
|
||||||
|
|
||||||
If JSON
|
|
||||||
InsertJSONMap(JSONValue(JSON), Header())
|
|
||||||
JSONString = ComposeJSON(JSON)
|
|
||||||
FreeMap(Header())
|
|
||||||
FreeJSON(JSON)
|
|
||||||
ProcedureReturn JSONString.s
|
|
||||||
Else
|
|
||||||
ProcedureReturn #error_string
|
|
||||||
EndIf
|
|
||||||
|
|
||||||
EndProcedure
|
|
||||||
EndModule
|
|
||||||
|
|
||||||
Global.s ZumSenden
|
Global.s ZumSenden
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue