diff options
| author | amatus <amatus@foxxy> | 2010-07-08 00:56:16 -0700 |
|---|---|---|
| committer | amatus <amatus@foxxy> | 2010-07-08 00:56:16 -0700 |
| commit | 0b522b0d7f3b9542c72380c865699a92179d0a22 (patch) | |
| tree | fc2800b18a981658d600514b86a39cb5c0e5b30c | |
| parent | 37c04bb0419e5ed7d32b6238f5899f05933fb8ee (diff) | |
Fix encode-message and some more work on downloading hostlists.
| -rw-r--r-- | src/org/gnu/clojure/gnunet/message.clj | 3 | ||||
| -rw-r--r-- | src/org/gnu/clojure/gnunet/peer.clj | 9 |
2 files changed, 9 insertions, 3 deletions
diff --git a/src/org/gnu/clojure/gnunet/message.clj b/src/org/gnu/clojure/gnunet/message.clj index ae54bcb..3d94cb7 100644 --- a/src/org/gnu/clojure/gnunet/message.clj +++ b/src/org/gnu/clojure/gnunet/message.clj @@ -91,7 +91,8 @@ (defn encode-message [msg] (concat - (encode-header (+ (count (:bytes msg)) header-size) (:message-type msg)) + (encode-header {:size (+ header-size (count (:bytes msg))) + :message-type (:message-type msg)}) (:bytes msg))) (def parse-message diff --git a/src/org/gnu/clojure/gnunet/peer.clj b/src/org/gnu/clojure/gnunet/peer.clj index 7859826..b7f508d 100644 --- a/src/org/gnu/clojure/gnunet/peer.clj +++ b/src/org/gnu/clojure/gnunet/peer.clj @@ -1,6 +1,6 @@ (ns org.gnu.clojure.gnunet.peer - (:use (org.gnu.clojure.gnunet identity hello)) - (:import java.util.Date)) + (:use (org.gnu.clojure.gnunet identity hello hostlist)) + (:import (java.util Date TimerTask))) (defstruct remote-peer :public-key @@ -52,3 +52,8 @@ remote-peers) (assoc remote-peers id (new-remote-peer-from-hello hello)))))] (send (:remote-peers-agent peer) update-remote-peers hello))) + +(defn create-hostlist-timer-task + [peer url] + (proxy [java.util.TimerTask] [] + (run [] (download-hostlist (partial admit-hello! peer) url))))
\ No newline at end of file |