Added sandboxed Clojure evaluation functionality. Added a launcher and an example policy file. Added a TODO list. All sorts of shit.

Author: Raynes

TODO

@@ -0,0 +1,5 @@
+Clojure eval - sandboxed like a bitch. - DONE
+Spin off threads per user invoked command.
+TIMEOUTS!! - DONE
+Google codesearch
+> as prepend for eval.

example.policy

@@ -0,0 +1,3 @@
+grant {
+  permission java.security.AllPermission;
+};

project.clj

@@ -1,9 +1,12 @@
 (defproject sexpbot "1.0.0-SNAPSHOT"
   :description "FIXME: write"
-  :dependencies [[org.clojure/clojure "1.2.0-master-SNAPSHOT"]
-                 [org.clojure/clojure-contrib "1.2.0-SNAPSHOT"]
+  :dependencies [[org.clojure/clojure "1.1.0"]
+                 [org.clojure/clojure-contrib "1.1.0"]
 		 [pircbot/pircbot "1.4.2"]
 		 [commons-lang/commons-lang "2.5"]
-		 [org.danlarkin/clojure-json "1.1-SNAPSHOT"]]
+		 [org.danlarkin/clojure-json "1.1-SNAPSHOT"]
+		 [clj-time "0.1.0-SNAPSHOT"]
+		 [clj-sandbox "0.1.0-SNAPSHOT"]]
   :dev-dependencies [[swank-clojure "1.1.0"]
-		     [leiningen/lein-swank "1.1.0"]])
+		     [leiningen/lein-swank "1.1.0"]]
+  :main sexpbot.core)

sexpbot

