 
 ;;;
 
+
 (defn every-hour [ctx]
-  (check-badges (:connection (u/get-db ctx)) (get-in ctx [:config :factory :url])))
+  (let [h (t/hour (t/now))]
+    (when (and (not= h 14) (not= h 15)) ; skip during afternoon hours
+      (check-badges (:connection (u/get-db ctx)) (get-in ctx [:config :factory :url])))))

            (check-badge db-conn factory-url user-badge)
            (jdbc/execute! db-conn ["UPDATE user_badge SET last_checked = UNIX_TIMESTAMP() WHERE id = ?"
                              (:id user-badge)])
            (catch Throwable ex
              (log/error "check-badges failed")
              (log/error (.toString ex)))))

      :else nil)))

(defn- issuer-verified? [factory-url asr]
  (when (and (string? factory-url) (map? asr) (string/starts-with? (get asr :id "") factory-url))
    (try
      (let [badge (if (map? (:badge asr)) (:badge asr) (http/json-get (:badge asr)))
            issuer-url (if (map? (:issuer badge)) (get-in badge [:issuer :id]) (:issuer badge))
