Added case-insensitive username registration; double pw

1 files changed, 2 insertions, 2 deletions

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)]