 
 (defn extract-id
   [line]
-  (second (re-find #"^\./dam(\d+)" line)))
+  (parse-int (or (second (re-find #"^\./dam(\d+)" line)) "0")))
 
 (defn files-by-id
   [f]

(defn struct-file? [f] (re-matches #".*/struct.html$" f))
(defn obi-project? [f] (re-matches #".*/project.obi$" f))

(def abacus-csv "/home/eglic/src/mdr2/samples/ABACUS_export_Books_27032015.csv")
(def all-productions (-> abacus-csv io/file productions))
(def file-dump "/home/eglic/src/mdr2/samples/miloun_files.txt")
(def all-files-by-id (-> file-dump io/file files-by-id))

(defn to-millis

            [clojure.string :as string]
            [clojure.set :refer [rename-keys]]
            [clojure.java.jdbc :as jdbc]
            [org.tobereplaced.nio.file :as nio]
            [environ.core :refer [env]]
            [mdr2.production :as prod]
            [mdr2.dtbook :as dtbook]
            [mdr2.production.path :as path]
            [immutant.transactions.jdbc :refer [factory]]))

(def ^:private db {:factory factory :name "java:jboss/datasources/productions"})
(def ^:private old-db {:factory factory :name "java:jboss/datasources/old-productions"})
(def ^:private archive-db {:factory factory :name "java:jboss/datasources/archive"})

(def abacus-csv "/home/eglic/src/mdr2/samples/ABACUS_export_Books_27032015.csv")
(def file-dump "/home/eglic/src/mdr2/samples/miloun_files.txt")
(def move-script "/home/eglic/src/mdr2/samples/move-productions.sh")
(def old-production-root "/path/to/old/productions")

(defn parse-int [s] (Integer/parseInt s))
(defn production-id? [id] (let [match (re-matches #"DAM (\d+)$" id)] (when match (parse-int (second match)))))
