From 064860c2948c19b967e15baf081daed93d77e7b8 Mon Sep 17 00:00:00 2001 From: Jules Laplace Date: Sat, 29 Dec 2012 23:32:47 -0500 Subject: check if ip created an account --- src/site.clj | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src') 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] -- cgit v1.2.3-70-g09d2