         (log-error ex)
         (ring-response-from-exception ex))))
   (GET "/download/:file" [:as {:keys [servlet-request servlet-response log-root]} file & m]
-    ;; We do not use servlet-response here, but do not remove it from the
-    ;; :keys list, or this rule could stop working when an authentication
-    ;; filter is configured.
     (try
       (let [user (.getUserName http-creds-handler servlet-request)]
         (download-log-file file servlet-request servlet-response user log-root))


(defn daemonlog-page [fname start length grep user root-dir]
  (if (or (blank? (*STORM-CONF* UI-FILTER))
        (authorized-log-user? user fname *STORM-CONF*)) ;; how to deal with this???????????
    (let [file (.getCanonicalFile (File. root-dir fname))
          file-length (.length file)
          path (.getCanonicalPath file)

              files-str (for [file log-files]
                          (.getName file))
              reordered-files-str (conj (filter #(not= fname %) files-str) fname)
              log-string (escape-html
                           (if (is-txt-file fname)
                             (if start
                               (page-file path start length)
                               (page-file path length))
