From 3666866764aaec5ed6f238be5d4191aff9e98d92 Mon Sep 17 00:00:00 2001
From: sostler <sbostler@gmail.com>
Date: Tue, 18 May 2010 23:36:19 -0400
Subject: Switched redirections to / to http://dump.fm

---
 src/site.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/site.clj b/src/site.clj
index 45057b7..cda6dc0 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -334,7 +334,7 @@
    (set-cookie *login-token-key* "dummy"
                :expires "Thu, 01-Jan-1970 00:00:01 GMT"
                :domain ".dump.fm")
-   (redirect-to "/")])
+   (redirect-to "http://dump.fm/")])
 
 ;; Registration
 
@@ -898,7 +898,7 @@ ORDER  BY msg_count DESC")
       (let [info (fetch-nick nick)]
         (update-nick-hash nick hash)
         [(session-assoc-from-db info)
-         (redirect-to "/")])
+         (redirect-to "http://dump.fm/")])
       [200 "BAD_REQUEST"])))
 
 ;; Upload
-- 
cgit v1.2.3-70-g09d2


From e98873d8a6c01c3129d542cf7ed8860ac8e63585 Mon Sep 17 00:00:00 2001
From: Scott Ostler <sostler@Scott-Ostlers-MacBook-Pro.local>
Date: Wed, 19 May 2010 20:55:17 -0400
Subject: Send emails by ssl

---
 src/email.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/email.clj b/src/email.clj
index e2a5f1f..2997827 100644
--- a/src/email.clj
+++ b/src/email.clj
@@ -59,8 +59,8 @@
   (base-mail :user "info@dump.fm"
              :password "UHR4Moghu5a2"
              :host "smtpout.secureserver.net"
-             :port 25
-             :ssl false
+             :port 465
+             :ssl true
              :to [(join to ",")]
              :subject subject
              :text text
-- 
cgit v1.2.3-70-g09d2


From a246187d41cc7f707881762a238440756cd05945 Mon Sep 17 00:00:00 2001
From: scottbot <sbostler@gmail.com>
Date: Wed, 19 May 2010 20:56:55 -0400
Subject: Added scoring to profiles

---
 src/site.clj        | 47 +++++++++++++++++++++++++++++++++++++++++++++--
 template/profile.st |  7 +++++++
 2 files changed, 52 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/site.clj b/src/site.clj
index cda6dc0..11b6859 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -154,7 +154,6 @@
       (assoc m "topic" topic)
       m)))
 
-
 (defn count-messages-by-room [room-id image-only]
   (let [query (str "SELECT COUNT(*)
 		    FROM messages m, users u
@@ -370,6 +369,48 @@
 		    [(session-assoc-from-db db-user)
 		     (resp-success "OK")])))))
 
+;; Fav scores
+
+(def *score-query* "
+SELECT u.nick,
+       COUNT(*) AS cnt
+FROM   tags t,
+       messages m,
+       users u
+WHERE  t.message_id = m.message_id
+       AND m.user_id != t.user_id
+       AND m.user_id = u.user_id
+GROUP  BY u.nick
+ORDER  BY cnt DESC;
+")
+
+(def *scores-resfresh-period-sec* (* 30 60))
+
+(defn compute-scores []
+  (let [res     (do-select [*score-query*])]
+    (zipmap (map :nick res)
+            (map :cnt  res))))
+
+(def *user-scores*
+     (scheduled-agent (no-args-adaptor compute-scores)
+                      *scores-resfresh-period-sec*
+                      {}))
+
+(def *piece-map*
+     (zipmap
+      [:pawn :knight :bishop :rook :queen :king]
+      ["&#9823;" "&#9822;" "&#9821;" "&#9820;" "&#9819;" "&#9818;"]))
+
+(defn score-to-piece [score]
+  (cond (= score 0)    :pawn
+        (< score 50)   :knight
+        (< score 150)  :bishop
+        (< score 300)  :rook
+        (< score 1000) :queen
+        :else :king))
+
+(def score-to-entity (comp *piece-map* score-to-piece))
+
 ;; Profile
 
 (def *zoeee-query* "
@@ -403,7 +444,7 @@ ORDER BY created_on DESC;
                        (if (non-empty-string? v) (escape-html v)))))
     (.setAttribute st "dumps" dumps)
     (.toString st)))
-
+      
 (defn profile [session profile-nick offset]
   (if-let [user-info (fetch-nick profile-nick)]
     (let [st            (fetch-template "profile" session)
@@ -413,6 +454,7 @@ ORDER BY created_on DESC;
           is-home       (and nick (= nick profile-nick))
           has-avatar    (non-empty-string? (user-info :avatar))
           offset        (maybe-parse-int offset 0)
+          score         (or ((poll *user-scores*) profile-nick) 0)
           dump-offset   (* offset *dumps-per-page*)
           raw-dumps     (logger tags/fetch-dumps-by-nick
                                 :nick profile-nick
@@ -431,6 +473,7 @@ ORDER BY created_on DESC;
           (.setAttribute st "dumps" dumps))
         (if (> (count raw-dumps) *dumps-per-page*)
           (.setAttribute st "next" (inc offset)))
+        (.setAttribute st "score_ent" (score-to-entity score))
         (if (not= offset 0)
           (.setAttribute st "prev" (max (dec offset) 0)))
         (.setAttribute st "debug_log_items" (logger))
diff --git a/template/profile.st b/template/profile.st
index 0fe12c9..482665b 100644
--- a/template/profile.st
+++ b/template/profile.st
@@ -66,6 +66,13 @@
 	      <div><img id="bio" src="/static/img/noinfo.png"></div>
 	      $endif$
 
+              $if(score_ent)$
+              <div id="score" style="font-size: 500%">
+              <h3>score</h3>
+              $score_ent$
+              </div>
+              $endif$
+
               $if(is_home)$
               <br>
               <div id="edit-toggle"><a href="#">edit profile</a></div>
-- 
cgit v1.2.3-70-g09d2