From 0c9cbc22f710237166445e8869545ad8152c7039 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Sat, 10 Jul 2010 01:34:12 -0400 Subject: added report viewer --- src/utils.clj | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/utils.clj') diff --git a/src/utils.clj b/src/utils.clj index 607343e..4a3343f 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -294,7 +294,17 @@ (defn is-vip? [session] (session :is_admin)) +(def super-vips #{"timb" "scottbot" "ryder"}) + +(defn is-super-vip? [session] + (contains? super-vips (:nick session))) + (defmacro if-vip [e] "Evaluates expr if user is vip otherwise returns 404. Can only be used where session is defined." `(if (is-vip? ~'session) ~e (unknown-page))) + +(defmacro if-super-vip [e] + "Evaluates expr if user is vip otherwise returns 404. Can only be used + where session is defined." + `(if (is-super-vip? ~'session) ~e (unknown-page))) -- cgit v1.2.3-70-g09d2