lweb/server_example.pb

;****************************
;*
;* Lihaso Web Server 
;*
;* HTTP/HTTPS example extended Server
;*
;* (c)2015 - 2021 by Linder Hard- und Software
;*
;*

EnableExplicit

;*
;* Includes:
;*

XIncludeFile "lhs_lib/SYS/lhs_log.pbi"        ;Currently for Debugging
XIncludeFile "lhs_lib/SYS/lhs_log_ext.pbi"    ;User for Access Log, Error Access Log, Error Log and maybe more.
XIncludeFile "lweb_header.pbi"
XIncludeFile "lweb.pbi"

;*
;* Variable declaration:
;*

Define counter, v_lweb_srv_stop
Define Accesslog.s, Errorlog.s, Cachelog.s

;*
;* Basic Debug Log initialization:
;*

lhs_log::App_Name = "http-s_server_example"
lhs_log::SetLogFile("http-s_server_example_debug.log")
lhs_log::SetMaxSize(32)
lhs_log::SetLogDateFormat("%yyyy.%mm.%dd %hh:%ii:%ss")
lhs_log::SetLogFileDateFormat("%yyyy_%mm_%dd_%hh_%ii_%ss")
lhs_log::Init()

;*
;* Enable extended Logging:
;* 
Accesslog = lhs_log_ext::Create("Accesslog")
Errorlog = lhs_log_ext::Create("Errorlog")
Cachelog = lhs_log_ext::Create("Cachelog")
lhs_log::Out("Errorlog UUID:"+Errorlog)
lhs_log::Out("Accesslog UUID:"+Accesslog)
lhs_log::Out("Cachelog UUID:"+Cachelog)
lhs_log_ext::SetLogFile(Accesslog, "http-s_access.log")
lhs_log_ext::SetLogFile(Errorlog, "http-s_error.log")
lhs_log_ext::SetLogFile(Cachelog, "http-s_cache.log")
lhs_log_ext::Init(Accesslog)
lhs_log_ext::Init(Errorlog)
lhs_log_ext::Init(Cachelog)
lhs_web::set_config(lhs_web::#conf_Access_logUUID, Accesslog)
lhs_web::set_config(lhs_web::#conf_Error_logUUID, ErrorLog)
lhs_web::set_config(lhs_web::#conf_Cache_logUUID, Cachelog)
lhs_web::set_config(lhs_web::#conf_HTTP_port, "8084")
;lhs_web::set_config(lhs_web::#conf_binding, "127.0.0.1")
lhs_web::set_config(lhs_web::#conf_HTTP_binding, "0.0.0.0")
lhs_web::set_config(lhs_web::#conf_HTTPS_CA, "fullchain.pem")
lhs_web::set_config(lhs_web::#conf_HTTPS_Cert, "cert.pem")
lhs_web::set_config(lhs_web::#conf_HTTPS_Key, "privkey.pem")
lhs_web::set_config(lhs_web::#conf_HTTPS_Key_Pass, "")
lhs_web::set_config(lhs_web::#conf_HTTPS_Binding, "0.0.0.0")
lhs_web::set_config(lhs_web::#conf_HTTPS_Port, "8446")
lhs_web::set_config(lhs_web::#conf_HTTPS_Enable, "1")
lhs_web::set_config(lhs_web::#conf_defaultfile, "/index.html")
lhs_web::set_config(lhs_web::#conf_basedir, "/home/renlin/testweb/")
lhs_web::set_config(lhs_web::#conf_error400, "integrated")
lhs_web::set_config(lhs_web::#conf_max_HTTP_clients, "100")
lhs_web::set_config(lhs_web::#conf_max_HTTPS_clients, "100")
lhs_web::set_config(lhs_web::#conf_cache_enable, "0")
;*
;* includes
;*

Procedure.s Sample_Header(Map Header.s())
  Define *Text
  Define.s Encoded, ZumSenden, TBD, Text
  NewMap Response.s()
  If Header("cookie:") <> ""
    lhs_log::Out("A Cookie is set :" + Header("cookie:"))
  Else
    lhs_log::Out("No Cookie.")
  EndIf
  
  TBD="<div><div><h1>Header</h1></div><br/>"+#CRLF$
  ResetMap(Header())
  While NextMapElement(Header())
    TBD = TBD+"<div>"+MapKey(Header())+" "+Header()+" </div><br/>"+#CRLF$
  Wend
  
  Text = "<!DOCTYPE html><html><header><title>Alle Client Headers</title></header><body>"+TBD+"</body></html>"
  *Text = AllocateMemory(StringByteLength(Text))
  PokeS(*Text, Text)
  Encoded = Base64Encoder(*Text, MemorySize(*Text))
  lhs_log::Out("Encoded: " + Encoded)
  Response(lhs_web::#cha_R_ResponseContentType) = lhs_web::#response_string
  Response(lhs_web::#cha_R_StringBase64) = Encoded
  Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html")
  Response(lhs_web::#cha_R_http_head_status) = "200 OK"
  If Header("cookie:") = ""
    Response(lhs_web::#http_head_set_cookie) = "session=test"
  EndIf
  
  ZumSenden = lhs_web::MapToJSONString(Response())
  lhs_log::Out("ZumSenden: " + ZumSenden)
  ProcedureReturn ZumSenden
EndProcedure

Procedure.s Formular_Test(Map Header.s(), ContentData.s)
  Define *Text
  Define.s Encoded, ZumSenden, TBD, Text
  NewMap Response.s()
  TBD="<div><div><h1>FormularPost</h1></div><br/>"+#CRLF$
  ResetMap(Header())
  While NextMapElement(Header())
    TBD = TBD+"<div>"+MapKey(Header())+" : "+Header()+" </div><br/>"+#CRLF$
  Wend
  lhs_log::Out("TBD:"+TBD)
  lhs_log::Out("contentData:"+ContentData)
  Text = "<!DOCTYPE html><html><header><title>Alle Client Headers</title></header><body>"+TBD+"<hr/><br/><h1>ConentJSON</h1><br/>"+ContentData+"</body></html>"
  *Text = AllocateMemory(StringByteLength(Text))
  PokeS(*Text, Text)
  lhs_log::Out("Unencoded:"+PeekS(*Text, -1 , #PB_UTF8))
  Encoded = Base64Encoder(*Text, MemorySize(*Text))
  lhs_log::Out("Encoded: " + Encoded)
  Response(lhs_web::#cha_R_ResponseContentType) = lhs_web::#response_string
  Response(lhs_web::#cha_R_StringBase64) = Encoded
  Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html")
  Response(lhs_web::#cha_R_http_head_status) = "200 OK"
  ZumSenden = lhs_web::MapToJSONString(Response())
  lhs_log::Out("ZumSenden: " + ZumSenden)
  ProcedureReturn ZumSenden
  
EndProcedure

Procedure.s Php_Test(Map Header.s(), ContentData.s)
  Define *Text, Php
  Define.s Execute, Phpresult, Encoded, ZumSenden, Text
  NewMap Response.s()
  
  Execute = lhs_web::get_config(lhs_web::#conf_basedir) + Header(lhs_web::#http_head_request)
  lhs_log::Out("To Execute:" + Execute)
  Php = RunProgram("php", Execute, "", #PB_Program_Open | #PB_Program_Read)
  Phpresult = ""
  If Php
    While ProgramRunning(Php)
      If AvailableProgramOutput(Php)
        Phpresult + ReadProgramString(Php) + #CRLF$
      EndIf
    Wend
    CloseProgram(Php) ; Schließt die Verbindung zum Programm
  EndIf
  Text = Phpresult
  *Text = AllocateMemory(StringByteLength(Text))
  PokeS(*Text, Text)
  lhs_log::Out("Unencoded:"+PeekS(*Text, -1 , #PB_UTF8))
  Encoded = Base64Encoder(*Text, MemorySize(*Text))
  lhs_log::Out("Encoded: " + Encoded)
  Response(lhs_web::#cha_R_ResponseContentType) = lhs_web::#response_string
  Response(lhs_web::#cha_R_StringBase64) = Encoded
  Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html")
  Response(lhs_web::#cha_R_http_head_status) = "200 OK"
  ZumSenden = lhs_web::MapToJSONString(Response())
  lhs_log::Out("ZumSenden: " + ZumSenden)
  ProcedureReturn ZumSenden
EndProcedure


lhs_web::register_client_handler("/server/show_client_headers", @Sample_Header(),lhs_web::#handler_proto_get, lhs_web::#handler_sub)

lhs_web::register_client_handler("/post_test", @Formular_Test(),lhs_web::#handler_proto_post, lhs_web::#handler_sub)   ;Im zusammenspiel mit einem Formular

lhs_web::register_client_handler("php", @Php_Test(),lhs_web::#handler_proto_universal, lhs_web::#handler_type)

;*
;* Start http & https Server
;*

If lhs_web::start_server()
  lhs_log::Out("Server gestartet" + lhs_web::get_config(lhs_web::#conf_HTTP_port))
Else
  lhs_log::Out("Fehlgeschlagen")
  End
EndIf

counter = 0
OpenConsole("Test")
PrintN("Webserver")
PrintN("HTTP an Port:"+lhs_web::get_config(lhs_web::#conf_HTTP_port))
PrintN("HTTPS an Port:"+lhs_web::get_config(lhs_web::#conf_HTTPS_Port))
PrintN("Press Enter to Exit")
Input()
lhs_log::Close()
lhs_log_ext::StopAllLogger()
PrintN("Finished")

End
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`;****************************`
			`;*`
			`;* Lihaso Web Server`
			`;*`
configuration variabel cleanup 2021-05-22 12:09:31 +02:00			`;* HTTP/HTTPS example extended Server`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`;*`
First english translations 2021-04-29 09:41:41 +02:00			`;* (c)2015 - 2021 by Linder Hard- und Software`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`;*`
			`;*`

			`EnableExplicit`

			`;*`
configuration variabel cleanup 2021-05-22 12:09:31 +02:00			`;* Includes:`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`;*`

Included the new lhs_log_ext.pbi 2021-05-21 11:24:35 +02:00			`XIncludeFile "lhs_lib/SYS/lhs_log.pbi" ;Currently for Debugging`
			`XIncludeFile "lhs_lib/SYS/lhs_log_ext.pbi" ;User for Access Log, Error Access Log, Error Log and maybe more.`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`XIncludeFile "lweb_header.pbi"`
			`XIncludeFile "lweb.pbi"`

configuration variabel cleanup 2021-05-22 12:09:31 +02:00			`;*`
			`;* Variable declaration:`
			`;*`

Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`Define counter, v_lweb_srv_stop`
Cachelog added 2021-06-06 09:49:08 +02:00			`Define Accesslog.s, Errorlog.s, Cachelog.s`
configuration variabel cleanup 2021-05-22 12:09:31 +02:00
			`;*`
			`;* Basic Debug Log initialization:`
			`;*`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::App_Name = "http-s_server_example"`
configuration variabel cleanup 2021-05-22 12:09:31 +02:00			`lhs_log::SetLogFile("http-s_server_example_debug.log")`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::SetMaxSize(32)`
			`lhs_log::SetLogDateFormat("%yyyy.%mm.%dd %hh:%ii:%ss")`
			`lhs_log::SetLogFileDateFormat("%yyyy_%mm_%dd_%hh_%ii_%ss")`
			`lhs_log::Init()`

configuration variabel cleanup 2021-05-22 12:09:31 +02:00			`;*`
			`;* Enable extended Logging:`
			`;*`
			`Accesslog = lhs_log_ext::Create("Accesslog")`
Add some Log features and bugfixes 2021-05-25 10:05:41 +02:00			`Errorlog = lhs_log_ext::Create("Errorlog")`
Cachelog added 2021-06-06 09:49:08 +02:00			`Cachelog = lhs_log_ext::Create("Cachelog")`
Add some Log features and bugfixes 2021-05-25 10:05:41 +02:00			`lhs_log::Out("Errorlog UUID:"+Errorlog)`
			`lhs_log::Out("Accesslog UUID:"+Accesslog)`
Cachelog added 2021-06-06 09:49:08 +02:00			`lhs_log::Out("Cachelog UUID:"+Cachelog)`
Add some Log features and bugfixes 2021-05-25 10:05:41 +02:00			`lhs_log_ext::SetLogFile(Accesslog, "http-s_access.log")`
			`lhs_log_ext::SetLogFile(Errorlog, "http-s_error.log")`
Cachelog added 2021-06-06 09:49:08 +02:00			`lhs_log_ext::SetLogFile(Cachelog, "http-s_cache.log")`
Add some Log features and bugfixes 2021-05-25 10:05:41 +02:00			`lhs_log_ext::Init(Accesslog)`
			`lhs_log_ext::Init(Errorlog)`
Cachelog added 2021-06-06 09:49:08 +02:00			`lhs_log_ext::Init(Cachelog)`
			`lhs_web::set_config(lhs_web::#conf_Access_logUUID, Accesslog)`
			`lhs_web::set_config(lhs_web::#conf_Error_logUUID, ErrorLog)`
			`lhs_web::set_config(lhs_web::#conf_Cache_logUUID, Cachelog)`
Add some Log features and bugfixes 2021-05-25 10:05:41 +02:00			`lhs_web::set_config(lhs_web::#conf_HTTP_port, "8084")`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`;lhs_web::set_config(lhs_web::#conf_binding, "127.0.0.1")`
Full Sample rework, bugfix in lweb.pbi 2020-11-30 10:08:21 +01:00			`lhs_web::set_config(lhs_web::#conf_HTTP_binding, "0.0.0.0")`
Certificate and AllocateMemory Set other certificate witouth path. (Testing with Letsencrypt) AllocateMemory to clean FreeMemory (No more UTF8("String") 2020-12-04 21:00:49 +01:00			`lhs_web::set_config(lhs_web::#conf_HTTPS_CA, "fullchain.pem")`
			`lhs_web::set_config(lhs_web::#conf_HTTPS_Cert, "cert.pem")`
			`lhs_web::set_config(lhs_web::#conf_HTTPS_Key, "privkey.pem")`
			`lhs_web::set_config(lhs_web::#conf_HTTPS_Key_Pass, "")`
Add some Log features and bugfixes 2021-05-25 10:05:41 +02:00			`lhs_web::set_config(lhs_web::#conf_HTTPS_Binding, "0.0.0.0")`
			`lhs_web::set_config(lhs_web::#conf_HTTPS_Port, "8446")`
Everything on Socket API now Drop old Network Code Rename SSL/TLS to HTTPS Rename default server to HTTP And other smal fixes 2020-11-28 16:49:22 +01:00			`lhs_web::set_config(lhs_web::#conf_HTTPS_Enable, "1")`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`lhs_web::set_config(lhs_web::#conf_defaultfile, "/index.html")`
			`lhs_web::set_config(lhs_web::#conf_basedir, "/home/renlin/testweb/")`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`lhs_web::set_config(lhs_web::#conf_error400, "integrated")`
Full Sample rework, bugfix in lweb.pbi 2020-11-30 10:08:21 +01:00			`lhs_web::set_config(lhs_web::#conf_max_HTTP_clients, "100")`
			`lhs_web::set_config(lhs_web::#conf_max_HTTPS_clients, "100")`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`lhs_web::set_config(lhs_web::#conf_cache_enable, "0")`
			`;*`
			`;* includes`
			`;*`

Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`Procedure.s Sample_Header(Map Header.s())`
			`Define *Text`
Certificate and AllocateMemory Set other certificate witouth path. (Testing with Letsencrypt) AllocateMemory to clean FreeMemory (No more UTF8("String") 2020-12-04 21:00:49 +01:00			`Define.s Encoded, ZumSenden, TBD, Text`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`NewMap Response.s()`
Cookie Handling 2020-12-10 16:37:17 +01:00			`If Header("cookie:") <> ""`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("A Cookie is set :" + Header("cookie:"))`
Cookie Handling 2020-12-10 16:37:17 +01:00			`Else`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("No Cookie.")`
Cookie Handling 2020-12-10 16:37:17 +01:00			`EndIf`

Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`TBD="<div><div><h1>Header</h1></div><br/>"+#CRLF$`
			`ResetMap(Header())`
			`While NextMapElement(Header())`
Cookie Handling 2020-12-10 16:37:17 +01:00			`TBD = TBD+"<div>"+MapKey(Header())+" "+Header()+" </div><br/>"+#CRLF$`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`Wend`

Certificate and AllocateMemory Set other certificate witouth path. (Testing with Letsencrypt) AllocateMemory to clean FreeMemory (No more UTF8("String") 2020-12-04 21:00:49 +01:00			`Text = "<!DOCTYPE html><html><header><title>Alle Client Headers</title></header><body>"+TBD+"</body></html>"`
			`*Text = AllocateMemory(StringByteLength(Text))`
			`PokeS(*Text, Text)`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`Encoded = Base64Encoder(Text, MemorySize(Text))`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("Encoded: " + Encoded)`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`Response(lhs_web::#cha_R_ResponseContentType) = lhs_web::#response_string`
			`Response(lhs_web::#cha_R_StringBase64) = Encoded`
			`Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html")`
			`Response(lhs_web::#cha_R_http_head_status) = "200 OK"`
Cookie Handling 2020-12-10 16:37:17 +01:00			`If Header("cookie:") = ""`
			`Response(lhs_web::#http_head_set_cookie) = "session=test"`
			`EndIf`

MapToJSONString Redo Was working on a older codebase ... 2020-11-27 11:58:18 +01:00			`ZumSenden = lhs_web::MapToJSONString(Response())`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("ZumSenden: " + ZumSenden)`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`ProcedureReturn ZumSenden`
			`EndProcedure`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`Procedure.s Formular_Test(Map Header.s(), ContentData.s)`
			`Define *Text`
Certificate and AllocateMemory Set other certificate witouth path. (Testing with Letsencrypt) AllocateMemory to clean FreeMemory (No more UTF8("String") 2020-12-04 21:00:49 +01:00			`Define.s Encoded, ZumSenden, TBD, Text`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`NewMap Response.s()`
			`TBD="<div><div><h1>FormularPost</h1></div><br/>"+#CRLF$`
			`ResetMap(Header())`
			`While NextMapElement(Header())`
			`TBD = TBD+"<div>"+MapKey(Header())+" : "+Header()+" </div><br/>"+#CRLF$`
			`Wend`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("TBD:"+TBD)`
			`lhs_log::Out("contentData:"+ContentData)`
Certificate and AllocateMemory Set other certificate witouth path. (Testing with Letsencrypt) AllocateMemory to clean FreeMemory (No more UTF8("String") 2020-12-04 21:00:49 +01:00			`Text = "<!DOCTYPE html><html><header><title>Alle Client Headers</title></header><body>"+TBD+"<hr/><br/><h1>ConentJSON</h1><br/>"+ContentData+"</body></html>"`
			`*Text = AllocateMemory(StringByteLength(Text))`
			`PokeS(*Text, Text)`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("Unencoded:"+PeekS(*Text, -1 , #PB_UTF8))`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`Encoded = Base64Encoder(Text, MemorySize(Text))`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("Encoded: " + Encoded)`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`Response(lhs_web::#cha_R_ResponseContentType) = lhs_web::#response_string`
			`Response(lhs_web::#cha_R_StringBase64) = Encoded`
			`Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html")`
			`Response(lhs_web::#cha_R_http_head_status) = "200 OK"`
MapToJSONString Redo Was working on a older codebase ... 2020-11-27 11:58:18 +01:00			`ZumSenden = lhs_web::MapToJSONString(Response())`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("ZumSenden: " + ZumSenden)`
Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`ProcedureReturn ZumSenden`

			`EndProcedure`

Kleines PHP Beispiel (Keinenfalls so Produktiv Nutzen) 2020-11-08 23:14:35 +01:00			`Procedure.s Php_Test(Map Header.s(), ContentData.s)`
			`Define *Text, Php`
Certificate and AllocateMemory Set other certificate witouth path. (Testing with Letsencrypt) AllocateMemory to clean FreeMemory (No more UTF8("String") 2020-12-04 21:00:49 +01:00			`Define.s Execute, Phpresult, Encoded, ZumSenden, Text`
Kleines PHP Beispiel (Keinenfalls so Produktiv Nutzen) 2020-11-08 23:14:35 +01:00			`NewMap Response.s()`

			`Execute = lhs_web::get_config(lhs_web::#conf_basedir) + Header(lhs_web::#http_head_request)`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("To Execute:" + Execute)`
Kleines PHP Beispiel (Keinenfalls so Produktiv Nutzen) 2020-11-08 23:14:35 +01:00			`Php = RunProgram("php", Execute, "", #PB_Program_Open \| #PB_Program_Read)`
			`Phpresult = ""`
			`If Php`
			`While ProgramRunning(Php)`
			`If AvailableProgramOutput(Php)`
			`Phpresult + ReadProgramString(Php) + #CRLF$`
			`EndIf`
			`Wend`
			`CloseProgram(Php) ; Schließt die Verbindung zum Programm`
			`EndIf`
Certificate and AllocateMemory Set other certificate witouth path. (Testing with Letsencrypt) AllocateMemory to clean FreeMemory (No more UTF8("String") 2020-12-04 21:00:49 +01:00			`Text = Phpresult`
			`*Text = AllocateMemory(StringByteLength(Text))`
			`PokeS(*Text, Text)`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("Unencoded:"+PeekS(*Text, -1 , #PB_UTF8))`
Kleines PHP Beispiel (Keinenfalls so Produktiv Nutzen) 2020-11-08 23:14:35 +01:00			`Encoded = Base64Encoder(Text, MemorySize(Text))`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("Encoded: " + Encoded)`
Kleines PHP Beispiel (Keinenfalls so Produktiv Nutzen) 2020-11-08 23:14:35 +01:00			`Response(lhs_web::#cha_R_ResponseContentType) = lhs_web::#response_string`
			`Response(lhs_web::#cha_R_StringBase64) = Encoded`
			`Response(lhs_web::#cha_R_ResponseType) = lhs_web::mimetype("html")`
			`Response(lhs_web::#cha_R_http_head_status) = "200 OK"`
MapToJSONString Redo Was working on a older codebase ... 2020-11-27 11:58:18 +01:00			`ZumSenden = lhs_web::MapToJSONString(Response())`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("ZumSenden: " + ZumSenden)`
Kleines PHP Beispiel (Keinenfalls so Produktiv Nutzen) 2020-11-08 23:14:35 +01:00			`ProcedureReturn ZumSenden`
			`EndProcedure`


Individuell bearbeitete Subdirs - Post - Get - Fixes in diversen bereichen... - Test Routinen erweitert - uvm. 2020-11-08 01:31:57 +01:00			`lhs_web::register_client_handler("/server/show_client_headers", @Sample_Header(),lhs_web::#handler_proto_get, lhs_web::#handler_sub)`

Diverse Testfiles Für das PHP beispiel muss ein php interpreter installiert sein. 2020-11-08 23:36:44 +01:00			`lhs_web::register_client_handler("/post_test", @Formular_Test(),lhs_web::#handler_proto_post, lhs_web::#handler_sub) ;Im zusammenspiel mit einem Formular`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00
Kleines PHP Beispiel (Keinenfalls so Produktiv Nutzen) 2020-11-08 23:14:35 +01:00			`lhs_web::register_client_handler("php", @Php_Test(),lhs_web::#handler_proto_universal, lhs_web::#handler_type)`

Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`;*`
unused InitNework removed 2020-12-01 15:39:19 +01:00			`;* Start http & https Server`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`;*`

			`If lhs_web::start_server()`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("Server gestartet" + lhs_web::get_config(lhs_web::#conf_HTTP_port))`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`Else`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Out("Fehlgeschlagen")`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`End`
			`EndIf`

			`counter = 0`
			`OpenConsole("Test")`
TLS added TODO: Translate all comments to english Translate Readme to english Extend Readme with TLS function Create Readme_DE Code cleanup (ltls.pbi, lsocket.pbi) 2020-11-27 11:52:35 +01:00			`PrintN("Webserver")`
Full Sample rework, bugfix in lweb.pbi 2020-11-30 10:08:21 +01:00			`PrintN("HTTP an Port:"+lhs_web::get_config(lhs_web::#conf_HTTP_port))`
Everything on Socket API now Drop old Network Code Rename SSL/TLS to HTTPS Rename default server to HTTP And other smal fixes 2020-11-28 16:49:22 +01:00			`PrintN("HTTPS an Port:"+lhs_web::get_config(lhs_web::#conf_HTTPS_Port))`
Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`PrintN("Press Enter to Exit")`
			`Input()`
Debug change to lhs_log and Empty multiform 2021-05-21 07:45:23 +02:00			`lhs_log::Close()`
Add some Log features and bugfixes 2021-05-25 10:05:41 +02:00			`lhs_log_ext::StopAllLogger()`
			`PrintN("Finished")`

Erster Release - Multithreading - Modul lweb erstellt aus dem Original Code - Erster FileCache Entwurf implementiert (Mit Bugs ... :-( ) Fehlt noch: - Dynamische eingliederung (Callbacks) - FileCache Bugbeseitigung manchmal Cache Korruptionen... 2020-11-03 19:09:17 +01:00			`End`