Cascalog print auditd log file

print_file.clj

(ns aud_cas.print_file
  (:use cascalog.api))

(defn print-file
  "Use cascalog to print a file"
  [file-path]
  (let [file-tap (lfs-textline file-path)]
    (?<- (stdout) [?line] (file-tap :> ?line))))

(defn -main
  "Entry point"
  [file-path]
  (println "Printing file" file-path)
  (print-file file-path)
  )