(define-module (gchannel packages pia-vpn)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix gexp)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix utils)
  #:use-module (gnu packages)
  #:use-module (gnu packages base)
  #:use-module (gnu packages commencement)
  #:use-module (gnu packages gl)
  #:use-module (gnu packages glib)
  #:use-module (gnu packages gtk)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages onc-rpc)
  #:use-module (gnu packages sdl)
  #:use-module (gnu packages xorg)
  #:use-module (gnu packages xdisorg)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages version-control)
  #:use-module (gnu packages image)
  #:use-module (guix build-system copy)
  #:use-module (ice-9 rdelim)
)


(define (replace-regex-in-file filename regex replacement)
  (call-with-input-file filename
    (lambda (input-port)
      (let* ((content (read-delimited "" input-port))
             (updated-content (regex-substitute/global regex content replacement)))
        (call-with-output-file filename
          (lambda (output-port)
            (display updated-content output-port)))))))



(define build-number "08339")

(define-public pia-vpn
    (package
    (name "pia-vpn")
    (version "3.6.1")
    (source (origin
    (method url-fetch)
    (uri (string-append "https://installers.privateinternetaccess.com/download/pia-linux-" version "-" "08339" ".run"))
        (sha256
        (base32 "04x65h8zmb8k51iid66gigffdbdgh4iv8bzah9s5xg3zgcycc53g"))))
    (build-system copy-build-system)

    (inputs
        (list 
        libglvnd mesa libx11 gtk sdl2 gcc-toolchain glib libxkbcommon libnl libnsl iptables coreutils))
    (arguments
    (list
        #:phases
        #~(modify-phases %standard-phases
        (add-after 'unpack 'unbundled (lambda _ (system* "sh" (string-append "./pia-linux-" #$version "-" "08339" ".run") "--noexec" "--nox11" "--keep")))
        (add-after 'unbundled 'patch-install-script (lambda _ 
            (system* "sed" "-i" "/^PATH=.*$/d" "./pia-linux-3.6.1-08339/install.sh")
            (system* "sed" "-i" "s/\\/bin\\/cp/cp/g" "./pia-linux-3.6.1-08339/install.sh")))
        (add-after 'patch-install-script 'patch-qt-conf 
            (lambda _ 
                (system* "sed" "-i" (string-append "s/\\/opt\\/piavpn/"
                    (let loop ((str (assoc-ref %outputs "out"))
                    (find #\/) ;; Use character literal instead of string
                    (replace "\\/")
                    (acc ""))
                    (let ((pos (string-index str find)))
                            (if pos
                                (loop (substring str (+ pos 1))
                                    find
                                    replace
                                    (string-append acc (substring str 0 pos) replace))
                                (string-append acc str))))
                ;;"\\/"
                "/g")
             "./pia-linux-3.6.1-08339/piafiles/bin/qt.conf")))
        (add-after 'install 'stuffing (lambda _ 
                (system* "sh" (string-append "./" "pia-linux-" #$version "-" "08339" "/" "install.sh") "--skip-service" "--force-architecture")
                (system* "cp" "-r" "./pia-linux-3.6.1-08339/piafiles" (assoc-ref %outputs "out"))
                ;; (invoke "patchelf" "--set-interpreter" (string-append glibc "/lib/ld-linux-x86-64.so.2") elf-file)
                ;;(for-each (lambda (i) (display i)) ())
            )
        )
        ;;(delete 'validate-runpath)
    )))

    (native-inputs
        (list git pkg-config))
    (synopsis "Soup")
    (home-page "https://www.privateinternetaccess.com/")
    (description "Private Internet Access VPN")
    (license license:agpl3)))

pia-vpn