lweb/inc/lweb_helper.pbi

;********************************
;*
;* lweb_helper.pbi
;*

Procedure.s mimetype(file.s)
  Select 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 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
Splittet source up to some includes. Every Include should now have some procedure who are standalone usable. lweb_http Has a lot of changes todo (Full HTTP 1.1 Compliance) lweb_file_cache, is realy buggy. A lot of todo's lweb_IP is Only IsIPStringValid in lweb_helper, there is only some help procedures. To Do: lweb_http_post (Everything Post Specific) lweb_http_get (Everything Get Specific) lweb_http_put (Complete todo nothing done until now) lweb_server_http (Specific http only Server) lweb_server_https (Specific https only Server) lweb_server (Common Server Things) Maybe everything more generic to use standalone... 2020-12-01 15:17:48 +01:00			`;********************************`
			`;*`
			`;* lweb_helper.pbi`
			`;*`

			`Procedure.s mimetype(file.s)`
			`Select file`
Add other Types and change default 2022-02-17 13:21:13 +01:00			`Case "pdf"`
			`ProcedureReturn "application/pdf"`
			`Case "zip"`
			`ProcedureReturn "application/zip"`
Add gz MIME Type 2022-02-17 15:30:17 +01:00			`Case "gz"`
			`ProcedureReturn "application/gzip"`
Add other Types and change default 2022-02-17 13:21:13 +01:00			`Case "doc"`
			`ProcedureReturn "application/msword"`
			`Case "xls"`
			`ProcedureReturn "application/vnd.ms-excel"`
			`Case "ppt"`
			`ProcedureReturn "application/vnd.ms-powerpoint"`
Splittet source up to some includes. Every Include should now have some procedure who are standalone usable. lweb_http Has a lot of changes todo (Full HTTP 1.1 Compliance) lweb_file_cache, is realy buggy. A lot of todo's lweb_IP is Only IsIPStringValid in lweb_helper, there is only some help procedures. To Do: lweb_http_post (Everything Post Specific) lweb_http_get (Everything Get Specific) lweb_http_put (Complete todo nothing done until now) lweb_server_http (Specific http only Server) lweb_server_https (Specific https only Server) lweb_server (Common Server Things) Maybe everything more generic to use standalone... 2020-12-01 15:17:48 +01:00			`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"`
Add other Types and change default 2022-02-17 13:21:13 +01:00			`Case "php"`
			`ProcedureReturn "text/html"`
Splittet source up to some includes. Every Include should now have some procedure who are standalone usable. lweb_http Has a lot of changes todo (Full HTTP 1.1 Compliance) lweb_file_cache, is realy buggy. A lot of todo's lweb_IP is Only IsIPStringValid in lweb_helper, there is only some help procedures. To Do: lweb_http_post (Everything Post Specific) lweb_http_get (Everything Get Specific) lweb_http_put (Complete todo nothing done until now) lweb_server_http (Specific http only Server) lweb_server_https (Specific https only Server) lweb_server (Common Server Things) Maybe everything more generic to use standalone... 2020-12-01 15:17:48 +01:00			`Case "css"`
			`ProcedureReturn "text/css"`
			`Case "js"`
			`ProcedureReturn "text/javascript"`
			`Default`
Add other Types and change default 2022-02-17 13:21:13 +01:00			`ProcedureReturn "application/octet-stream"`
Splittet source up to some includes. Every Include should now have some procedure who are standalone usable. lweb_http Has a lot of changes todo (Full HTTP 1.1 Compliance) lweb_file_cache, is realy buggy. A lot of todo's lweb_IP is Only IsIPStringValid in lweb_helper, there is only some help procedures. To Do: lweb_http_post (Everything Post Specific) lweb_http_get (Everything Get Specific) lweb_http_put (Complete todo nothing done until now) lweb_server_http (Specific http only Server) lweb_server_https (Specific https only Server) lweb_server (Common Server Things) Maybe everything more generic to use standalone... 2020-12-01 15:17:48 +01:00			`EndSelect`
			`EndProcedure`


			`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`