diff --git a/lweb.pbi b/lweb.pbi index 3d0de59..e7a0cb9 100644 --- a/lweb.pbi +++ b/lweb.pbi @@ -237,7 +237,6 @@ Module lhs_web Procedure start_server() Global NewMap m_clients.s_clients(conf_max_clients) - Protected settings.ltls::s_tls_server Protected tlsresponse.i ;TODO: Create SSL Server @@ -246,15 +245,11 @@ Module lhs_web If conf_TLS_enable = 1 server_SSL_id = lsocket::CreateSocket(conf_TLS_Port, conf_max_clients, lsocket::#SOCK_STREAM, lsocket::#AF_INET, conf_TLS_binding) If server_SSL_id - settings\CA = conf_TLS_CA - settings\Cert = conf_TLS_Cert - settings\Key = conf_TLS_Key - settings\Password = conf_TLS_Key_Pass - tlsresponse = ltls::InitTLS(@settings) - Debug "TLS Fehler:"+Str(tlsresponse) + tlsresponse = ltls::InitSimpleTLS(conf_TLS_CA, conf_TLS_Cert, conf_TLS_Key, conf_TLS_Key_Pass) If tlsresponse > 0 CreateThread(@server_SSL(), server_SSL_id) Else + Debug "TLS Fehler:"+Str(tlsresponse) ProcedureReturn #False EndIf @@ -298,13 +293,13 @@ Module lhs_web count_client + 1 Else Debug "Max TLS Clients reached..." - CloseNetworkConnection(client_id) + ltls::CloseTLSSocket(client_id) EndIf Else Break EndIf - ForEver + ltls::CloseTLS(network_server_id) EndProcedure