gered/clj-browserchannel
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

added server-side close! function for "politely" disconnecting a client

Browse source
This commit is contained in:
Gered 2016-05-16 13:39:08 -04:00
parent 8d953d4057
commit 7c28a86913
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
clj-browserchannel/src/net/thegeez/browserchannel/server.clj
View file

@ -656,11 +656,24 @@
(contains? @sessions session-id)) (contains? @sessions session-id))
(defn disconnect! (defn disconnect!
"disconnects the client identified by session-id." "forcefully closes/disconnects the client session identified by session-id.
NOTE: the client code in net.thegeez.browserchannel.client will treat
this as an error and may try to reconnect. if you do not wish this
to happen, use close! instead."
[session-id & [reason]] [session-id & [reason]]
(if-let [session-agent (get @sessions session-id)] (if-let [session-agent (get @sessions session-id)]
(send-off session-agent close nil (or reason "Client disconnected by server")))) (send-off session-agent close nil (or reason "Client disconnected by server"))))
(defn close!
"sends a message to the client requesting that it not attempt a
reconnection and when the message has been sent over the backchannel,
closes/disconnects the session.
NOTE: because we wait for a message to be sent before closing the session,
it is possible the session won't be closed right away if e.g. the
client does not currently have an active backchannel."
[session-id & [reason]]
(send-map session-id ["stop"] {:on-sent #(disconnect! session-id reason)}))
(defn get-status (defn get-status
"returns connection status info about the client identified by session-id" "returns connection status info about the client identified by session-id"
[session-id] [session-id]