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

add extra server-side client connection management functions

Browse source
This commit is contained in:
Gered 2014-12-29 02:21:09 -05:00
parent 973104277f
commit 057fa058d8
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/clj/clj_browserchannel_messaging/server.clj
View file

@ -101,6 +101,19 @@
(fn [client-id request] (fn [client-id request]
(handle-session client-id request))))))) (handle-session client-id request)))))))
(defn connected?
"Returns true if the specified client currently has an active
browserchannel session established."
[client-id]
(contains? @browserchannel/sessions client-id))
(defn disconnect!
"Forcibly disconnects a client's browserchannel session. If the specified
client is not valid / not connected, nothing happens and nil is returned."
[client-id & [reason]]
(if-let [session-agent (get @browserchannel/sessions client-id)]
(send-off session-agent browserchannel/close nil (or reason "Disconnected"))))
(defn init! (defn init!
"Sets up browserchannel for server-side use. This function should be called "Sets up browserchannel for server-side use. This function should be called
once during application startup. once during application startup.