diff options
| author | sostler <sbostler@gmail.com> | 2010-04-26 22:06:56 -0400 |
|---|---|---|
| committer | sostler <sbostler@gmail.com> | 2010-04-26 22:06:56 -0400 |
| commit | a547b0c44c0fdbd04f5eec18f866c8959de43dab (patch) | |
| tree | 460ab5cc5de6903f4fac542089356bc29cc663d0 /src/utils.clj | |
| parent | 261c45adad88af2180005cd28fa4c7eff556999a (diff) | |
Added reserved-nick check to registration
Diffstat (limited to 'src/utils.clj')
| -rwxr-xr-x | src/utils.clj | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/src/utils.clj b/src/utils.clj index 16cd28d..f42746c 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -224,10 +224,6 @@ (< (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 (lower-case nick)])) 0))) - (defn fetch-nick [nick] (let [q1 "SELECT * FROM users WHERE nick = ? LIMIT 1" ; ORDER BY ensures consistent retrieval of ambiguious names |