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

fix get-status (apparently didn't test it well enough)

Browse source
This commit is contained in:
Gered 2016-05-08 22:41:25 -04:00
parent 9cc8bf5234
commit b86d048e64
1 changed files with 8 additions and 7 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

@ -618,15 +618,16 @@
"returns connection status info about the client identified by session-id"
[session-id]
(if (connected? session-id)
(let [session-agent (get @sessions session-id)
(let [session-agent @(get @sessions session-id)
status (session-status session-agent)
has-back-channel (first status)]
{:connected? true
:address (:address session-agent)
:app-version (:app-version session-agent)
:has-back-channel? (if (= 1 has-back-channel) true false)
:last-acknowledged-array-id (second status)
:outstanding-backchannel-bytes (nth status 2)})))
(merge
{:connected? true
:has-back-channel? (if (= 1 has-back-channel) true false)
:last-acknowledged-array-id (second status)
:outstanding-backchannel-bytes (nth status 2)}
(select-keys (:details session-agent) [:address :headers])))
{:connected? false}))