177 lines
		
	
	
	
		
			6.7 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			177 lines
		
	
	
	
		
			6.7 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
| ;;; GNU Guix --- Functional package management for GNU
 | |
| ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
 | |
| ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
 | |
| ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
 | |
| ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
 | |
| ;;;
 | |
| ;;; This file is part of GNU Guix.
 | |
| ;;;
 | |
| ;;; GNU Guix 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.
 | |
| ;;;
 | |
| ;;; GNU Guix 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 GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 | |
| 
 | |
| (define-module (gnu packages connman)
 | |
|   #:use-module (guix packages)
 | |
|   #:use-module (guix download)
 | |
|   #:use-module (guix build-system gnu)
 | |
|   #:use-module (guix licenses)
 | |
|   #:use-module (guix utils)
 | |
|   #:use-module (gnu packages)
 | |
|   #:use-module (gnu packages admin)
 | |
|   #:use-module (gnu packages enlightenment)
 | |
|   #:use-module (gnu packages glib)
 | |
|   #:use-module (gnu packages linux)
 | |
|   #:use-module (gnu packages pkg-config)
 | |
|   #:use-module (gnu packages polkit)
 | |
|   #:use-module (gnu packages python)
 | |
|   #:use-module (gnu packages qt)
 | |
|   #:use-module (gnu packages readline)
 | |
|   #:use-module (gnu packages samba)
 | |
|   #:use-module (gnu packages tls)
 | |
|   #:use-module (gnu packages vpn))
 | |
| 
 | |
| (define-public connman
 | |
|   (package
 | |
|     (name "connman")
 | |
|     (version "1.35")
 | |
|     (source
 | |
|       (origin
 | |
|         (method url-fetch)
 | |
|         (uri (string-append "mirror://kernel.org/linux/network/connman/"
 | |
|                             name "-" version ".tar.xz"))
 | |
|     (sha256
 | |
|      (base32
 | |
|       "1apj5j25kj7v1bsfv3nh54aiq873nfrsjfbj85p5qm3ihfwxxmv6"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      `(#:configure-flags
 | |
|        (list "--enable-nmcompat"
 | |
|              "--enable-polkit"
 | |
|              "--enable-openconnect"
 | |
|              "--enable-openvpn"
 | |
|              "--enable-vpnc"
 | |
|              "--enable-pptp"
 | |
|              "--enable-l2tp"
 | |
|              ;; location for daemon state files and internal configuration
 | |
|              ;; needs to be writeable
 | |
|              "--localstatedir=/var"
 | |
|              (string-append
 | |
|               "--with-dbusconfdir=" (assoc-ref %outputs "out") "/etc")
 | |
|              (string-append
 | |
|               "--with-dbusdatadir=" (assoc-ref %outputs "out") "/share"))))
 | |
|     (native-inputs
 | |
|      `(("pkg-config", pkg-config)
 | |
|        ("python" ,python-2)))
 | |
|     (inputs
 | |
|      `(("dbus" ,dbus)
 | |
|        ("glib" ,glib)
 | |
|        ("gnutls" ,gnutls)
 | |
|        ("iptables" ,iptables)
 | |
|        ("polkit" ,polkit)        ;so connman can be used by unprivileged users
 | |
|        ("readline" ,readline)
 | |
|        ;; These inputs are needed for connman to include the interface to
 | |
|        ;; these technologies so IF they are installed they can be used.
 | |
|        ;; TODO: add neard, ofono
 | |
|        ("openconnect" ,openconnect)
 | |
|        ("openvpn" ,openvpn)
 | |
|        ("ppp", ppp)
 | |
|        ("vpnc" ,vpnc)
 | |
|        ("wpa-supplicant" ,wpa-supplicant)))
 | |
|     (home-page "https://01.org/connman")
 | |
|     (synopsis "Connection management daemon")
 | |
|     (description "Connman provides a daemon for managing Internet connections.
 | |
| The Connection Manager is designed to be slim and to use as few resources as
 | |
| possible. It is fully modular system that can be extended through plug-ins.
 | |
| The plug-in approach allows for easy adaption and modification for various use
 | |
| cases.  Connman implements DNS resolving and caching, DHCP clients for both
 | |
| IPv4 and IPv6, link-local IPv4 address handling and tethering (IP connection
 | |
| sharing) to clients via USB, ethernet, WiFi, cellular and Bluetooth.")
 | |
|     (license gpl2)))
 | |
| 
 | |
| (define-public econnman
 | |
|   (package
 | |
|     (name "econnman")
 | |
|     (version "1.1")
 | |
|     (source
 | |
|       (origin
 | |
|         (method url-fetch)
 | |
|         (uri (string-append "https://download.enlightenment.org/rel/apps/"
 | |
|                             "econnman/econnman-" version ".tar.gz"))
 | |
|         (sha256
 | |
|          (base32
 | |
|           "057pwwavlvrrq26bncqnfrf449zzaim0zq717xv86av4n940gwv0"))))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      `(#:configure-flags '("--localstatedir=/var")
 | |
|        #:phases
 | |
|        (modify-phases %standard-phases
 | |
|          (add-after 'unpack 'set-home-directory
 | |
|            ;; FATAL: Cannot create run dir '/homeless-shelter/.run' - errno=2
 | |
|            (lambda _ (setenv "HOME" "/tmp") #t))
 | |
|          (add-after 'install 'wrap-binary
 | |
|            (lambda* (#:key outputs #:allow-other-keys)
 | |
|              (let* ((out (assoc-ref outputs "out"))
 | |
|                     (bin (string-append out "/bin/econnman-bin")))
 | |
|                (wrap-program bin
 | |
|                  `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
 | |
|                #t))))))
 | |
|     (native-inputs `(("pkg-config" ,pkg-config)))
 | |
|     (inputs
 | |
|      `(("efl" ,efl)
 | |
|        ("python-2" ,python-2)
 | |
|        ("python2-dbus" ,python2-dbus)
 | |
|        ("python2-efl" ,python2-efl)))
 | |
|     (home-page "https://www.enlightenment.org")
 | |
|     (synopsis "Connman User Interface written using the EFL")
 | |
|     (description
 | |
|      "An EFL user interface for the @code{connman} connection manager.")
 | |
|     (license lgpl3)))
 | |
| 
 | |
| (define-public cmst
 | |
|   (package
 | |
|     (name "cmst")
 | |
|     (version "2017.03.18")
 | |
|     (source
 | |
|      (origin
 | |
|        (method url-fetch)
 | |
|        (uri (string-append
 | |
|              "https://github.com/andrew-bibb/cmst/releases/download/cmst-"
 | |
|              version "/cmst-" version ".tar.gz"))
 | |
|        (sha256
 | |
|         (base32 "16g9byxr1rkmrnzi6sjplpmkr8h6pqj7418jz30czqviw5qlkqwl"))))
 | |
|     (inputs
 | |
|      `(("qtbase" ,qtbase)))
 | |
|     (native-inputs
 | |
|      `(("qttools" ,qttools)))
 | |
|     (build-system gnu-build-system)
 | |
|     (arguments
 | |
|      '(#:phases
 | |
|        (modify-phases %standard-phases
 | |
|          (replace 'configure
 | |
|            (lambda* (#:key outputs #:allow-other-keys)
 | |
|              (zero?
 | |
|               (system* "qmake"
 | |
|                        (string-append "PREFIX="
 | |
|                                       (assoc-ref outputs "out"))))))
 | |
|          (add-before 'install 'fix-Makefiles
 | |
|            (lambda* (#:key inputs outputs #:allow-other-keys)
 | |
|              (let ((out (assoc-ref outputs "out")))
 | |
|                (substitute* (find-files "." "Makefile")
 | |
|                  (("INSTALL_ROOT)")
 | |
|                   (string-append "INSTALL_ROOT)" out))
 | |
|                  (("/usr/bin") "/bin"))))))))
 | |
|     (home-page "https://github.com/andrew-bibb/cmst")
 | |
|     (synopsis "Qt frontend for Connman")
 | |
|     (description
 | |
|      "Cmst is a Qt based frontend for the @code{connman} connection manager.
 | |
| This package also provides a systemtray icon.")
 | |
|     (license x11)))
 |