74 lines
2.1 KiB
Clojure
74 lines
2.1 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/babashka-pod-docker "0.1.0")
|
|
|
|
(require '[babashka-pod-docker :as docker])
|
|
|
|
|
|
;; 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 "vonwig/clojure-base:jdk17" (fn [event] (println event)))
|
|
|
|
|
|
(docker/hashes "vonwig/malware1:latest" (fn [event] (println event)))
|
|
)
|
|
|
|
(defn generate-sbom
|
|
[image]
|
|
(impl/invoke-public
|
|
"docker.babashka-pod-docker"
|
|
"babashka-pod-docker/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.babashka-pod-docker"
|
|
"babashka-pod-docker/parse-image-name"
|
|
["ubuntu:latest"]
|
|
{})
|
|
(generate-sbom "alpine")
|
|
)
|