PB_Includes/lweb
1
0
Fork 0
Code Issues 3 Pull requests Projects 1 Releases 2 Wiki Activity

Small fix in the sample function library

Browse source
This commit is contained in:
René Linder 2024-09-23 05:57:51 +02:00
parent 52ff892387
commit bd70412795
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
server_example_function_library.pb
View file

@ -16,7 +16,7 @@ ProcedureCDLL post_test(handler_Map_JSON.s, ContentData.s)
Define.s Encoded, TBD, Text, JSONStringToMap Define.s Encoded, TBD, Text, JSONStringToMap
Define MyThreadJSON, File Define MyThreadJSON, File
NewMap Header.s() NewMap Header.s()
File = CreateFile(#PB_Any, "test.log") File = CreateFile(#PB_Any, "/var/log/lhttpd/post_test.log")
WriteStringN(File, "handler_Map_JSON:") WriteStringN(File, "handler_Map_JSON:")
WriteStringN(File, handler_Map_JSON) WriteStringN(File, handler_Map_JSON)
WriteStringN(File, "Content Data:") WriteStringN(File, "Content Data:")
@ -42,7 +42,7 @@ ProcedureCDLL post_test(handler_Map_JSON.s, ContentData.s)
Text = ~"<html lang=\"de\">" + Text = ~"<html lang=\"de\">" +
"<head>" + "<head>" +
~"<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\"/>" + ~"<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\"/>" +
"<title>Alle Client Headers</title></header><body>"+TBD+"<hr/><br/><h1>ConentJSON</h1><br/>"+ContentData+"</body></html>" "<title>Alle Client Headers</title></header><body>"+TBD+"<hr/><br/><h1>Conent in JSON Format</h1><br/>"+ContentData+"</body></html>"
*Text = AllocateMemory(StringByteLength(Text, #PB_UTF8)) *Text = AllocateMemory(StringByteLength(Text, #PB_UTF8))
PokeS(*Text, Text, -1, #PB_UTF8) PokeS(*Text, Text, -1, #PB_UTF8)
Encoded = Base64Encoder(*Text, MemorySize(*Text)) Encoded = Base64Encoder(*Text, MemorySize(*Text))