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

Log Bugfix ....

Browse source
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 counter + 1
configuration\hosts()\log\AccesslogUUID = lhs_log_ext::Create("Accesslog "+configuration\hosts()\description) configuration\hosts()\log\AccesslogUUID = lhs_log_ext::Create("Accesslog "+configuration\hosts()\description)
configuration\hosts()\log\ErrorlogUUID = lhs_log_ext::Create("Errorlog "+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\AccesslogUUID)
lhs_log_ext::Init(configuration\hosts()\log\ErrorlogUUID) 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\AccesslogUUID, 0,configuration\hosts()\log\AccesslogUUID ,ldl::#AdvancedLog)
ldl::Register(lhs_log_ext::@Out(), configuration\hosts()\log\ErrorlogUUID) 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("Accesslog UUID:"+configuration\hosts()\log\AccesslogUUID)
ldl::Logging("Errorlog UUID:"+configuration\hosts()\log\ErrorlogUUID) ldl::Logging("Errorlog UUID:"+configuration\hosts()\log\ErrorlogUUID)
@ -654,13 +656,16 @@ Module lhs_web
ldl::Logging("JSONString:"+ JSONStringToMap) ldl::Logging("JSONString:"+ JSONStringToMap)
thread_type = "" thread_type = ""
If configuration\log\AccesslogUUID <> "" If AccessLog <> ""
If m_clients(Str(thread_cli_id))\client_type = #client_HTTPS 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 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 EndIf
Else
ldl::Logging("Empty accesslog:["+AccessLog+"]")
EndIf EndIf
Select Header(#http_head_method) Select Header(#http_head_method)