;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015 Alex Sassmannshausen <alex.sassmannshausen@gmail.com>
+;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;;
;;; This file is part of GNU Guix.
;;;
#:use-module (guix git-download)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
+ #:use-module (guix build-system python)
#:use-module (guix build-system trivial)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages perl)
#:use-module (gnu packages tcl)
#:use-module (gnu packages compression)
- #:use-module ((gnu packages openssl) #:prefix o:)
- #:use-module (gnu packages gnutls)
+ #:use-module (gnu packages tls)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages bison)
#:use-module (gnu packages flex)
(define-public inetutils
(package
(name "inetutils")
- (version "1.9.3")
+ (version "1.9.4")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/inetutils/inetutils-"
version ".tar.gz"))
(sha256
(base32
- "06dshajjpyi9sxi7qfki9gnp5r3nxvyvf81r81gx0x2qkqzqcxlj"))))
+ "05n65k4ixl85dc6rxc51b1b732gnmm8xnqi424dy9f1nz7ppb3xy"))))
(build-system gnu-build-system)
(arguments `(;; FIXME: `tftp.sh' relies on `netstat' from utils-linux,
;; which is currently missing.
(description
"This package provides the /etc/services, /etc/protocols, and /etc/rpc
files, which contain information about the IANA-assigned port, protocol, and
-ONC RPC numbers")
+ONC RPC numbers.")
(home-page "http://packages.debian.org/sid/netbase")
(license license:gpl2)))
(for-each patch-shebang
(find-files "bind-9.9.5-P1" ".*"))
(zero? (system* "tar" "cf" "bind.tar.gz"
- "bind-9.9.5-P1"))))
+ "bind-9.9.5-P1"
+ ;; avoid non-determinism in the archive
+ "--mtime=@0"
+ "--owner=root:0"
+ "--group=root:0"))))
(alist-cons-after
'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys)
"14wyjywrdi1ikaj6yc9c72m6m2r64z94lb0gm7k1a3q6q5cj3scs"))))
(build-system gnu-build-system)
(native-inputs `(("bison" ,bison) ("flex" ,flex)))
- (arguments '(#:tests? #f)) ; no 'check' target
+ (arguments '(#:configure-flags '("--with-pcap=linux")
+ #:tests? #f)) ; no 'check' target
(home-page "http://www.tcpdump.org")
(synopsis "Network packet capture library")
(description
"15hb7zkzd66nag102qbv100hcnf7frglbkylmr8adwr8f5jkkaql"))))
(build-system gnu-build-system)
(inputs `(("libpcap" ,libpcap)
- ("openssl" ,o:openssl)))
+ ("openssl" ,openssl)))
(native-inputs `(("perl" ,perl))) ; for tests
(home-page "http://www.tcpdump.org/")
(synopsis "Network packet analyzer")
"wpa-supplicant-2015-4-fix-pt2.patch"
"wpa-supplicant-2015-4-fix-pt3.patch"
"wpa-supplicant-2015-4-fix-pt4.patch"
- "wpa-supplicant-2015-4-fix-pt5.patch")))))
+ "wpa-supplicant-2015-4-fix-pt5.patch"
+ "wpa-supplicant-2015-5-fix.patch")))))
(build-system gnu-build-system)
(arguments
'(#:phases (alist-replace
(arguments
(substitute-keyword-arguments (package-arguments wpa-supplicant-light)
((#:phases phases)
- `(alist-cons-after
- 'configure 'configure-for-dbus
- (lambda _
- (let ((port (open-file ".config" "al")))
- (display "
+ `(modify-phases ,phases
+ (add-after
+ 'configure 'configure-for-dbus
+ (lambda _
+ (let ((port (open-file ".config" "al")))
+ (display "
CONFIG_CTRL_IFACE_DBUS=y
CONFIG_CTRL_IFACE_DBUS_NEW=y
CONFIG_CTRL_IFACE_DBUS_INTRO=y\n" port)
- (close-port port))
- #t)
- (alist-cons-after
- 'install-man-pages 'install-dbus-conf
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (dir (string-append out "/etc/dbus-1/system.d")))
- (mkdir-p dir)
- (copy-file "dbus/dbus-wpa_supplicant.conf"
- (string-append dir "/wpa_supplicant.conf"))))
- ,phases)))))))
+ (close-port port))
+ #t))
+ (add-after
+ 'install-man-pages 'install-dbus-conf
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (conf-dir (string-append out "/etc/dbus-1/system.d"))
+ (service-dir
+ (string-append out "/share/dbus-1/system-services")))
+ (mkdir-p conf-dir)
+ (copy-file "dbus/dbus-wpa_supplicant.conf"
+ (string-append conf-dir "/wpa_supplicant.conf"))
+ (mkdir-p service-dir)
+ (for-each (lambda (file)
+ (copy-file
+ file
+ (string-append service-dir "/" (basename file))))
+ (find-files "dbus" "\\.service$"))
+ #t)))))))))
(define-public wakelan
(package
(assoc-ref %build-inputs "popt")))
#:tests? #f)) ;no 'check' target
(home-page "http://detox.sourceforge.net")
- (synopsis "Clean up filenames")
+ (synopsis "Clean up file names")
(description
"Detox is a program that renames files to make them easier to work with
under Unix and related operating systems. Spaces and various other unsafe
(inputs
`(;; ("ntfs" ,ntfs)
("util-linux" ,util-linux)
- ("openssl" ,o:openssl)
+ ("openssl" ,openssl)
("zlib" ,zlib)
("e2fsprogs" ,e2fsprogs)
("libjpeg" ,libjpeg)
"fdupes is a program for identifying duplicate files residing within
specified directories.")
(license license:expat)))
+
+(define-public graphios
+ (package
+ (name "graphios")
+ (version "2.0.3")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://pypi.python.org/packages/source/g/graphios/graphios-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "1h87hvc315wg6lklbf4l7csd3n5pgljwrfli1p3nasdi0izgn66i"))))
+ (build-system python-build-system)
+ (arguments
+ ;; Be warned: Building with Python 3 succeeds, but the build process
+ ;; throws a syntax error that is ignored.
+ `(#:python ,python-2
+ #:phases
+ (modify-phases %standard-phases
+ (add-before 'build 'fix-setup.py
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; Fix hardcoded, unprefixed file names.
+ (let ((out (assoc-ref outputs "out")))
+ (substitute* '("setup.py")
+ (("/etc") (string-append out "/etc"))
+ (("/usr") out)
+ (("distro_ver = .*") "distro_ver = ''"))
+ #t))))))
+ (inputs
+ `(("python-setuptools" ,python2-setuptools)))
+ (home-page "https://github.com/shawn-sterling/graphios")
+ (synopsis "Emit Nagios metrics to Graphite, Statsd, and Librato")
+ (description
+ "Graphios is a script to emit nagios perfdata to various upstream metrics
+processing and time-series systems. It's currently compatible with Graphite,
+Statsd, Librato and InfluxDB. Graphios can emit Nagios metrics to any number
+of supported upstream metrics systems simultaneously.")
+ (license license:gpl2+)))
+
+(define-public ansible
+ (package
+ (name "ansible")
+ (version "1.9.2")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://pypi.python.org/packages/source/a/ansible/ansible-"
+ version
+ ".tar.gz"))
+ (sha256
+ (base32
+ "007fzgsqaahb0y4gjdxxmir9kcni7wph2z14jhqgpz88idrz8pn2"))))
+ (build-system python-build-system)
+ (native-inputs
+ `(("python2-setuptools" ,python2-setuptools)
+ ("python2-pycrypto" ,python2-pycrypto)
+ ("python2-httplib2" ,python2-httplib2)
+ ("python2-passlib" ,python2-passlib)
+ ("python2-nose" ,python2-nose)
+ ("python2-mock" ,python2-mock)
+ ("python2-jinja2" ,python2-jinja2)
+ ("python2-pyyaml" ,python2-pyyaml)
+ ("python2-paramiko" ,python2-paramiko)))
+ (inputs
+ `(("python2-pycrypto" ,python2-pycrypto)
+ ("python2-jinja2" ,python2-jinja2)
+ ("python2-pyyaml" ,python2-pyyaml)
+ ("python2-paramiko" ,python2-paramiko)))
+ (arguments
+ `(#:python ,python-2)) ; incompatible with Python 3
+ (home-page "http://ansible.com/")
+ (synopsis "Radically simple IT automation")
+ (description "Ansible is a radically simple IT automation system. It
+handles configuration-management, application deployment, cloud provisioning,
+ad-hoc task-execution, and multinode orchestration - including trivializing
+things like zero downtime rolling updates with load balancers.")
+ (license license:gpl3+)))