Update clojail. Should fix timeouts.

Raynes · Raynes · commit 5b83f3faa898 · 2012-09-04T21:44:16.000-05:00
diff --git a/project.clj b/project.clj
@@ -3,7 +3,7 @@
   :dependencies [[org.clojure/clojure "1.4.0"]
                  [compojure "1.1.0"]
                  [hiccup "1.0.0"]
-                 [clojail "0.5.1"]
+                 [clojail "1.0.1"]
                  [lib-noir "0.1.1"]
                  [congomongo "0.1.9"]
                  [org.jasypt/jasypt "1.7"]
diff --git a/src/foreclojure/problems.clj b/src/foreclojure/problems.clj
@@ -14,7 +14,7 @@
             [foreclojure.users        :only    [golfer? get-user-id disable-codebox?]]
             [foreclojure.solutions    :only    [save-solution get-solution]]
             [clojail.core             :exclude [safe-read]]
-            [clojail.testers          :only    [secure-tester]]
+            [clojail.testers          :only    [secure-tester blacklist-symbols]]
             [somnium.congomongo       :only    [update! fetch-one fetch fetch-and-modify destroy!]]
             [hiccup.form              :only    [form-to text-area hidden-field label text-field drop-down]]
             [hiccup.element           :only    [link-to]]
@@ -163,7 +163,9 @@
 (def restricted-list '[use require in-ns future agent send send-off pmap pcalls])
 
 (defn get-tester [restricted]
-  (into secure-tester (concat restricted-list (map symbol restricted))))
+  (conj secure-tester
+        (blacklist-symbols (set (concat restricted-list
+                                        (map symbol restricted))))))
 
 (def sb (sandbox*))
 
