From 956291711de6afb17137160a67ac710be0ace1e1 Mon Sep 17 00:00:00 2001
From: sostler <sbostler@gmail.com>
Date: Thu, 8 Apr 2010 05:33:14 -0400
Subject: Re-added case-insensitive nick check

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

(limited to 'src/site.clj')

diff --git a/src/site.clj b/src/site.clj
index ef4e773..3a59264 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -104,6 +104,10 @@
    (< (count n) 3) "NICK_TOO_SHORT"
    (not (re-matches nick-regex n)) "NICK_INVALID_CHARS"))
 
+(defn check-nick [nick]
+  (let [query "SELECT * FROM users WHERE LOWER(nick) = ? LIMIT 1"]
+    (> (count (do-select [query (s/lower-case nick)])) 0)))
+
 (defn fetch-nick [nick]
   (let [query "SELECT * FROM users WHERE nick = ? LIMIT 1"]
     (first (do-select [query nick]))))
@@ -328,7 +332,7 @@
         hash (params :hash)
 	invalid-nick-reason (is-invalid-nick? nick)]
     (cond invalid-nick-reason (resp-error invalid-nick-reason)
-	  (fetch-nick nick) (resp-error "NICK_TAKEN")
+	  (check-nick nick) (resp-error "NICK_TAKEN")
 	  :else (with-connection *db*
 		  (insert-values :users
 				 [:nick :hash :email]
-- 
cgit v1.2.3-70-g09d2