From fd7329a76f93263834f359546dad5bf32162f1bf Mon Sep 17 00:00:00 2001
From: Scott Ostler <scottbot9000@gmail.com>
Date: Thu, 21 Jul 2011 22:35:19 -0400
Subject: Fix bad user caching

---
 src/user.clj | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/user.clj')

diff --git a/src/user.clj b/src/user.clj
index c516fd2..25e1824 100644
--- a/src/user.clj
+++ b/src/user.clj
@@ -20,6 +20,10 @@
 
 ;;; User info cache
 
+(defn fetch-nick-uncached [nick]
+  (first (do-select ["SELECT * FROM users WHERE lower(nick) = ? LIMIT 1"
+                     (lower-case nick)])))
+
 (defn-cached fetch-nick-cached
   (lru-cache-strategy 2000)
   "Retrieves user info from database"
@@ -44,7 +48,7 @@
 ;; user login
 
 (defn authorize-nick-hash [nick hash]
-  (if-let [db-user (fetch-nick nick)]
+  (if-let [db-user (fetch-nick-uncached nick)]
     (and (= (db-user :hash) hash) db-user)))
 
 (defn update-nick-hash [nick hash]
-- 
cgit v1.2.3-70-g09d2