Private Sub ConfigureSSL(SslPort As Int)'ignore
'example of SSL connector configuration
Dim ssl As SslConfiguration
ssl.Initialize
ssl.SetKeyStorePath("C:\tools\lego-data\certificates", "www.online-racing-club.com.pfx") 'path to keystore file
ssl.KeyStorePassword = "mypassword"
ssl.KeyManagerPassword = "mypassword"
srvr.SetSslConfiguration(ssl, SslPort)
'add filter to redirect all traffic from http to https (optional)
srvr.AddFilter("/*", "HttpsFilter", True)
End Sub