From f031cab0fd7db4ad11ea5b448fa2b4ecdf20ada7 Mon Sep 17 00:00:00 2001 From: tim b Date: Fri, 13 Aug 2010 12:33:53 -0700 Subject: initial fullscreen image thing --- src/site.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/site.clj b/src/site.clj index 4cde45d..b3aae51 100644 --- a/src/site.clj +++ b/src/site.clj @@ -1106,8 +1106,10 @@ order by count desc limit ? offset ?") (do-upload-avatar session image))))) (defn serve-meme [session meme] - (if-let [st (fetch-template meme session)] - (.toString st) + (if-let [st (fetch-template meme session)] + (let [now (System/currentTimeMillis)] + (.setAttribute st "timestamp" now) + (.toString st)) (unknown-page))) (defn hall-of-fame [session] -- cgit v1.2.3-70-g09d2 From db03f7ccb8c6929354a1f033e03708a450aab8ce Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Sat, 14 Aug 2010 22:36:07 -0400 Subject: add really hacky email photo acceptor --- src/rooms.clj | 2 +- src/site.clj | 8 ++++++++ 2 files changed, 9 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/rooms.clj b/src/rooms.clj index 8f54640..7997e97 100644 --- a/src/rooms.clj +++ b/src/rooms.clj @@ -127,7 +127,7 @@ (create-and-add-room! key) (throw (Exception. (str "Unable to create room " key)))))) -(defn- fetch-or-create-bot-id! [nick] +(defn fetch-or-create-bot-id! [nick] (:user_id (or (fetch-nick nick) (first diff --git a/src/site.clj b/src/site.clj index b3aae51..567c3af 100644 --- a/src/site.clj +++ b/src/site.clj @@ -1085,6 +1085,13 @@ order by count desc limit ? offset ?") (not has-access) [200 "UNKNOWN_ROOM"] :else (do-upload session image (lookup-room room-key))))) +(defn upload-photo [session params] + (let [room-key (params :room) + nick "~photobot" + user-id (rooms/fetch-or-create-bot-id! nick) + image (params :image)] + (do-upload {:is_admin true :nick nick :user_id user-id} image (lookup-room room-key)))) + ;; N.B. -- Upload responses aren't JSON-evaluated (defn do-upload-avatar [session image] (let [filename (format-filename (:filename image) (session :nick)) @@ -1229,6 +1236,7 @@ order by count desc limit ? offset ?") (defroutes multipart (POST "/upload/message" (upload session params)) + (POST "/upload/photo" (upload-photo session params)) (POST "/upload/avatar" (upload-avatar session params))) ;; Add jpeg to list -- cgit v1.2.3-70-g09d2