Add openconnect-sso-ucl.

1 files changed, 40 insertions, 2 deletions

diff --git a/arunisaac/openconnect.scm b/arunisaac/openconnect.scm
index 5e46b91..897345a 100644
--- a/arunisaac/openconnect.scm
+++ b/arunisaac/openconnect.scm
@@ -44,16 +44,20 @@
                           python-prompt-toolkit
                           python-pysocks
                           python-structlog))
-  #:use-module ((gnu packages qt) #:select (python-pyqt-6
+  #:use-module ((gnu packages qt) #:select (python-pyqt
+                                            python-pyqtwebengine
+                                            python-pyqt-6
                                             python-pyqtwebengine-6))
   #:use-module ((gnu packages vpn) #:select (openconnect))
   #:use-module ((gnu packages xml) #:select (python-lxml-4.9))
   #:use-module (guix build-system pyproject)
   #:use-module ((guix build-system python) #:hide (pypi-uri))
   #:use-module (guix download)
+  #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module ((guix licenses) #:prefix license:)
-  #:use-module (guix packages))
+  #:use-module (guix packages)
+  #:use-module (guix utils))
 
 (define python-keyring-23.9
   (package
@@ -214,3 +218,37 @@
      (list shared-mime-info
            hicolor-icon-theme
            python-setuptools))))
+
+;; This is a fork of openconnect-sso that works with the UCL VPN. We
+;; use this until similar support is added to openconnect-sso
+;; upstream.
+(define openconnect-sso-ucl
+  (package
+    (inherit openconnect-sso)
+    (name "openconnect-sso-ucl")
+    (version "1.0.0")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/Beej126/openconnect-sso-windows-csd")
+                     (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1gzpx14ks800kdljvivp43ybj89dqbnsq0naj33s7f54byih5v0c"))))
+    (arguments
+     (substitute-keyword-arguments (package-arguments openconnect-sso)
+       ((#:phases phases #~%standard-phases)
+        #~(modify-phases #$phases
+            ;; Patch in fictitious host scan data to satisfy the VPN
+            ;; authenticator.
+            (add-after 'unpack 'patch-in-hostscan-data
+              (lambda _
+                (substitute* "openconnect_sso/authenticator.py"
+                  (("hostscan-data")
+                   #$(local-file "ucl-vpn-hostscan-data")))))))))
+    (inputs
+     (modify-inputs (package-inputs openconnect-sso)
+       (replace "python-pyqt" python-pyqt)
+       (replace "python-pyqtwebengine" python-pyqtwebengine)
+       (replace "python-pyxdg" python-pyxdg-0.27)))))