analyze.clj

(set! *print-length* 50)
(set! *warn-on-reflection* true)

;; psykotic's trace-seq functions
   (defn trace-seq* [name xs printer]
     (for [x xs]
       (do (println name "->" (printer x))
           x)))

   (defmacro trace-seq [xs & [printer]]
     `(trace-seq* ~(str xs) ~xs ~(or printer identity)))


(defn find-lines-in-file [#^String text file]
  (filter (fn [#^String line]
            (< 0 (.indexOf line text)))
          (line-seq (reader file)))) ;took out flatten here

(defn parse-outside-ips [coll]
  (remove empty?
          (pmap
           #(rest (re-find #"Deny tcp src outside:(\d+\.\d+\.\d+\.\d+)" %))
           coll)))

; => (("127.0.0.1") ("127.0.0.1") ("123.456.789.0")...)