 
 
 (defn get-files
-  [{:keys [link db-path python-path duration-path hubzilla out-oggs-path]}]
-  (log/info "getting files" link out-oggs-path db-path)
-  (->>   (process-dir! link db-path python-path duration-path  hubzilla out-oggs-path)
+  [{:keys [rss-base-url db-path python-path duration-path hubzilla out-oggs-path]}]
+  (log/info "getting files" rss-base-url out-oggs-path db-path)
+  (->>   (process-dir! rss-base-url db-path python-path duration-path  hubzilla out-oggs-path)
          (sort-by :title)
          reverse))
 

                   (log/trace "checking db for file" f)
                   (if-let [found (->> db (filter #(= (:basename %) f)) first)]
                     (do (log/trace "found" found) found)
                     (let [munged (process-file link dirpath python-path duration-path f)]
                       (assoc munged :post-future (future (try
                                                            (hubzilla/post-to-hubzilla hubzilla munged)
                                                            (catch Exception e



(defn process-file
  [rss-base-url dirpath python-path duration-path f]
  (let [[y m d show & _ ] (st/split f #"-")
        full-file (str dirpath "/" f)]
    (log/trace "processing" full-file "->" show)
