solussd · January 11, 2012 15:19 · Jan 11, 2012
diff --git a/gistfile1.clj b/gistfile1.clj
@@ -0,0 +1,9 @@
+(defn generate-file-audit-xml
+  "Takes a seq of DirectoryRecords that contains the file audit and outputs an XML string with a
+  top level element with the value of file-audit/audit-rootkey"
+  [directory-records]
+  {:pre [(sequential? directory-records)]}
+  (let [out *out*]
+    (-> (binding [*out* out] {:tag audit-rootkey :attrs {} :content (map to-xml-struct directory-records)}) 
+      xml/emit
+      with-out-str)))