MYOB ODBC 驱动程序使用 Compojure 将工作目录更改为临时目录

Question

我编写了一个内部 web 应用程序，用于将工作卡数据库中的发票导入到 MYOB 中。我使用 Clojure 和 Compojure 编写了它，它实际上运行得很好，这对我来说也是一个很好的学习练习。

但是，我遇到了一个问题，似乎在成功导入发票后，jetty 服务器将不再提供静态 CSS 文件。

defroute如下：（

(defroutes static-routes
  (GET ["/:filename" :filename #".*"] [filename]
       (response/file-response filename {:root "public"})))

该文件只是css/default.css，在第一次导入之前它工作得很好。）

现在我想我已经找到问题了，看来MYOB ODBC驱动程序正在更改的工作目录Jetty 服务器（和我的 REPL），因为当我在 REPL 中输入以下内容时：

(file-seq (File. "."))

我得到了我的临时文件目录的列表，这可以解释为什么不再找到我的 CSS 文件。

奇怪的是，如果我这样做：

(.getAbsolutePath (File. "."))

我会得到应用程序的正确目录。

有谁知道有什么东西（除了在绝对路径中编码之外）可以解决 MYOB ODBC 驱动程序的这个怪癖？

我猜我可以在启动时获取并存储绝对路径，但这适用于 uberjar 吗？

编辑： 由于JVM的限制，似乎无法修复？

如何使用 Clojure 在命令行中更改目录？< /a>

Answer 1

对此似乎确实没有什么可做的。看来 MYOB ODBC 桥很糟糕。

因此，为了解决这个问题，我将相关文件调用替换为使用 .getAbsolutePath。

例如，

(java.io.File. (.getAbsolutePath (java.io.File. "templates/index.html")))

我还更改了它，以便静态文件请求使用绝对文件路径：

(defroutes static-routes
  (GET ["/:filename" :filename #".*"] [filename]
       (response/file-response filename {:root (.getAbsolutePath (java.io.File. "public"))})))

我不只是尝试创建 uberjar，所以我预计可能会遇到一些问题。

---

只是对此进行更新，使用 Compojure 的资源功能似乎完全跳过了问题，在创建 UberJar 时也没有问题。

所以我不再定义“静态路由”，我只是使用：

 (route/resources "/")

并将资源/公共目录中的文件放在项目的根目录中。