babashka-pod-docker/dev/user.clj

(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"))