diff options
| -rw-r--r-- | src/site.clj | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/site.clj b/src/site.clj index 5530348..1405ff8 100644 --- a/src/site.clj +++ b/src/site.clj @@ -9,10 +9,11 @@ clojure.contrib.command-line clojure.contrib.duck-streams clojure.contrib.json.write - clojure.contrib.seq-utils + clojure.contrib.seq-utils clojure.contrib.sql clojure.contrib.str-utils clojure.contrib.def + clojure.contrib.pprint config admin compojure @@ -1101,6 +1102,10 @@ order by count desc limit ? offset ?") (.setAttribute st "dumps" (map process-message-for-output msgs)) (.toString st))) +(defn show-ip [request] + (str request (:headers request)) +) + ;; Compojure Routes (defn serve-static [dir path] @@ -1119,6 +1124,7 @@ order by count desc limit ? offset ?") (GET "/:room/chat" (validated-chat session (params :room) "chat")) (GET "/chat" (validated-chat session *default-room* "chat")) (GET "/chat/:t" (validated-chat session *default-room* (params :t))) + (GET "/ip" (show-ip request)) (GET "http://:sub.dump.fm/log" (validated-log session (params :sub) "0" params)) (GET "http://:sub.dump.fm/log/:offset" (validated-log session (params :sub) (params :offset) params)) |