Dim sb As StringBuilder
sb.Initialize
For Each t As String In Devices
sb.Append($"'${t}' in topics ||"$)
Next
sb.Remove(sb.Length-3, sb.Length)
Dim m As Map = CreateMap("condition": sb.ToString)
Dim Job As HttpJob
Job.Initialize("fcm", Me)
Dim data As Map = CreateMap("steuerbefehl": msg.Get("steuerbefehl"), "konferenz": msg.Get("konferenz"), "absender": msg.Get("absender"), "sender": msg.Get("sender"), "filename": msg.Get("filename"), "daten": msg.Get("daten"), "zeitstempel": msg.Get("zeitstempel"), "groesse": msg.Get("groesse"))
m.Put("data", data)
m.Put("content_available", True)
Dim Ck As String = msg.Get("zeitstempel")
Log(Ck)
m.Put("collapse_key", Ck)
m.Put("priority", 10)
Dim jg As JSONGenerator
jg.Initialize(m)
Job.PostString("https://fcm.googleapis.com/fcm/send", jg.ToString)
Job.GetRequest.SetContentType("application/json;charset=UTF-8")
Job.GetRequest.SetHeader("Authorization", "key=" & Main.FirebasePushApiKey)