remove pia
This commit is contained in:
96
gchannel/packages/pia._scm
Normal file
96
gchannel/packages/pia._scm
Normal file
@@ -0,0 +1,96 @@
|
|||||||
|
(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
|
||||||
@@ -1,59 +0,0 @@
|
|||||||
(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 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 string-fun)
|
|
||||||
)
|
|
||||||
|
|
||||||
(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
|
|
||||||
mesa libx11 gtk sdl2 gcc-toolchain glib libxkbcommon libnl libnsl iptables))
|
|
||||||
(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" "s/\\/bin\\/cp/cp/g" "./pia-linux-3.6.1-08339/install.sh")))
|
|
||||||
;; This doesn't work, but is the general idea. Once this is done we can organize the files in the directory and then build out the service for the daemon
|
|
||||||
;; (add-after 'patch-install-script 'patch-qt-conf (lambda _ (system* "sed" "-i" "s/\\/opt\\/piavpn/" (string-replace (assoc-ref %outputs "out") "/" "\\/") "/g" "./pia-linux-3.6.1-08339/piafiles/bin/qt.conf")))
|
|
||||||
(replace 'install (lambda _ (system* "sh" "install.sh" "--skip-service")))
|
|
||||||
)))
|
|
||||||
|
|
||||||
(native-inputs
|
|
||||||
(list git pkg-config))
|
|
||||||
(synopsis "Soup")
|
|
||||||
(home-page "https://www.privateinternetaccess.com/")
|
|
||||||
(description "Private Internet Access VPN")
|
|
||||||
(license license:agpl3)))
|
|
||||||
|
|
||||||
pia-vpn
|
|
||||||
Reference in New Issue
Block a user