add snamellit root ca

snamellit/Snamellit_CA.pem

@@ -0,0 +1,18 @@
+-----BEGIN X509 CRL-----
+MIIC9DCB3QIBATANBgkqhkiG9w0BAQ0FADCBmjELMAkGA1UEBhMCQkUxEjAQBgNV
+BAgTCUFudHdlcnBlbjESMBAGA1UEBxMJQW50d2VycGVuMRcwFQYDVQQKEw5TbmFt
+ZWxsaXQgYnZiYTEoMCYGA1UEAxMfU25hbWVsbGl0IENlcnRpZmljYXRlIEF1dGhv
+cml0eTEgMB4GCSqGSIb3DQEJARYRcHRpQHNuYW1lbGxpdC5jb20XDTE1MDEwNzA5
+MzEwMFoXDTE1MDIwNjA5MzEwMFqgDjAMMAoGA1UdFAQDAgEBMA0GCSqGSIb3DQEB
+DQUAA4ICAQCXVOLXpfpDnX9mfC7w/9D1wdZl9+61UT3W+VAhPsvFxlqu/YdS6lRH
+XvGMv/FtJI/h+PX9GfuV5v21NHecYaII2WENYFIq1jg2adaq5vY8DQq3zdW4Qmgr
+y0613r3eXvoaZEHjA5gBhpcXNtXFu2wTEmTLHbbfGaXE/TikPYm+gDXgE8ZdjUlJ
+7Qysesk7qvHOpbPZKFbaYixhcQxJ1vg76XvJhN1fyXsT/gsMOkEYmYgcV0BwlK+V
+RIwhQ7cSDMKMmLXK5PBirz+L8BDrU1bL4Xu52V4z8c/vhZeWy+l/jSjoF38Wt81b
+k7XJQZEcUZq/UpH6PdmmUfV0iu3M62i35Eu9xbpwbKaFFZE0y0RwR8Ht2mj9jvud
+LtFq7dPrJuhg0/4/iZe6DWiafVflGV6vd6OzTdHH1WLtZzbefl2gxo/mpyoX9fkn
+p1+z9j4w+FvCoKIM0RshXXnpOaMibMhiP3DxFNSF+0A2MNCyiOrSFE5GM5CDQ6CX
+oKnfy8uWxHFUnDJ0VAl429H9EBesIfaXZS18Abbe5F8mtS1IEzh3MlLB5mJk3eVF
+KH1z1hLfYl5Z9iaTnSd3ZoFq+eOGoVlEDhuaAvmZpsdPksCA+zAWkOEMPYs4S06b
++tOVK3wHfCtGfFB70WyhLCc0h1RIXl/JygK3oP5GZiucIMbHtQAD9g==
+-----END X509 CRL-----

snamellit/certs.scm

@@ -0,0 +1,49 @@
+(define-module (snamellit certs)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages certs)
+  #:use-module (gnu packages tls)
+  #:use-module (guix build-system copy)
+  #:use-module (guix packages)
+  #:use-module (guix gexp)
+  #:use-module (guix utils)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (nonguix build-system binary))
+
+
+(define-public snamellit-ca
+  (package
+    (name "snamellit-ca")
+    (version "1.0")
+    (source (local-file "Snamellit_CA.pem"))
+    (build-system copy-build-system)
+    (outputs '("out"))
+    (native-inputs
+     (list certdata2pem openssl))
+    (inputs '())
+    (propagated-inputs '())
+    (arguments
+     (list
+      #:modules '((guix build copy-build-system)
+                  (guix build utils)
+                  (rnrs io ports)
+                  (srfi srfi-26))
+      #:phases
+      #~(modify-phases
+            (map (cut assq <> %standard-phases)
+                 '(set-paths install-locale unpack))
+          (add-after 'unpack 'install
+            (lambda _
+              (let ((certsdir (string-append #$output
+                                             "/etc/ssl/certs/")))
+                ;; Copy .pem files into the output.
+                (for-each (cut install-file <> certsdir)
+                          (find-files "." ".*\\.pem$"))
+                (invoke "openssl" "rehash" certsdir)))))))
+    (synopsis "Snamellit CA Root Certificate")
+    (description
+     "Root Certificate of the Snamellit CA")
+    (home-page "https://www.snamellit.com/")
+    (license license:asl2.0)))
+
+
+snamellit-ca