>
> I want to write a simple socket server in Clojure. I want to perform
> some action when a client disconnects.
-------------------------------------------
The following code works for me. read-input returns nil if the socket
is closed (the client disconnects)
Regards
Roger
(defn read-input []
(loop [result [] input (read-line)]
(if input
(if (= (first input) \#)
result
(recur (conj result input) (read-line))
)
nil)))
(defn handle-client [in out]
(binding [
*in* (reader in)
]
(with-connection db
(let [outstream (writer out)]
(loop []
(let [xml (read-input)]
(if xml
(do
(send-answers
(parse outstream (makestr xml)))
(recur))
(info
"disconnected"))))))))
(def server (create-server *port* handle-client))
Am 01.10.2009 um 20:39 schrieb ngocdaothanh:
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
