srvr.Initialize("srvr")
srvr.Port = 8888
srvr.AddWebSocket("/ws", "OnlineSocket")
srvr.StaticFilesFolder = File.Combine(File.DirApp, "www")
srvr.LogsFileFolder = File.Combine(File.DirApp, "logs")
srvr.AddFilter("/login_example/members/*", "MembersFilter", False)
Dim err As Map
err.Initialize
err.Put(404, "/404.html") 'page not found
err.Put(500, "/500.html") 'server error
srvr.SetCustomErrorPages(err)
srvr.Start