From 7812947d601066abdeac30056ae16fa7932bcb52 Mon Sep 17 00:00:00 2001
From: Petr Hodina <phodina@protonmail.com>
Date: Sat, 25 Jun 2022 18:05:18 +0200
Subject: [PATCH] nongnu: Add msft-identity-broker.

* nongnu/packages/intune.scm (msft-identity-broker): New variable.
---
 nongnu/packages/intune.scm | 72 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)
 create mode 100644 nongnu/packages/intune.scm

diff --git a/nongnu/packages/intune.scm b/nongnu/packages/intune.scm
new file mode 100644
index 0000000..ca2163c
--- /dev/null
+++ b/nongnu/packages/intune.scm
@@ -0,0 +1,72 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
+;;;
+;;; This file is not part of GNU Guix.
+;;;
+;;; This program is free software: you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation, either version 3 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+(define-module (nongnu packages intune)
+  #:use-module (guix packages)
+  #:use-module (guix gexp)
+  #:use-module (gnu packages)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages build-tools)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages ninja)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages glib)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages sqlite)
+  #:use-module (gnu packages webkit)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (nonguix build-system binary)
+  #:use-module (guix build-system cmake)
+  #:use-module ((guix licenses)
+                #:prefix license:))
+
+; TODO: JAVA based
+(define-public msft-identity-broker
+  (package
+    (name "msft-identity-broker")
+    (version "1.0.6")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://packages.microsoft.com/ubuntu/20.04/prod/pool/main/m/msft-identity-broker/msft-identity-broker_"
+                    version "_amd64.deb"))
+              (sha256
+               (base32
+                "1frbqsvsz74w1sms2sdbn402b2aabp4v354g4qs2nl0agcnvw8sm"))))
+    (build-system binary-build-system)
+    (arguments
+     (list #: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")))))))
+    (synopsis "Microsoft Identity broker")
+    (description "")
+    (home-page "")
+    ;; Well what to do
+    ;; https://docs.microsoft.com/en-us/mem/intune/fundamentals/licenses
+    (license #f)))