fixes #104 by adding support for properties as env vars

Signed-off-by: Sean Corfield <[email protected]>

README.md

@@ -40,7 +40,7 @@ clojure -M:clj-watson scan -p deps.edn
 The first time it runs, it will download the entire vulnerability database, which
 can take several minutes. Subsequent runs will be much faster.
 
-> [!NOTE] 
+> [!NOTE]
 > The database is stored in the `/tmp/db/` folder (on macOS/Linux) - in case you ever need to delete that folder, if it looks like the database is corrupted.
 
 `clj-watson` can also be installed as a Clojure CLI tool:
@@ -105,7 +105,8 @@ It is easy to [request an API key](https:/jeremylong/DependencyCheck
 You can specify you key via:
 
 1. The `nvd.api.key` Java system property on the command line
-2. Or, an `nvd.api.key` entry in your `clj-watson.properties` file
+2. Or, the `CLJ_WATSON_NVD_API_KEY` environment variable
+3. Or, an `nvd.api.key` entry in your `clj-watson.properties` file
 
 > [!CAUTION]
 > Keeping your nvd api key secret is your responsibility.
@@ -129,7 +130,39 @@ clojure -J-Dnvd.api.key=<your key here> -Tclj-watson scan :p deps.edn
 Replace `<your key here>` with your actual api key.
 
 > [!CAUTION]
-> You could specify this system property under `:jvm-opts` in your `deps.edn` under your `:clj-watson` alias, but be careful not to commit it to version control. 
+> You could specify this system property under `:jvm-opts` in your `deps.edn` under your `:clj-watson` alias, but be careful not to commit it to version control.
+
+##### Via Environment Variable
+
+Example usage:
+
+```shell
+CLJ_WATSON_NVD_API_KEY=<your key here> clojure -M:clj-watson scan -p deps.edn
+```
+
+Or:
+
+```shell
+export CLJ_WATSON_NVD_API_KEY=<your key here>
+
+clojure -M:clj-watson scan -p deps.edn
+```
+
+Or:
+
+```shell
+CLJ_WATSON_NVD_API_KEY=<your key here> clojure -Tclj-watson scan :p deps.edn
+```
+
+Or:
+
+```shell
+export CLJ_WATSON_NVD_API_KEY=<your key here>
+
+clojure -Tclj-watson scan :p deps.edn
+```
+
+Replace `<your key here>` with your actual api key.
 
 ##### Via the `clj-watson.properties` File
 
@@ -154,7 +187,7 @@ Or:
 clojure -Tclj-watson scan :p deps.edn :clj-watson-properties ./clj-watson.properties
 ```
 
-> [!CAUTION] 
+> [!CAUTION]
 > Be careful not to commit your key to version control.
 
 ### GitHub Advisory Database [experimental]
@@ -233,7 +266,7 @@ the `--suggest-fix` or `-s` option when running `clj-watson`.
 # Installation
 
 > [!IMPORTANT]
-> You'll need to [setup your NVD API key](#nist-nvd-api). 
+> You'll need to [setup your NVD API key](#nist-nvd-api).
 
 `clj-watson` can be installed as a Clojure CLI tool, as shown above. While
 this is the easiest way to install the latest version and keep it up-to-date
@@ -309,6 +342,8 @@ OPTIONS valid when database-strategy is dependency-check:
  See docs for configuration. [false]
 ```
 
+## Properties
+
 By default, when using the DEPENDENCY-CHECK strategy, `clj-watson` will load
 its own `dependency-check.properties` file, and then look for a
 `clj-watson.properties` file on the classpath and load that if found, for
@@ -324,14 +359,32 @@ that file and apply those properties to the dependency-check scan. This is
 in addition to the properties loaded from the `dependency-check.properties`
 or the `-d` file. This can be useful to override just a few properties.
 
+In addition, relevant properties provided as Java system properties are
+read by the underlying DependencyCheck scan, and take precedence over the
+properties provided in these files. See the `-Dnvd.api.key=` example above.
+
+## Environment Variables
+
+`clj-watson` also supports environment variables that start with `CLJ_WATSON_`.
+These are used to set properties that are not provided on the command line.
+The `CLJ_WATSON_` prefix is removed, and the rest of the name is converted to
+a lowercase property name with `_` replaced by `.` (e.g., `CLJ_WATSON_NVD_API_KEY`).
+To specify a property name that contains an underscore, use two underscores
+in the environment variable name, e.g., `CLJ_WATSON_DATA_FILE__NAME` to
+set the `data.file_name` property.
+
+Properties set via environment variables take precedence over those set in
+the properties files described above, but not over Java system properties
+set on the command-line.
+
 # Execution
 
 The minimum needed to run `clj-watson` is to provide the path to a `deps.edn`
 file, but it is recommended that you also provide the `-s` option so
 `clj-watson` will try to suggest remediations for any vulnerabilities found.
 
 > [!IMPORTANT]
-> You'll need to first [setup your NVD API key](#nist-nvd-api). 
+> You'll need to first [setup your NVD API key](#nist-nvd-api).
 
 ```bash
 clojure -M:clj-watson -p deps.edn
@@ -383,6 +436,7 @@ It writes settings and vulnerability findings to `stdout`.
 # Who uses it
 
 - [180 Seguros](https://180s.com.br)
+- [org.clojure/tools.deps](https:/clojure/tools.deps)
 - [World Singles Networks](https://worldsinglesnetworks.com/)
 
 # Development

src/clj_watson/controller/dependency_check/scanner.clj

@@ -21,16 +21,41 @@
  ;; ensure (fake) API key is redacted:
  (sanitize-property "nvd.api.key=72a48765-90ab-5678-abcd-1234abcd5489"))
 
+(defn ^:private env-var->property [env-var]
+ (-> env-var
+ (string/replace #"^CLJ_WATSON_" "") ; strip prefix
+ (string/lower-case) ; lowercase
+ (string/replace "_" ".") ; _ -> .
+ (string/replace ".." "_"))) ; allow __ -> .. -> _
+
+(comment
+ (env-var->property "CLJ_WATSON_NVD_API_KEY")
+ (env-var->property "CLJ_WATSON_DATA_FILE__NAME")
+ )
+
+(defn ^:private set-watson-env-vars-as-properties []
+ (run! (fn [[env-var value]]
+ (when (string/starts-with? env-var "CLJ_WATSON_")
+ (let [property (env-var->property env-var)
+ p-value (System/getProperty property)]
+ (if p-value
+ (println (str "Ignoring " env-var " as " property " is already set."))
+ (do
+ (println (str "Setting " property " from " env-var "."))
+ (System/setProperty property value))))))
+ (System/getenv))
+ (println))
+
 (defn ^:private create-settings [^String properties-file-path ^String additional-properties-file-path]
- (let [settings (Settings.)]
- (let [props
-  (if properties-file-path
-  (->> properties-file-path File.)
-  (->> "dependency-check.properties" io/resource))]
-  (println (str "\nRead " (count (line-seq (io/reader props))) " dependency-check properties."))
-  (if properties-file-path
-  (->> props (.mergeProperties settings))
-  (->> props slurp .getBytes ByteArrayInputStream. (.mergeProperties settings))))
+ (let [settings (Settings.)
+  props
+ (if properties-file-path
+ (->> properties-file-path File.)
+ (->> "dependency-check.properties" io/resource))]
+ (println (str "\nRead " (count (line-seq (io/reader props))) " dependency-check properties."))
+ (if properties-file-path
+ (->> props (.mergeProperties settings))
+ (->> props slurp .getBytes ByteArrayInputStream. (.mergeProperties settings)))
  (if-let [add-props
  (if additional-properties-file-path
  (->> additional-properties-file-path File.)
@@ -50,6 +75,7 @@
  (->> add-props (.mergeProperties settings))
  (some->> add-props slurp .getBytes ByteArrayInputStream. (.mergeProperties settings))))
  (println "No additional properties found.\n"))
+ (set-watson-env-vars-as-properties)
  settings))
 
 (defn ^:private validate-settings