Header
"+#CRLF$
@@ -60,7 +67,7 @@ Procedure.s Sample_Header(Map Header.s())
*Text = AllocateMemory(StringByteLength(Text))
PokeS(*Text, Text)
Encoded = Base64Encoder(*Text, MemorySize(*Text))
- Debug "Encoded: " + Encoded
+ 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")
@@ -70,7 +77,7 @@ Procedure.s Sample_Header(Map Header.s())
EndIf
ZumSenden = lhs_web::MapToJSONString(Response())
- Debug "ZumSenden: " + ZumSenden
+ lhs_log::Out("ZumSenden: " + ZumSenden)
ProcedureReturn ZumSenden
EndProcedure
@@ -83,20 +90,20 @@ Procedure.s Formular_Test(Map Header.s(), ContentData.s)
While NextMapElement(Header())
TBD = TBD+"
"+MapKey(Header())+" : "+Header()+"
"+#CRLF$
Wend
- Debug "TBD:"+TBD
- Debug "contentData:"+ContentData
+ lhs_log::Out("TBD:"+TBD)
+ lhs_log::Out("contentData:"+ContentData)
Text = "
"+TBD+"
ConentJSON
"+ContentData+""
*Text = AllocateMemory(StringByteLength(Text))
PokeS(*Text, Text)
- Debug "Unencoded:"+PeekS(*Text, -1 , #PB_UTF8)
+ lhs_log::Out("Unencoded:"+PeekS(*Text, -1 , #PB_UTF8))
Encoded = Base64Encoder(*Text, MemorySize(*Text))
- Debug "Encoded: " + Encoded
+ 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())
- Debug "ZumSenden: " + ZumSenden
+ lhs_log::Out("ZumSenden: " + ZumSenden)
ProcedureReturn ZumSenden
EndProcedure
@@ -107,7 +114,7 @@ Procedure.s Php_Test(Map Header.s(), ContentData.s)
NewMap Response.s()
Execute = lhs_web::get_config(lhs_web::#conf_basedir) + Header(lhs_web::#http_head_request)
- Debug "To Execute:" + Execute
+ lhs_log::Out("To Execute:" + Execute)
Php = RunProgram("php", Execute, "", #PB_Program_Open | #PB_Program_Read)
Phpresult = ""
If Php
@@ -121,15 +128,15 @@ Procedure.s Php_Test(Map Header.s(), ContentData.s)
Text = Phpresult
*Text = AllocateMemory(StringByteLength(Text))
PokeS(*Text, Text)
- Debug "Unencoded:"+PeekS(*Text, -1 , #PB_UTF8)
+ lhs_log::Out("Unencoded:"+PeekS(*Text, -1 , #PB_UTF8))
Encoded = Base64Encoder(*Text, MemorySize(*Text))
- Debug "Encoded: " + Encoded
+ 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())
- Debug "ZumSenden: " + ZumSenden
+ lhs_log::Out("ZumSenden: " + ZumSenden)
ProcedureReturn ZumSenden
EndProcedure
@@ -145,9 +152,9 @@ lhs_web::register_client_handler("php", @Php_Test(),lhs_web::#handler_proto_univ
;*
If lhs_web::start_server()
- Debug "Server gestartet" + lhs_web::get_config(lhs_web::#conf_HTTP_port)
+ lhs_log::Out("Server gestartet" + lhs_web::get_config(lhs_web::#conf_HTTP_port))
Else
- Debug "Fehlgeschlagen"
+ lhs_log::Out("Fehlgeschlagen")
End
EndIf
@@ -159,5 +166,5 @@ PrintN("HTTPS an Port:"+lhs_web::get_config(lhs_web::#conf_HTTPS_Port))
PrintN("Press Enter to Exit")
Input()
PrintN("Finished")
-
+lhs_log::Close()
End