diff options
| author | David Barksdale <amatus@amatus.name> | 2015-12-30 22:05:52 -0600 |
|---|---|---|
| committer | David Barksdale <amatus@amatus.name> | 2015-12-30 22:05:52 -0600 |
| commit | 1a9bc49d42cb592f3fb41fae8c6af9b1fe983c41 (patch) | |
| tree | 2a326c75acf946880be2230bc9a89fdc56f6bdab /src/app/api.clj | |
| parent | bde7e66ce48b1db0a65ad4ccaceef96271d1b90d (diff) | |
Add admin page
Diffstat (limited to 'src/app/api.clj')
| -rw-r--r-- | src/app/api.clj | 5 |
1 files changed, 5 insertions, 0 deletions
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)))) |