|
8 | 8 |
|
9 | 9 | (def err-exit-status 2) |
10 | 10 |
|
11 | | -;; FIXME: maybe change this to rely on java.lang.Runtime$Version for |
12 | | -;; jdk > 8 (cf. pdb-jdk-ver in project.clj). |
13 | | - |
14 | 11 | ;; Testing hook |
15 | 12 | (defn java-version [] (System/getProperty "java.version")) |
16 | 13 |
|
17 | | -(def supported-java-version "17") |
18 | | - |
19 | 14 | (defn jdk-support-status |
20 | | - "Returns :official, :tested, :deprecated, :unknown, or :no." |
| 15 | + "Returns :official, :tested, :deprecated, :unknown, or :unsupported." |
21 | 16 | [version] |
22 | 17 | (cond |
23 | | - (re-matches #"1\.[1234567]($|(\..*))" version) :no |
| 18 | + (re-matches #"1\.[1234567]($|(\..*))" version) :unsupported |
24 | 19 | (re-matches #"1\.[89]($|(\..*))" version) :deprecated |
25 | 20 | (re-matches #"10($|(\..*))" version) :deprecated |
26 | | - (re-matches (re-pattern (str supported-java-version "($|(\\..*))")) version) :official |
27 | 21 | (re-matches #"11($|(\..*))" version) :tested |
| 22 | + (re-matches #"17($|(\..*))" version) :official |
| 23 | + (re-matches #"21($|(\..*))" version) :tested |
28 | 24 | :else :unknown)) |
29 | 25 |
|
30 | 26 | (defn jdk-unsupported-msg [version] |
31 | 27 | (let [status (jdk-support-status version)] |
32 | 28 | (case status |
33 | | - (:unknown) {:warn (trs "JDK {0} is neither tested nor supported. Please use JDK {1}" version supported-java-version)} |
34 | | - (:deprecated) {:warn (trs "JDK {0} is deprecated, please upgrade to JDK {1}" version supported-java-version)} |
| 29 | + (:unknown) {:warn (trs "JDK {0} is neither tested nor supported. Please use JDK 11, 17 or 21" version)} |
| 30 | + (:deprecated) {:warn (trs "JDK {0} is deprecated, please upgrade to JDK 11, 17 or 21" version)} |
35 | 31 | (:official :tested) nil |
36 | 32 | {:error (trs "PuppetDB doesn''t support JDK {0}" version)}))) |
37 | 33 |
|
|
0 commit comments