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

Log Bugfix ....

This commit is contained in:
René Linder 2023-03-30 15:40:27 +02:00
parent 61342616b4
commit ce46b5c8de
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lweb.pbi
View File

@ -312,10 +312,12 @@ Module lhs_web
counter + 1
configuration\hosts()\log\AccesslogUUID = lhs_log_ext::Create("Accesslog "+configuration\hosts()\description)
configuration\hosts()\log\ErrorlogUUID = lhs_log_ext::Create("Errorlog "+configuration\hosts()\description)
lhs_log_ext::SetLogFile(configuration\hosts()\log\AccesslogUUID, configuration\hosts()\log\AccesslogFile)
lhs_log_ext::SetLogFile(configuration\hosts()\log\ErrorlogUUID, configuration\hosts()\log\ErrorlogFile)
lhs_log_ext::Init(configuration\hosts()\log\AccesslogUUID)
lhs_log_ext::Init(configuration\hosts()\log\ErrorlogUUID)
ldl::Register(lhs_log_ext::@Out(), configuration\hosts()\log\AccesslogUUID)
ldl::Register(lhs_log_ext::@Out(), configuration\hosts()\log\ErrorlogUUID)
ldl::Register(lhs_log_ext::@Out(), configuration\hosts()\log\AccesslogUUID, 0,configuration\hosts()\log\AccesslogUUID ,ldl::#AdvancedLog)
ldl::Register(lhs_log_ext::@Out(), configuration\hosts()\log\ErrorlogUUID, 0,configuration\hosts()\log\ErrorlogUUID ,ldl::#AdvancedLog)
ldl::Logging("Accesslog UUID:"+configuration\hosts()\log\AccesslogUUID)
ldl::Logging("Errorlog UUID:"+configuration\hosts()\log\ErrorlogUUID)
@ -654,13 +656,16 @@ Module lhs_web
ldl::Logging("JSONString:"+ JSONStringToMap)
thread_type = ""
If configuration\log\AccesslogUUID <> ""
If AccessLog <> ""
If m_clients(Str(thread_cli_id))\client_type = #client_HTTPS
ldl::Logging(lsocket::GetSocketIP(tls::GetSocket(thread_cli_id)) + " " + Header(#http_head_method) + " " + Header(#http_head_request), AccessLog)
ldl::Logging("Connect:"+lsocket::GetSocketIP(tls::GetSocket(thread_cli_id)) + " " + Header(#http_head_method) + " " + Header(#http_head_request), AccessLog)
ldl::Logging("Connect:"+lsocket::GetSocketIP(tls::GetSocket(thread_cli_id)) + " " + Header(#http_head_method) + " " + Header(#http_head_request))
Else
ldl::Logging(lsocket::GetSocketIP(thread_cli_id) + " " + Header(#http_head_method) + " " + Header(#http_head_request), AccessLog)
ldl::Logging("Connect:"+lsocket::GetSocketIP(thread_cli_id) + " " + Header(#http_head_method) + " " + Header(#http_head_request), AccessLog)
ldl::Logging("Connect:"+lsocket::GetSocketIP(thread_cli_id) + " " + Header(#http_head_method) + " " + Header(#http_head_request))
EndIf
Else
ldl::Logging("Empty accesslog:["+AccessLog+"]")
EndIf
Select Header(#http_head_method)