From 060d0a20fa9d8e1e0c9f9cb5218ef37b46015301 Mon Sep 17 00:00:00 2001 From: sostler Date: Thu, 8 Apr 2010 05:04:06 -0400 Subject: Added case-insensitive username registration; double pw --- 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 e3830c0..b5b4eb8 100755 --- a/src/site.clj +++ b/src/site.clj @@ -105,8 +105,8 @@ (not (re-matches nick-regex n)) "NICK_INVALID_CHARS")) (defn fetch-nick [nick] - (let [query "SELECT * FROM users WHERE nick = ? LIMIT 1"] - (first (do-select [query nick])))) + (let [query "SELECT * FROM users WHERE LOWER(nick) = ? LIMIT 1"] + (first (do-select [query (s/lower-case nick)])))) (defn authorize-nick-hash [nick hash] (let [db-user (fetch-nick nick)] -- cgit v1.2.3-70-g09d2