diff options
Diffstat (limited to 'src/feed.clj')
| -rwxr-xr-x | src/feed.clj | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/feed.clj b/src/feed.clj index 43ad077..3a3cc35 100755 --- a/src/feed.clj +++ b/src/feed.clj @@ -90,13 +90,10 @@ WHERE NOT EXISTS (SELECT 1 filtered-good (filter-posted-images good room-id)] (doseq [img filtered-good] (println (format "Inserting %s into %s from %s" img room-key feed)) - (let [msg-id (insert-feed-image-to-db! room-id feed img bot-id) - msg {:msg_id msg-id - :nick bot-nick - :created_on (new Date) - :content img}] + (let [msg-id (insert-feed-image-to-db! room-id feed img bot-id)] (dosync - (add-message msg (lookup-room room-key))))))) + (add-message (build-msg bot-nick img msg-id) + (lookup-room room-key))))))) (defn process-all-feeds! [] (doseq [f (shuffle (read-feeds))] |