'WebSocket class
Sub Class_Globals
Public ws As WebSocket
Private eid As String
End Sub
Public Sub Initialize
eid=""
End Sub
Private Sub WebSocket_Connected (WebSocket1 As WebSocket)
ws = WebSocket1
Log("engine connected. "&ws.UpgradeRequest.RequestURI)
Dim s1 As String=MyDB.Substring(ws.UpgradeRequest.RequestURI,"/ws/engine/").Replace("/",",").Replace("\",",")
Dim ss() As String=Regex.Split(",",s1)
If ss.Length=2 And IsNumber(ss(1)) Then
Dim n1 As Int=ss(1)
wsengine.AddEngine(ss(0),n1, ws)
MyDB.PostMsgLog($"connect engine(${n1}). ${ss(0)}"$)
End If
End Sub
Private Sub WebSocket_Disconnected
Log("engine disconnected")
End Sub
private Sub engine_msg(param As Map)
Dim function1 As String=param.Get("function")
Dim msg1 As String=param.Get("msg")
CallSubDelayed2(MyDB,function1,msg1)
End Sub
private Sub engine_profile(param As Map)
Dim s1 As String=param.Get("eid")
If wsengine.EngineContains(s1) Then
Dim mp1 As Map = wsengine.EngineGet(s1)
Dim sn As Int = param.Get("sn")
mp1.Put("Beating",param.Get("Beating"))
mp1.Put("started",param.Get("started"))
End If
'Log("profile")
End Sub
private Sub Device_Ping(param As Map)
Log("Engine ping")
End Sub
