From ee124f1a698551e8307176e8dfdfb04aa6535bae Mon Sep 17 00:00:00 2001 From: sostler Date: Tue, 4 May 2010 00:11:38 -0400 Subject: Added user-accessible pw reset request --- src/user.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/user.clj') diff --git a/src/user.clj b/src/user.clj index 9d3060f..b948a8f 100644 --- a/src/user.clj +++ b/src/user.clj @@ -37,6 +37,6 @@ "token" token})) (defn valid-reset-link? [nick token ts] - (if-let [info (fetch-nick nick)] + (if-let [info (and nick (fetch-nick nick))] (and (= token (reset-token (info :nick) (info :hash) ts)) - (>= ts (ms-ago (days 2)))))) \ No newline at end of file + (>= ts (ms-ago (days 2)))))) -- cgit v1.2.3-70-g09d2