 
 (defmethod process-command! [(command-names :store-report) 1]
   [{:keys [version] :as command} {:keys [db]}]
-  (log/warn "command 'store report' version 1 is deprecated, use the latest version")
+  (warn-deprecated version "store report")
   (store-report* 1 db command))
 
 (defmethod process-command! [(command-names :store-report) 2]
   [{:keys [version] :as command} {:keys [db] :as config}]
+  (warn-deprecated version "store report")
   (store-report* 2 db command))
 
 (defmethod process-command! [(command-names :store-report) 3]

        (scf-storage/replace-catalog! catalog timestamp catalog-hash-debug-dir)))
    (log/info (format "[%s] [%s] %s" id (command-names :replace-catalog) certname))))

(defmethod process-command! [(command-names :replace-catalog) 1]
  [{:keys [version payload] :as command} options]
  (log/warn "command 'replace catalog' version 1 is deprecated, use the latest version")
  (when-not (string? payload)
    (throw (IllegalArgumentException.
             (format "Payload for a '%s' v1 command must be a JSON string."


(defmethod process-command! [(command-names :replace-catalog) 2]
  [{:keys [version] :as  command} options]
  (warn-deprecated version "replace catalog")
  (replace-catalog* command options))

(defmethod process-command! [(command-names :replace-catalog) 3]
  [{:keys [version] :as  command} options]
  (warn-deprecated version "replace catalog")
  (replace-catalog* command options))

(defmethod process-command! [(command-names :replace-catalog) 4]
