diff options
| author | David Barksdale <amatus.amongus@gmail.com> | 2010-11-02 07:15:48 -0700 |
|---|---|---|
| committer | David Barksdale <amatus.amongus@gmail.com> | 2010-11-02 07:15:48 -0700 |
| commit | fe33193b9e34492d6eb38b067e3686bc9afdf2c8 (patch) | |
| tree | 3580ee1b268e3ece747fa5e7c1c48165a0fb2036 /src/org/gnu/clojure/gnunet/transport.clj | |
| parent | 8d14a8036807bb75b66d83dbc605ee8eaa8fd5f4 (diff) | |
New filesharing message handlers.
Diffstat (limited to 'src/org/gnu/clojure/gnunet/transport.clj')
| -rw-r--r-- | src/org/gnu/clojure/gnunet/transport.clj | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/org/gnu/clojure/gnunet/transport.clj b/src/org/gnu/clojure/gnunet/transport.clj index 8e368a8..6eca59a 100644 --- a/src/org/gnu/clojure/gnunet/transport.clj +++ b/src/org/gnu/clojure/gnunet/transport.clj @@ -304,14 +304,6 @@ (defn admit-message! [peer sender-id address message] - (let [string-builder (StringBuilder. "Received message type ")] - (.append string-builder (:message-type message)) - (.append string-builder " from ") - (.append string-builder (vec (:encoded-address address))) - (.append string-builder " id ") - (.append string-builder sender-id) - (.append string-builder "\n") - (.write *out* (.toString string-builder))) (send (:remote-peers-agent peer) (fn [remote-peers] (let [remote-peers (update-remote-peers remote-peers |