nongnu: Add msalsdk-dbusclient.

* nongnu/packages/intune.scm (msalsdk-dbusclient): New variable.

nongnu/packages/intune.scm

@@ -43,6 +43,44 @@
   #:use-module ((guix licenses)
                 #:prefix license:))
 
+(define-public msalsdk-dbusclient
+  (package
+    (name "msalsdk-dbusclient")
+    (version "1.0.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://packages.microsoft.com/ubuntu/20.04/prod/pool/main/m/msalsdk-dbusclient/msalsdk-dbusclient_"
+                    version "_amd64.deb"))
+              (sha256
+               (base32
+                "0dhbmwrkqg3swd3y8f6r5xrnvrzc1vkpc10sdw4z6fwx0cbqsn3q"))))
+    (build-system binary-build-system)
+    (arguments
+     (list #:patchelf-plan #~`(("usr/lib/libmsal_dbus_client.so" ("glibc"
+                                                                  "dbus"
+                                                                  "libstdc++"
+                                                                  "gcc")))
+           ;; #:install-plan
+           ;; #~`(("usr/bin" "bin"))
+           #:phases #~(modify-phases %standard-phases
+                        (replace 'unpack
+                          (lambda* (#:key inputs #:allow-other-keys)
+                            (let ((debian-files (assoc-ref inputs "source")))
+                              (invoke "ar" "x" debian-files)
+                              (invoke "tar" "xzf" "data.tar.gz")))))))
+    (inputs (list dbus glibc
+                  (make-libstdc++ gcc)
+                  `(,gcc "lib")
+                  ;; sdbus-cpp
+                  ))
+    (synopsis "Microsoft Authentication Library cross platform")
+    (description "")
+    (home-page "")
+    ;; Well what to do
+    ;; https://docs.microsoft.com/en-us/mem/intune/fundamentals/licenses
+    (license #f)))
+
 (define-public sdbus-cpp
   (package
     (name "sdbus-cpp")