OY-5025 Parannettu lokitusta

Opetushallitus · Jan 2, 2025 · c55810b · c55810b
1 parent b5addf4
commit c55810b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/liiteri/preview/preview_generator.clj b/src/liiteri/preview/preview_generator.clj
@@ -33,10 +33,14 @@
       (log/info (format "Generating previews for '%s' with key '%s', uploaded on %s ..." filename file-key uploaded))
       (with-open [input-stream (file-store/get-file storage-engine file-key)]
         (let [preview-timeout-ms    (get-in config [:preview-generator :preview-timeout-ms] 45000)
-              [page-count previews] (.invokeAny timeout-scheduler [#(interface/generate-previews-for-file storage-engine
+              [page-count previews] (.invokeAny timeout-scheduler [#(try
+                                                                      (interface/generate-previews-for-file storage-engine
                                                                           file
                                                                           input-stream
-                                                                          config)] preview-timeout-ms TimeUnit/MILLISECONDS)]
+                                                                          config)
+                                                                      (catch Throwable t
+                                                                        (log/error t "Error in generating previews task")
+                                                                        (throw t)))] preview-timeout-ms TimeUnit/MILLISECONDS)]
           (doseq [[page-index preview-as-byte-array] (map-indexed vector previews)]
             (let [preview-key      (str file-key "." page-index)
                   preview-filename preview-key]
@@ -90,7 +94,7 @@
          (when (generate-next-preview config db storage-engine timeout-scheduler)
            (recur)))
        (catch Throwable t
-         (println "Unexpected throwable!")
+         (log/error t "Unexpected throwable!")
          (.printStackTrace t))))
 
 (defprotocol Generator

diff --git a/src/liiteri/virus_scan.clj b/src/liiteri/virus_scan.clj
@@ -83,6 +83,7 @@
       (log/info "Starting virus scan results polling")
       (a/go-loop []
         (when-let [_ (a/<! times)]
+          (log/info "Polling for virus scan results")
           (while (< 0 (poll-scan-results sqs-poll-results-client result-queue-url db storage-engine config)))
           (recur)))
       (assoc this :chan times