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

update disconnection reason strings to be a bit more descriptive

Browse source
This commit is contained in:
Gered 2016-05-08 19:03:31 -04:00
parent 337b1faf27
commit 4e63631854
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -555,7 +555,7 @@
(defn disconnect! (defn disconnect!
[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 "Disconnected")))) (send-off session-agent close nil (or reason "Client disconnected by server"))))
;; wrap the respond function from :reactor with the proper ;; wrap the respond function from :reactor with the proper
;; responsewrapper for either IE or other clients ;; responsewrapper for either IE or other clients
@ -659,7 +659,7 @@
;; this is a request made in an img tag ;; this is a request made in an img tag
(do ;;end session (do ;;end session
(when session-agent (when session-agent
(send-off session-agent close req "Disconnected")) (send-off session-agent close req "Client disconnected"))
{:status 200 {:status 200
:headers (:headers options) :headers (:headers options)
:body ""} :body ""}