fluent-pad/app/remove_disconnected.air
2021-03-19 14:30:35 +03:00

17 lines
549 B
Plaintext

(seq
(call %init_peer_id% ({{user_list}} "is_authenticated") [] token)
(seq
(call %init_peer_id% ({{user_list}} "get_users") [] all_users)
(fold all_users.$.users! u
(par
(seq
(call u.$.relay_id! ("peer" "is_connected") [u.$.peer_id!] is_connected)
(match is_connected false
(call %init_peer_id% ({{user_list}} "leave") [u.$.peer_id!])
)
)
(next u)
)
)
)
)