From 1a9bc49d42cb592f3fb41fae8c6af9b1fe983c41 Mon Sep 17 00:00:00 2001 From: David Barksdale Date: Wed, 30 Dec 2015 22:05:52 -0600 Subject: Add admin page --- src/app/api.clj | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/app/api.clj') diff --git a/src/app/api.clj b/src/app/api.clj index 27ed9a4..432482c 100644 --- a/src/app/api.clj +++ b/src/app/api.clj @@ -24,3 +24,8 @@ assoc-in [(first (.split token "-")) :scores problem] :solved))) + +(defrpc admin-eval! [token expr] + {:rpc/pre (= token (db/get :admin))} + (binding [*ns* (find-ns 'simpledb.core)] + (eval (read-string expr)))) -- cgit v1.2.3-18-g5258