      "[:bar] :percent :done/:total Elapsed :elapseds ETA :etas")
     (prog/config-progress-bar! :width pbar-width)
     (newline)
-    (clog/info (str title ":"))
-    (clog/info (str "Threshold: " threshold ", "
-                    "from: " from " ("
-                    (timef/unparse (:rfc822 timef/formatters)
-                                   (timec/from-long (* from 1000))) ")"))
+    (clog/info (str title (if @inspecting? "..." ":")))
+    (when-not @inspecting?
+      (clog/info (str "Threshold: " threshold ", "
+                      "from: " from " ("
+                      (timef/unparse (:rfc822 timef/formatters)
+                                     (timec/from-long (* from 1000))) ")")))
     (when-not @clog/print-log?
       (println title)
       (prog/init (count paths-rollups)))

  [tenant paths es-url options]
  (try
    (clog/disable-logging!)
    (process-paths tenant paths (pstore/elasticsearch-path-store es-url options)
                   options list-paths-processor)
    (catch Exception e
      (clog/unhandled-error e))))

(defn- check-metric-obsolete
  [mstore tenant from path rollup-def]
  (let [rollup (first rollup-def)
        period (last rollup-def)]
    (clog/info (str "Checking metrics: "
                    "path: " path ", "
                    "rollup: " rollup ", "
                    "period: " period))
    (let [data (mstore/fetch mstore tenant rollup period path from nil 1)
          obsolete? (not (seq data))]
      (if obsolete?

  (pp-get-title [this])
  (pp-process [this path])
  (pp-show-stats [this errors]))

(defn- set-inspecting-on!
  "Set the inspecting flag on."
  []
  (swap! inspecting? (fn [_] true)))

(defn- lookup-paths
  "Lookup paths."
