 (ns mdr2.archive
   "Main entry point into the archive
 
-For archiving we need to interface with an existing hellish system
+For archiving we need to interface with an existing legacy system
 named agadir. It doesn't do very much in very complicated ways.
 Probably best to replace it at some point. In the mean time we try to
 stay away from it and not to change too much. From reading the source

  archive spool dir"
  [production]
  (let [archive-path (container-path production)]
    (if (fs/exists? archive-path)
      (log/error "Container-path %s already exists" archive-path)
      (fs/copy-dir (path/recorded-path production) (container-path production)))))

(defn copy-distribution-master-files
  "Copy a production to the archive spool dir"

        ;; FIXME: This will fail in the light of multiple isos
        iso-archive-name (str (container-id production) ".iso")
        iso-archive-path (.getPath (file archive-path iso-archive-name))]
    (fs/copy+ (path/iso-name production) iso-archive-path))) ; FIXME: Multi-CD

(defn create-rdf
  "Create an rdf file and place it in the archive spool directory"
