     (.format format (.getTime one-hour-ago))))
     
 (def yyyymmdd (SimpleDateFormat. "yyyyMMdd"))
-
-(doto (Calendar/getInstance) (.add Calendar/HOUR -1))
 
 ;(defn result-file [bits mode]
 ;  (File. micromanager (str "/result" bits (name mode) ".txt")))

        pattern (re-pattern (str "MMSetup" bits "BIT_[^\\s]+?_" date-token ".exe"))]
    (re-find pattern txt)))

(defn str-lines [sequence]
  (apply str (interpose "\n" sequence)))


  (let [f (result-file bits mode)
        result-txt (slurp f)
        vs-error-text (visual-studio-error-text result-txt)
        outdated-dlls (old-dlls (bin-dir bits) 24)
        javac-errs (javac-errors result-txt)
        outdated-jars (old-jars (File. micromanager "Install_AllPlatforms") 24)
        installer-ok (exe-on-server? bits today-token)
        missing-adapters (missing-device-adapters bits)]
    (when-not (and (empty? vs-error-text) (empty? outdated-dlls)
                   (empty? javac-errs) (empty? outdated-jars)
                   installer-ok)
