Public Sub UpdateBrowsers
Dim sb As StringBuilder
sb.Initialize
For Each id As String In ActiveConnections.Keys
Dim pb As PushB4A = ActiveConnections.Get(id)
Dim p As Period
p.Initialize
p.Minutes = -MINS_TO_REMOVE_CONN
Dim old As Long = DateUtils.AddPeriod(DateTime.Now, p)
If pb.lastPingTime < old Then
RemoveConnection(id, pb)
End If
sb.Append(WebUtils.ReplaceMap("<li>$ID$, Last Ping: $TIME$</li>", _
CreateMap("ID": id, "TIME": DateTime.Time(pb.lastPingTime))))
Next
Dim total As Int = PushDB.ExecQuerySingleResult("SELECT Count(*) FROM rmmusers")
sb.Append(WebUtils.ReplaceMap("<li>Total number of users: $TOTAL$</li>", CreateMap("TOTAL": total)))
For Each pbr As PushBrowser In ConnectedBrowsers
CallSubDelayed2(pbr, "UpdateConnectedIds", sb.ToString)
Next
End Sub
