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 +++- static/register.html | 85 ++++++++++++++++++++++++++++++------------------- static/registerdis.html | 67 -------------------------------------- 3 files changed, 58 insertions(+), 101 deletions(-) delete mode 100644 static/registerdis.html 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] diff --git a/static/register.html b/static/register.html index 7ccf80d..0382d56 100644 --- a/static/register.html +++ b/static/register.html @@ -1,48 +1,67 @@ - - + - - + + - - + + + + dump.fm - register - + + +
+
-
-
+
-
+
+ +
+
+ +
+ + +
+ + + +
+ + + + + + -
-
-
- -
- - -
-
-
+ + +
+ + +
+
+
+
+
+
- - + + - + diff --git a/static/registerdis.html b/static/registerdis.html deleted file mode 100644 index 6343f59..0000000 --- a/static/registerdis.html +++ /dev/null @@ -1,67 +0,0 @@ - - - - - - - - - - - - - dump.fm - register - - -
-
- -
- -
- -
-
- -
- - -
- - - -
- - - - - - - - - -
- - -
- -
-
-
-
-
- - - - - - -- cgit v1.2.3-70-g09d2