From 73443969b5e98713e1bd36b0b524f60b77a0ad53 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Tue, 2 Nov 2010 19:35:32 -0400 Subject: Disable room log for non-vips --- src/utils.clj | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/utils.clj') diff --git a/src/utils.clj b/src/utils.clj index 08b06ab..1a9e09e 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -426,10 +426,13 @@ (defn is-super-vip? [session] (contains? super-vips (:nick session))) -(defmacro if-vip [e] +(defmacro if-vip "Evaluates expr if user is super-vip otherwise returns 404. Can only be used where session is defined." - `(if (is-vip? ~'session) ~e (unknown-page))) + ([e] + `(if (is-vip? ~'session) ~e (unknown-page))) + ([e alt] + `(if (is-vip? ~'session) ~e ~alt))) (defmacro if-super-vip [e] "Evaluates expr if user is super-vip otherwise returns 404. Can only be used -- cgit v1.2.3-70-g09d2