From b79243c7d06987672cffea75695e1036911dac13 Mon Sep 17 00:00:00 2001 From: sostler Date: Wed, 14 Apr 2010 07:04:20 -0400 Subject: Mute file uploads --- src/admin.clj | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'src/admin.clj') diff --git a/src/admin.clj b/src/admin.clj index 7bde945..0253734 100644 --- a/src/admin.clj +++ b/src/admin.clj @@ -50,9 +50,9 @@ (def *mute-refresh-period-sec* 60) (def fetch-mutes-query " -SELECT mutes.*, ((set_on + duration)) AS expiry -FROM mutes -WHERE (set_on + duration) > now() +SELECT mutes.*, (set_on + duration) AS expiry +FROM mutes +WHERE (set_on + duration) > now() AND NOT is_canceled ") @@ -91,3 +91,8 @@ AND NOT is_canceled user-id admin-id duration reason)] (and (do-cmds q) "OK")))))) + +(defn format-mute [mute] + (format (str "I'm sorry, you've been muted for %s. " + "You'll be able to post again on %s EST.") + (mute :reason) (mute :expiry))) -- cgit v1.2.3-70-g09d2