85 lines
2.9 KiB
Clojure
85 lines
2.9 KiB
Clojure
(ns user
|
|
(:require [babashka.pods :as pods]
|
|
[clojure.edn :as edn]
|
|
[babashka.pods.impl :as impl]))
|
|
|
|
(defn load-pod
|
|
([pod-spec] (load-pod pod-spec nil))
|
|
([pod-spec version opts] (load-pod pod-spec (assoc opts :version version)))
|
|
([pod-spec opts]
|
|
(let [opts (if (string? opts)
|
|
{:version opts}
|
|
opts)
|
|
pod (impl/load-pod
|
|
pod-spec
|
|
(merge {:remove-ns remove-ns
|
|
:resolve (fn [sym]
|
|
(or (resolve sym)
|
|
(intern
|
|
(create-ns (symbol (namespace sym)))
|
|
(symbol (name sym)))))}
|
|
opts))]
|
|
(future (impl/processor pod))
|
|
{:pod/id (:pod-id pod)})))
|
|
|
|
(comment
|
|
(pods/load-pod 'docker.tools "0.1.0")
|
|
(pods/load-pod "result/bin/babashka-pod-docker")
|
|
(pods/load-pod "result/bin/entrypoint")
|
|
|
|
(require '[docker.tools :as docker])
|
|
|
|
(pods/unload-pod {:pod/id "docker.tools"})
|
|
|
|
;; ignore patterns
|
|
(def patterns (docker/dockerignore-patterns (slurp "/Users/slim/vonwig/nodejs-service/.dockerignore")))
|
|
(docker/dockerignore-matches (assoc patterns :path "node_modules/hey"))
|
|
(docker/dockerignore-matches (assoc patterns :path "nodes"))
|
|
(docker/dockerignore-matches (assoc patterns :path "Dockerfile"))
|
|
(docker/dockerignore-matches (assoc patterns :path "blah/crap/npm-debug.log"))
|
|
(docker/dockerignore-matches (assoc patterns :path "blah/.vscode/hello.txt"))
|
|
(docker/dockerignore-matches (assoc patterns :path "src/jim/main.clj"))
|
|
|
|
|
|
;; parse image names using github.com/docker/distribution
|
|
;; turns golang structs into clojure maps
|
|
(docker/parse-image-name "gcr.io/whatever:tag")
|
|
|
|
;; automatically turns golang errors into Exceptions
|
|
(try
|
|
(docker/parse-image-name "gcr.io/whatever/:tag")
|
|
(catch Exception e
|
|
;; invalid reference format
|
|
(println (.getMessage e))))
|
|
|
|
;; parse dockerfiles using github.com/moby/buildkit
|
|
;; returns the Result struct transformed to a clojure map
|
|
(docker/parse-dockerfile "FROM \\\n gcr.io/whatever:tag\nCMD [\"run\"]")
|
|
|
|
;; run sbom generation on local image
|
|
(docker/sbom "mongo@sha256:9c8a0a019671ed7d402768d4df6dddcc898828e21e9f7b90a34b55fe8ca676ac"
|
|
(fn [event]
|
|
(println "event " event)))
|
|
|
|
(docker/hashes "vonwig/malware1:latest"
|
|
(fn [event] (println event))))
|
|
|
|
(defn generate-sbom
|
|
[image]
|
|
(impl/invoke-public
|
|
"docker.tools"
|
|
"docker.tools/generate-sbom"
|
|
[image "" ""]
|
|
{:handlers {:done (fn [] (println "Done"))
|
|
:success (fn [msg] (println "msg: " msg))
|
|
:error (fn [_err] #_"TODO: handle this error")}}))
|
|
|
|
(comment
|
|
(println (load-pod "./babashka-pod-docker"))
|
|
(impl/invoke-public
|
|
"docker.tools"
|
|
"docker.tools/generate-sbom"
|
|
["ubuntu:latest" "" ""]
|
|
{})
|
|
(generate-sbom "alpine"))
|