clear disk-cache between invocations

Author: refset

src/clj/xt_play/lambda.clj

@@ -5,13 +5,29 @@
   (:require [muuntaja.core :as m]
             [clojure.java.io :as io]
             [clojure.string :as str]
+            [clojure.tools.logging :as log]
             [xtdb.api :as xt]
             [xtdb.node :as xtn]
             [xt-play.config :as config]
             [xt-play.base64 :as b64]
             [xt-play.handler :as h]))
 
+(defn- clear-directory
+  "Recursively delete all contents of a directory"
+  [^java.io.File dir]
+  (when (.exists dir)
+    (doseq [file (.listFiles dir)]
+      (if (.isDirectory file)
+        (do
+          (clear-directory file)
+          (.delete file))
+        (.delete file)))
+    (log/info "Cleared disk cache directory:" (.getPath dir))))
+
 (defn -init []
+  ; Clear disk cache from previous Lambda container executions
+  (clear-directory (io/file "/tmp/xtdb-cache"))
+
   ; NOTE: This ensure xtdb is warmed up before starting the server
   ;       Otherwise, the first few requests will time out
   (with-open [node (xtn/start-node config/node-config)]