@@ -0,0 +1 @@
+java -cp src/:lib/* clojure.main src/sexpbot/core.clj

src/sexpbot/core.clj

@@ -1,13 +1,12 @@
 (ns sexpbot.core
-  (:use (sexpbot.plugins utils eball google lmgtfy translate)
-	(sexpbot respond)
+  (:use (sexpbot.plugins utils eball google lmgtfy translate eval)
+	sexpbot.respond
 	[clojure.contrib.str-utils :only [re-split]])
   (:import (org.jibble.pircbot PircBot)))
 
-(def botconfig 
-     (ref {:prepend \$
-	   :server "irc.freenode.net"
-	   :channel "#acidrayne"}))
+(def prepend \$)
+(def server "irc.freenode.net")
+(def channels ["#()" "#clojure-casual"])
 
 (defn wall-hack-method [class-name name- params obj & args]
   (-> class-name (.getDeclaredMethod (name name-) (into-array Class params))
@@ -22,7 +21,7 @@
   (let [bot (proxy [PircBot] []
 	      (onMessage 
 	       [chan send login host mess]
-	       (if (= (first mess) (@botconfig :prepend))
+	       (if (= (first mess) prepend)
 		 (respond (merge (split-args (apply str (rest mess)))
 				 {:bot this 
 				  :sender send 
@@ -32,8 +31,7 @@
     (wall-hack-method PircBot :setName [String] bot "sexpbot")
     (doto bot
       (.setVerbose true)
-      (.connect "irc.freenode.net")
-      (.joinChannel "#()"))
-    (dosync (alter botconfig merge {:bot bot}))))
+      (.connect server))
+    (doseq [chan channels] (.joinChannel bot chan))))
 
-(make-bot)
+(make-bot) 

src/sexpbot/plugins/eball.clj

@@ -25,7 +25,7 @@
       "Outlook not so good."
       "Very doubtful."])
 
-(defmethod respond :8ball [{:keys [args bot sender channel]}]
+(defmethod respond :8ball [{:keys [bot sender channel]}]
   (let [answer (rand-int 20)]
     (.sendMessage bot channel (str sender ": " (nth responses answer)))))
 

src/sexpbot/plugins/eval.clj

@@ -0,0 +1,27 @@
+(ns sexpbot.plugins.eval
+  (:use net.licenser.sandbox
+	(sexpbot respond commands)))
+
+(def eval-cmds
+     {"eval" :eval})
+
+(enable-security-manager)
+(def sc (create-sandbox-compiler 'namespace 
+				 *default-sandbox-tester* 
+				 10000))
+
+(def cap 100)
+
+(defn trim [s]
+  (apply str (take cap s)))
+
+(defn execute-text [txt]
+  (try
+   (trim (str ((sc txt) {})))
+   (catch SecurityException _ "DENIED!")
+   (catch Exception e (.getMessage (.getCause e)))))
+
+(defmethod respond :eval [{:keys [bot channel command args]}]
+  (.sendMessage bot channel (->> args (interpose " ") (apply str) execute-text)))
+
+(defmodule eval-cmds :eval)

src/sexpbot/plugins/translate.clj

@@ -1,5 +1,5 @@
 (ns sexpbot.plugins.translate
-  (:use (sexpbot respond commands)
+  (:use (sexpbot respond commands utilities)
 	[clojure.contrib.duck-streams :only [slurp*]])
   (:require [org.danlarkin.json :as json])
   (:import (org.apache.commons.lang StringEscapeUtils)))
@@ -16,7 +16,7 @@
 
 (defmethod respond :translate [{:keys [bot channel args]}]
   (let [[lang-from lang-to & text] args
-	translation (translate lang-from lang-to (apply str (interpose " " text)))]
+	translation (translate lang-from lang-to (stringify text))]
     (if (:responseData translation)
       (.sendMessage bot channel (-> translation 
 				    :responseData 

src/sexpbot/plugins/utils.clj

@@ -1,5 +1,6 @@
 (ns sexpbot.plugins.utils
-  (:use (sexpbot commands respond)))
+  (:use (sexpbot utilities commands respond)
+	(clj-time core format)))
 
 (def known-prefixes
      [\& \+ \@ \% \! \~])
@@ -9,33 +10,40 @@
 		 (apply str (rest x))
 		 x)) users))
 
+(defn pangram? [s]
+  (let [letters (into #{} "abcdefghijklmnopqrstuvwxyz")
+	text (->> s .toLowerCase (filter letters) (into #{}))]
+    (= text letters)))
+
 (def util-cmds
-     {"time" :time
-      "rape" :rape
-      "coin" :coin
-      "help" :help
-      "what" :what})
+     {"time"     :time
+      "rape"     :rape
+      "coin"     :coin
+      "help"     :help
+      "what"     :what
+      "pangram?" :pangram})
 
 (defmethod respond :time [{:keys [bot sender channel]}]
-  (let [time (.toString (java.util.Date.))]
+  (let [time (unparse (formatters :date-time-no-ms) (now))]
     (.sendMessage bot channel (str sender ": The time is now " time))))
 
 (defmethod respond :rape [{:keys [args bot channel]}]
   (let [user-to-rape (if (= (first args) "*") 
-		       (apply str (interpose 
-				   " " 
-				   (drop-modes (map #(.toString %) (.getUsers bot channel)))))
+		       (->> (map #(.toString %) (.getUsers bot channel)) drop-modes stringify)
 		       (first args))]
     (.sendAction bot channel (str "raepz " user-to-rape "."))))
 
 (defmethod respond :coin [{:keys [bot sender channel]}]
   (.sendMessage bot channel (str sender ": " (if (= 0 (rand-int 2)) "Heads." "Tails."))))
 
 (defmethod respond :help [{:keys [bot sender channel]}]
-  (.sendMessage bot channel (str sender ": Help yourself, perverted fuck.")))
+  (.sendMessage bot channel (str sender ": I can't help you, I'm afraid. You can only help yourself.")))
 
 (defmethod respond :what [{:keys [bot channel]}]
   (.sendMessage bot channel "It's AWWWW RIGHT!"))
 
+(defmethod respond :pangram [{:keys [bot channel args]}]
+  (.sendMessage bot channel (-> args stringify pangram? str)))
+
 
 (defmodule util-cmds :utils)

src/sexpbot/respond.clj

@@ -1,5 +1,5 @@
 (ns sexpbot.respond
-  (:use (sexpbot commands)))
+  (:use sexpbot.commands))
 
 (defn find-command [cmds command]
     (if (cmds command) 
@@ -13,7 +13,7 @@
 (defmulti respond cmd-respond)
 
 (defmethod respond :quit [{:keys [bot channel]}]
-  (.sendMessage bot channel "Okay, I'm fucking leaving. Fuck.")
+  (.sendMessage bot channel "I bid thee adieu! Into the abyss I go!")
   (System/exit 0))
 
 (defmethod respond :load [{:keys [bot channel args]}]
@@ -34,7 +34,7 @@
   (.sendMessage bot channel (str (keys (into {} (filter (comp map? second) @commands))))))
 
 (defmethod respond :default [{:keys [bot channel]}]
-  (.sendMessage bot channel "Command not found. Stop fucking with me."))
+  (.sendMessage bot channel "Command not found. You can thank Rayne for this one."))
 
 (defn defmodule [cmd-map m-name]
   (dosync (alter commands merge {m-name cmd-map})

src/sexpbot/utilities.clj

@@ -0,0 +1,4 @@
+(ns sexpbot.utilities)
+
+(defn stringify [coll]
+  (apply str (interpose " " coll)))