File tree Expand file tree Collapse file tree 2 files changed +5
-3
lines changed Expand file tree Collapse file tree 2 files changed +5
-3
lines changed Original file line number Diff line number Diff line change 3
3
:dependencies [[org.clojure/clojure " 1.4.0" ]
4
4
[compojure " 1.1.0" ]
5
5
[hiccup " 1.0.0" ]
6
- [clojail " 0.5 .1" ]
6
+ [clojail " 1.0 .1" ]
7
7
[lib-noir " 0.1.1" ]
8
8
[congomongo " 0.1.9" ]
9
9
[org.jasypt/jasypt " 1.7" ]
Original file line number Diff line number Diff line change 14
14
[foreclojure.users :only [golfer? get-user-id disable-codebox?]]
15
15
[foreclojure.solutions :only [save-solution get-solution]]
16
16
[clojail.core :exclude [safe-read]]
17
- [clojail.testers :only [secure-tester]]
17
+ [clojail.testers :only [secure-tester blacklist-symbols ]]
18
18
[somnium.congomongo :only [update! fetch-one fetch fetch-and-modify destroy!]]
19
19
[hiccup.form :only [form-to text-area hidden-field label text-field drop-down]]
20
20
[hiccup.element :only [link-to]]
163
163
(def restricted-list '[use require in-ns future agent send send-off pmap pcalls])
164
164
165
165
(defn get-tester [restricted]
166
- (into secure-tester (concat restricted-list (map symbol restricted))))
166
+ (conj secure-tester
167
+ (blacklist-symbols (set (concat restricted-list
168
+ (map symbol restricted))))))
167
169
168
170
(def sb (sandbox* ))
169
171
You can’t perform that action at this time.
0 commit comments