If settings.Get("use_ssl") = "true" Then
srv.Http2Enabled = True
StartSSL
Else
srv.Port = settings.Get("port")
End If
srv.Start
Log("Server started.")
StartMessageLoop
private Sub StartSSL
Log("Using SSL")
Dim ssl As SslConfiguration
ssl.Initialize
ssl.SetKeyStorePath(File.DirApp,"mykeystore.jks")
ssl.KeyStorePassword = "123456"
ssl.KeyManagerPassword = "123456"
srv.SetSslConfiguration(ssl,443)
srv.AddFilter("/*","sslFilter",False)
End Sub