check if ip created an account

1 files changed, 6 insertions, 1 deletions

diff --git a/src/site.clj b/src/site.clj
index e47e121..a114cf4 100644
--- a/src/site.clj
+++ b/src/site.clj
@@ -293,6 +293,10 @@ WHERE  user_id IN
                               (do-select [muted-ips-query])))]
     (contains? muted-ips ip)))
 
+; this should check if the user was created in the last day i guess
+(defn ip-recently-created? [ip]
+  (> (count (do-select ["select count(*) from users where created_ip=?::cidr" (str ip)] )) 1))
+
 (def *reserved-nicks-path* "docs/reserved_nicks.txt")
 (def *reserved-nicks-refresh-period-sec* 300)
 
@@ -317,7 +321,8 @@ WHERE  user_id IN
         invalid-nick-reason (is-invalid-nick? nick)]
     (cond invalid-nick-reason     (resp-error invalid-nick-reason)
 	  (nick-reserved? nick)   (resp-error "NICK_TAKEN")
-          (ip-recently-muted? ip) (resp-error "RECENTLY_MUTED")
+    (ip-recently-muted? ip) (resp-error "RECENTLY_MUTED")
+    (ip-recently-created? ip) (resp-error "RECENTLY_CREATED")
 	  :else (do
                   (do-insert :users
                              [:nick :hash :email]