diff options
| author | Scott Ostler <scottbot9000@gmail.com> | 2011-07-21 22:35:19 -0400 |
|---|---|---|
| committer | Scott Ostler <scottbot9000@gmail.com> | 2011-07-21 22:35:19 -0400 |
| commit | fd7329a76f93263834f359546dad5bf32162f1bf (patch) | |
| tree | c76929b63fee5c1d08fde1a08e8eca6cf0022d82 /src/user.clj | |
| parent | d64fae424115a12a5d21bcc597bc649a02bd2286 (diff) | |
Fix bad user caching
Diffstat (limited to 'src/user.clj')
| -rw-r--r-- | src/user.clj | 6 |
1 files changed, 5 insertions, 1 deletions
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] |