X-Git-Url: https://git.hcoop.net/jackhill/guix/guix.git/blobdiff_plain/d0457553d5e245f1f24911ac2f8c465338a2c696..2d3b0203f40ac70b2e6fdb734605515b0a4cac24:/gnu/packages/admin.scm diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 9636ee939f..5adde6cc4a 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -10,6 +10,11 @@ ;;; Copyright © 2016 Pjotr Prins ;;; Copyright © 2016 Ricardo Wurmus ;;; Copyright © 2016 Efraim Flashner +;;; Copyright © 2016 Peter Feigl +;;; Copyright © 2016 John J. Foerch +;;; Coypright © 2016 ng0 +;;; Coypright © 2016 Tobias Geerinckx-Rice +;;; Coypright © 2016 John Darrington ;;; ;;; This file is part of GNU Guix. ;;; @@ -58,6 +63,7 @@ #:use-module (gnu packages mcrypt) #:use-module (gnu packages pkg-config) #:use-module (gnu packages popt) + #:use-module (gnu packages python) #:use-module (gnu packages texinfo) #:use-module (gnu packages groff) #:use-module (gnu packages pciutils) @@ -67,7 +73,10 @@ #:use-module (gnu packages xorg) #:use-module (gnu packages python) #:use-module (gnu packages man) - #:use-module (gnu packages autotools)) + #:use-module (gnu packages autotools) + #:use-module (gnu packages gnome) + #:use-module (gnu packages mit-krb5) + #:use-module (gnu packages gtk)) (define-public aide (package @@ -100,45 +109,34 @@ usual file attributes can be checked for inconsistencies.") (home-page "http://aide.sourceforge.net/") (license license:gpl2+))) -(define-public dmd - ;; Deprecated. Kept around "just in case." - (let ((base-version "0.2") - (patch-level "01")) - (package - (name "dmd") - (version (string-append base-version "." patch-level)) - (source (origin - (method url-fetch) - (uri (string-append "ftp://alpha.gnu.org/gnu/dmd/dmd-" - base-version ".tar.gz")) - (sha256 - (base32 - "10fl4k96f17gqx2fv8iw9c61ld26gsk4bbrlfqckdmiimz1k175z")) - (patches - (list (origin - ;; This patch augments 'make-fork+exec-constructor' and - ;; is used by a bunch of services. - (method url-fetch) - (uri (string-append - "http://git.savannah.gnu.org/cgit/shepherd.git/" - "patch?id=d1d0ff30b3ed2b86b0a3c9bc048d2a855f8e31e6")) - (sha256 - (base32 - "1lqymypixfiyb72d6bn24m06ry2q1ljnnv0qrc89pbb4z9azaa4d")) - (file-name "dmd-user-group.patch")))))) - (build-system gnu-build-system) - (arguments - '(#:configure-flags '("--localstatedir=/var"))) - (native-inputs `(("pkg-config" ,pkg-config))) - (inputs `(("guile" ,guile-2.0))) - (synopsis "Daemon managing daemons") - (description - "GNU DMD is a daemon-managing daemon, meaning that it manages the -execution of system services, replacing similar functionality found in -typical init systems. It provides dependency-handling through a convenient -interface and is based on GNU Guile.") - (license license:gpl3+) - (home-page "http://www.gnu.org/software/dmd/")))) +(define-public progress + (package + (name "progress") + (version "0.13") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/Xfennec/" + name "/archive/v" version ".tar.gz")) + (sha256 + (base32 "133iar4vq5vlklydb4cyazjy6slmpbndrws474mg738bd8avc30n")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system gnu-build-system) + (inputs + `(("ncurses" ,ncurses))) + (arguments + `(#:tests? #f ; There is no test suite. + #:make-flags (list "CC=gcc" "LDFLAGS+=-lncurses" + (string-append "PREFIX=" (assoc-ref %outputs "out"))) + #:phases + (modify-phases %standard-phases + (delete 'configure)))) ; There's no configure phase. + (home-page "https://github.com/Xfennec/progress") + (synopsis "Program to view the progress of the coreutils commands") + (description "A program that looks for coreutils basic commands (cp, mv, +dd, tar, gzip/gunzip, cat, etc.) currently running on your system and displays +the percentage of copied data. It can also show estimated time and throughput, +and provides a \"top-like\" mode (monitoring).") + (license license:gpl3+))) (define-public shepherd (package @@ -180,7 +178,7 @@ interface and is based on GNU Guile.") "0zk1ppx93ijimf4sbgqilxxikpsa2gmpbynknyh41xy7jbdjxp0b")))) (build-system cmake-build-system) (arguments '(#:tests? #f)) ; There are no tests. - (native-inputs `(("gettext" ,gnu-gettext))) + (native-inputs `(("gettext" ,gettext-minimal))) (home-page "http://projects.gw-computing.net/projects/dfc") (synopsis "Display file system space usage using graphs and colors") (description @@ -191,14 +189,14 @@ graphs and can export its output to different formats.") (define-public htop (package (name "htop") - (version "2.0.1") + (version "2.0.2") (source (origin (method url-fetch) (uri (string-append "http://hisham.hm/htop/releases/" version "/htop-" version ".tar.gz")) (sha256 (base32 - "0rjn9ybqx5sav7z4gn18f1q6k23nmqyb6yydfgghzdznz9nn447l")))) + "11zlwadm6dpkrlfvf3z3xll26yyffa7qrxd1w72y1kl0rgffk6qp")))) (build-system gnu-build-system) (inputs `(("ncurses" ,ncurses))) @@ -212,16 +210,27 @@ application (for console or X terminals) and requires ncurses.") (define-public pies (package (name "pies") - (version "1.2") + (version "1.3") (source (origin - (method url-fetch) - (uri (string-append "mirror://gnu/pies/pies-" - version ".tar.bz2")) - (sha256 - (base32 - "18w0dbg77i56cx1bwa789w0qi3l4xkkbascxcv2b6gbm0zmjg1g6")))) + (method url-fetch) + (uri (string-append "mirror://gnu/pies/pies-" + version ".tar.bz2")) + (sha256 + (base32 + "12r7rjjyibjdj08dvwbp0iflfpzl4s0zhn6cr6zj3hwf9gbzgl1g")))) (build-system gnu-build-system) + (arguments + '(#:phases (modify-phases %standard-phases + (add-before 'build 'patch-/bin/sh + (lambda* (#:key inputs #:allow-other-keys) + ;; Use the right shell when executing user-provided + ;; shell commands. + (let ((bash (assoc-ref inputs "bash"))) + (substitute* "src/progman.c" + (("\"/bin/sh\"") + (string-append "\"" bash "/bin/sh\""))) + #t)))))) (home-page "http://www.gnu.org/software/pies/") (synopsis "Program invocation and execution supervisor") (description @@ -243,7 +252,9 @@ re-executing them as necessary.") (base32 "05n65k4ixl85dc6rxc51b1b732gnmm8xnqi424dy9f1nz7ppb3xy")))) (build-system gnu-build-system) - (arguments `(;; FIXME: `tftp.sh' relies on `netstat' from utils-linux, + (arguments `(#:configure-flags '("--localstatedir=/var") + + ;; FIXME: `tftp.sh' relies on `netstat' from utils-linux, ;; which is currently missing. #:tests? #f)) (inputs `(("ncurses" ,ncurses) @@ -314,8 +325,8 @@ login, passwd, su, groupadd, and useradd.") (version "1.08") (source (origin (method url-fetch) - (uri (string-append "mirror://sourceforge/mingetty/mingetty-" - version ".tar.gz")) + (uri (string-append "mirror://sourceforge/mingetty/mingetty/" + version "/mingetty-" version ".tar.gz")) (sha256 (base32 "05yxrp44ky2kg6qknk1ih0kvwkgbn9fbz77r3vci7agslh5wjm8g")))) @@ -408,8 +419,8 @@ ONC RPC numbers.") (version "0.7.1") (source (origin (method url-fetch) - (uri (string-append "mirror://sourceforge/netcat/netcat-" - version ".tar.bz2")) + (uri (string-append "mirror://sourceforge/netcat/netcat/" version + "/netcat-" version ".tar.bz2")) (sha256 (base32 "1frjcdkhkpzk0f84hx6hmw5l0ynpmji8vcbaxg8h5k2svyxz0nmm")))) @@ -457,9 +468,9 @@ connection alive.") (define-public isc-dhcp (let* ((bind-major-version "9") (bind-minor-version "9") - (bind-patch-version "8") - (bind-release-type "-P") - (bind-release-version "4") + (bind-patch-version "9") + (bind-release-type "-P") ; for patch release, use "-P" + (bind-release-version "4") ; for patch release, e.g. "4" (bind-version (string-append bind-major-version "." bind-minor-version @@ -469,14 +480,14 @@ connection alive.") bind-release-version))) (package (name "isc-dhcp") - (version "4.3.3-P1") + (version "4.3.5") (source (origin (method url-fetch) (uri (string-append "http://ftp.isc.org/isc/dhcp/" version "/dhcp-" version ".tar.gz")) (sha256 (base32 - "08crcsmg4dm2v533aq3883ik8mf4vvvd6r998r4vrgx1zxnqj7n1")))) + "0m7rwxvpb7xrmfl9ynpckhl0hi0xgm9bq1fmbp2r68sxy5mr75gb")))) (build-system gnu-build-system) (arguments `(#:parallel-build? #f @@ -575,7 +586,7 @@ connection alive.") "/bind-" bind-version ".tar.gz")) (sha256 (base32 - "1wl9kl0630dc1qjrf7fnp8cscagfm5qgmisi0zhr1p6iwi9bil2y")))) + "1qpi23lrs6jfxqx8dakbqfyg3hvrzq5ldchg6my19xcvx8515mgx")))) ;; When cross-compiling, we need the cross Coreutils and sed. ;; Otherwise just use those from %FINAL-INPUTS. @@ -590,7 +601,8 @@ connection alive.") "ISC's Dynamic Host Configuration Protocol (DHCP) distribution provides a reference implementation of all aspects of DHCP, through a suite of DHCP tools: server, client, and relay agent.") - (license license:isc)))) + (license license:isc) + (properties '((cpe-name . "dhcp")))))) (define-public libpcap (package @@ -672,7 +684,8 @@ by bandwidth they use.") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/clusterssh/" - "clusterssh-" version ".tar.gz")) + "1.%20ClusterSSH%20Series%203/" version + "/clusterssh-" version ".tar.gz")) (sha256 (base32 "1bwggpvaj2al5blg1ynapviv2kpydffpzq2zkhi81najnvzc1rr7")))) @@ -733,15 +746,34 @@ over ssh connections.") "true"))))) (build-system gnu-build-system) (arguments - '(#:configure-flags (list (string-append "ROTT_ETCDIR=" - (assoc-ref %outputs "out") - "/etc") + '(#:configure-flags (list "ROTT_ETCDIR=/etc/rottlog" ;rc file location "--localstatedir=/var") - #:phases (alist-cons-after - 'install 'install-info - (lambda _ - (zero? (system* "make" "install-info"))) - %standard-phases))) + + ;; Install example config files in OUT/etc. + #:make-flags (list (string-append "ROTT_ETCDIR=" + (assoc-ref %outputs "out") + "/etc")) + + #:phases (modify-phases %standard-phases + (add-after 'build 'set-packdir + (lambda _ + ;; Set a default location for archived logs. + (substitute* "rc/rc" + (("packdir=\"\"") + "packdir=\"/var/log\"")) + #t)) + (add-before 'install 'tweak-rc-weekly + (lambda _ + (substitute* "rc/weekly" + (("/bin/kill") + (which "kill")) + (("syslogd\\.pid") + ;; The file is called 'syslog.pid' (no 'd'). + "syslog.pid")) + #t)) + (add-after 'install 'install-info + (lambda _ + (zero? (system* "make" "install-info"))))))) (native-inputs `(("texinfo" ,texinfo) ("util-linux" ,util-linux))) ; for 'cal' (home-page "http://www.gnu.org/software/rottlog/") @@ -757,18 +789,17 @@ system administrator.") (define-public sudo (package (name "sudo") - (version "1.8.15") + (version "1.8.17p1") (source (origin (method url-fetch) (uri - (list (string-append "http://www.sudo.ws/sudo/dist/sudo-" + (list (string-append "https://www.sudo.ws/sudo/dist/sudo-" version ".tar.gz") (string-append "ftp://ftp.sudo.ws/pub/sudo/OLD/sudo-" version ".tar.gz"))) (sha256 (base32 - "0263gi6i19fyzzc488n0qw3m518i39f6a7qmrfvahk9j10bkh5j3")) - (patches (list (search-patch "sudo-CVE-2015-5602.patch"))))) + "1k2mn65l1kmsxm8wh0gjxy496xhbpiimbpm6yv6kw6snzc3xg466")))) (build-system gnu-build-system) (arguments `(#:configure-flags @@ -817,7 +848,7 @@ system administrator.") `(("groff" ,groff) ("linux-pam" ,linux-pam) ("coreutils" ,coreutils))) - (home-page "http://www.sudo.ws/") + (home-page "https://www.sudo.ws/") (synopsis "Run commands as root") (description "Sudo (su \"do\") allows a system administrator to delegate authority to @@ -831,7 +862,7 @@ commands and their arguments.") (define-public wpa-supplicant-minimal (package (name "wpa-supplicant-minimal") - (version "2.5") + (version "2.6") (source (origin (method url-fetch) (uri (string-append @@ -840,12 +871,7 @@ commands and their arguments.") ".tar.gz")) (sha256 (base32 - "05mkp5bx1c3z7h5biddsv0p49gkrq9ksany3anp4wdiv92p5prfc")) - (patches - (map search-patch '("wpa-supplicant-CVE-2015-5310.patch" - "wpa-supplicant-CVE-2015-5314.patch" - "wpa-supplicant-CVE-2015-5315.patch" - "wpa-supplicant-CVE-2015-5316.patch"))))) + "0l0l5gz3d5j9bqjsbjlfcv4w4jwndllp9fmyai4x9kg6qhs6v4xl")))) (build-system gnu-build-system) (arguments '(#:phases (alist-replace @@ -983,18 +1009,18 @@ network, which causes enabled computers to power on.") (define-public dmidecode (package (name "dmidecode") - (version "2.12") + (version "3.0") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/dmidecode/dmidecode-" - version ".tar.bz2")) + version ".tar.xz")) (sha256 (base32 - "122hgaw8mpqdfra159lfl6pyk3837giqx6vq42j64fjnbl2z6gwi")))) + "0iby0xfk5x3cdr0x0gxj5888jjyjhafvaq0l79civ73jjfqmphvy")))) (build-system gnu-build-system) (arguments - '(#:phases (alist-delete 'configure %standard-phases) + '(#:phases (modify-phases %standard-phases (delete 'configure)) #:tests? #f ; no 'check' target #:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out"))))) @@ -1075,8 +1101,8 @@ system is under heavy load.") (version "1.2.0") (source (origin (method url-fetch) - (uri (string-append "mirror://sourceforge/detox/detox-" - version ".tar.bz2")) + (uri (string-append "mirror://sourceforge/detox/detox/" version + "/detox-" version ".tar.bz2")) (sha256 (base32 "1y6vvjqsg54kl49cry73jbfhr04s7wjs779vrr9zrq6kww7dkymb")))) @@ -1102,19 +1128,20 @@ characters can be replaced as well, as can UTF-8 characters.") (define-public testdisk (package (name "testdisk") - (version "6.14") + (version "7.0") (source (origin (method url-fetch) (uri (string-append "http://www.cgsecurity.org/testdisk-" version ".tar.bz2")) (sha256 (base32 - "0v1jap83f5h99zv01v3qmqm160d36n4ysi0gyq7xzb3mqgmw75x5")))) + "0ba4wfz2qrf60vwvb1qsq9l6j0pgg81qgf7fh22siaz649mkpfq0")))) (build-system gnu-build-system) (inputs - `(;; ("ntfs" ,ntfs) + `(("ntfs-3g" ,ntfs-3g) ("util-linux" ,util-linux) ("openssl" ,openssl) + ;; FIXME: add reiserfs ("zlib" ,zlib) ("e2fsprogs" ,e2fsprogs) ("libjpeg" ,libjpeg) @@ -1154,14 +1181,14 @@ environment variable is set and output is to tty.") (define-public direvent (package (name "direvent") - (version "5.0") + (version "5.1") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/direvent/direvent-" version ".tar.gz")) (sha256 (base32 - "1i14131y6m8wvirz6piw4zxz2q1kbpl0lniv5kl55rx4k372dg8z")) + "1nwvjmx7kb14ni34c0b8x9a3791pc20gvhj7xaj66d8q4h6n0qf4")) (modules '((guix build utils))) (snippet '(substitute* "tests/testsuite" (("#![[:blank:]]?/bin/sh") @@ -1171,11 +1198,19 @@ environment variable is set and output is to tty.") '(#:phases (alist-cons-before 'build 'patch-/bin/sh (lambda* (#:key inputs #:allow-other-keys) - ;; Use the right shell when executing the watcher. + ;; Use the right shell when executing the watcher and + ;; user-provided shell commands. (let ((bash (assoc-ref inputs "bash"))) - (substitute* "src/direvent.c" + (substitute* '("src/direvent.c" "src/progman.c") (("\"/bin/sh\"") - (string-append "\"" bash "/bin/sh\""))))) + (string-append "\"" bash "/bin/sh\""))) + + ;; Adjust the 'shell.at' test accordingly. + (substitute* "tests/testsuite" + (("SHELL=/bin/sh") + (string-append "SHELL=" bash "/bin/sh"))) + + #t)) %standard-phases))) (home-page "http://www.gnu.org/software/direvent/") (synopsis "Daemon to monitor directories for events such as file removal") @@ -1218,7 +1253,7 @@ various ways that may be running with too much privilege.") (define-public smartmontools (package (name "smartmontools") - (version "6.3") + (version "6.5") (source (origin (method url-fetch) (uri (string-append @@ -1226,7 +1261,7 @@ various ways that may be running with too much privilege.") version "/smartmontools-" version ".tar.gz")) (sha256 (base32 - "06gy71jh2d3gcfmlbbrsqw7215knkfq59q3j6qdxfrar39fhcxx7")))) + "1g25r6sx85b5lay5n6sbnqv05qxzj6xsafsp93hnrg1h044bps49")))) (build-system gnu-build-system) (inputs `(("libcap-ng" ,libcap-ng))) (home-page "http://www.smartmontools.org/") @@ -1242,21 +1277,24 @@ degradation and failure.") (define-public fdupes (package (name "fdupes") - (version "1.51") + (version "1.6.1") (source (origin (method url-fetch) (uri (string-append - "https://github.com/adrianlopezroche/fdupes/archive/fdupes-" + "https://github.com/adrianlopezroche/fdupes/archive/v" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "11j96vxl9vg3jsnxqxskrv3gad6dh7hz2zpyc8n31xzyxka1c7kn")))) + "1sj9pa40pbz6xdwbxfwhdhkvhdf1xc5gvggk9mdq26c41gdnyswx")))) (build-system gnu-build-system) (arguments - '(#:phases (alist-delete 'configure %standard-phases) + '(#:phases (modify-phases %standard-phases + (delete 'configure)) #:tests? #f ; no 'check' target - #:make-flags (list (string-append "PREFIX=" + #:make-flags (list "CC=gcc" + (string-append "PREFIX=" (assoc-ref %outputs "out"))))) (home-page "https://github.com/adrianlopezroche/fdupes") (synopsis "Identify duplicate files") @@ -1308,17 +1346,14 @@ of supported upstream metrics systems simultaneously.") (define-public ansible (package (name "ansible") - (version "1.9.2") + (version "2.1.0.0") (source (origin (method url-fetch) - (uri (string-append - "https://pypi.python.org/packages/source/a/ansible/ansible-" - version - ".tar.gz")) + (uri (pypi-uri "ansible" version)) (sha256 (base32 - "007fzgsqaahb0y4gjdxxmir9kcni7wph2z14jhqgpz88idrz8pn2")))) + "1bfc2xiplpad6f2nwi48y0kps7xqnsll85dlz63cy8k5bysl6d20")))) (build-system python-build-system) (native-inputs `(("python2-setuptools" ,python2-setuptools) @@ -1389,7 +1424,7 @@ limits.") (define-public autojump (package (name "autojump") - (version "22.2.4") + (version "22.3.4") (source (origin (method url-fetch) @@ -1398,7 +1433,7 @@ limits.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "0xglj7nb8xczaqy2dhn78drqdwqj64rqpymxhqmmwwqzfaqassw1")))) + "113rcpr37ngf2xs8da41qdarq5qmj0dwx8ggqy3lhlb0kvqq7g9z")))) (build-system gnu-build-system) (native-inputs ;for tests `(("python-mock" ,python-mock) @@ -1412,7 +1447,7 @@ limits.") (replace 'check (lambda _ (zero? - (system* "python" "tests/autojump_utils_test.py")))) + (system* "python" "tests/unit/autojump_utils_test.py")))) (replace 'install ;; The install.py script doesn't allow system installation ;; into an arbitrary prefix, so do our own install. @@ -1437,9 +1472,9 @@ limits.") `("PYTHONPATH" ":" prefix (,py))) #t)))))) (home-page "https://github.com/wting/autojump") - (synopsis "Shell extension for filesystem navigation") + (synopsis "Shell extension for file system navigation") (description - "Autojump provides a faster way to navigate your filesystem, with a \"cd + "Autojump provides a faster way to navigate your file system, with a \"cd command that learns\". It works by maintaining a database of the directories you use the most from the command line and allows you to \"jump\" to frequently used directories by typing only a small pattern.") @@ -1470,20 +1505,20 @@ displays a table of current bandwidth usage by pairs of hosts.") (define-public munge (package (name "munge") - (version "0.5.11") + (version "0.5.12") (source (origin (method url-fetch) - (uri (string-append "https://github.com/dun/munge/archive/munge-" - version ".tar.gz")) - (file-name (string-append name "-" version ".tar.gz")) + (uri (string-append "https://github.com/dun/munge/releases/" + "download/munge-" version "/munge-" + version ".tar.xz")) (sha256 (base32 - "0njplyalwwqh7xr7xc7klc6x06mq0ak8w2pxh85w8n4hxkmqqnf5")))) + "1s0vlwgm3hcx75vcmjf2y3icy5nv8y07bx93w2cmm6a7x71y6wp9")))) (inputs `(("openssl" ,openssl) ("libgcrypt" ,libgcrypt))) (build-system gnu-build-system) - (home-page "http://dun.github.io/munge/") + (home-page "https://dun.github.io/munge/") (synopsis "Cluster computing authentication service") (description "Munge is an authentication service for creating and validating @@ -1521,7 +1556,7 @@ platform-specific methods.") #t))))) (inputs `(("openldap" ,openldap) - ("openssl" ,openssl) + ("gnutls" ,gnutls) ("sasl" ,cyrus-sasl))) (synopsis "User-space component to the Linux auditing system") (description @@ -1535,14 +1570,14 @@ done with the @code{auditctl} utility.") (define-public nmap (package (name "nmap") - (version "7.11") + (version "7.31") (source (origin (method url-fetch) (uri (string-append "https://nmap.org/dist/nmap-" version ".tar.bz2")) (sha256 (base32 - "0jlmq1w0gjqpa7qa523kdj73ndm1xzww2wjvb94hxh6yalargyhk")) + "0hiqb28950kn4bjsmw0ksfyss7j2qdmgrj3xsjf7073pq01lx7yb")) (modules '((guix build utils))) (snippet '(map delete-file-recursively @@ -1568,6 +1603,12 @@ done with the @code{auditctl} utility.") '(#:configure-flags '("--without-zenmap") #:phases (modify-phases %standard-phases + (add-after 'configure 'patch-Makefile + (lambda _ + (substitute* "Makefile" + ;; Do not attempt to build lua. + (("build-dnet build-lua") "build-dnet")) + #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (define (make out . args) @@ -1608,3 +1649,270 @@ results (ndiff), and a packet generation and response analysis tool (nping).") ;; This package uses nmap's bundled versions of libdnet and liblinear, which ;; both use a 3-clause BSD license. (license (list license:nmap license:bsd-3)))) + +(define-public dstat + (package + (name "dstat") + (version "0.7.3") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/dagwieers/dstat/archive/" + version ".tar.gz")) + (file-name (string-append "dstat-" version ".tar.gz")) + (sha256 + (base32 + "16286z3y2lc9nsq8njzjkv6k2vyxrj9xiixj1k3gnsbvhlhkirj6")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ;; no make check + #:make-flags (let ((out (assoc-ref %outputs "out"))) + (list (string-append "DESTDIR=" out) + "prefix=/")) + ;; no configure script + #:phases (alist-delete 'configure %standard-phases))) + (inputs `(("python-2" ,python-2))) + (synopsis "Versatile resource statistics tool") + (description "Dstat is a versatile replacement for @command{vmstat}, +@command{iostat}, @command{netstat}, and @command{ifstat}. Dstat overcomes +some of their limitations and adds some extra features, more counters and +flexibility. Dstat is handy for monitoring systems during performance tuning +tests, benchmarks or troubleshooting. + +Dstat allows you to view all of your system resources in real-time, you can, +e.g., compare disk utilization in combination with interrupts from your IDE +controller, or compare the network bandwidth numbers directly with the disk +throughput (in the same interval).") + (home-page "http://dag.wiee.rs/home-made/dstat/") + (license license:gpl2+))) + +(define-public thefuck + (package + (name "thefuck") + (version "3.11") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/nvbn/thefuck/archive/" + version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "04q2cn8c83f6z6wn1scla1ilrpi5ssjc64987hvmwfvwvb82bvkp")))) + (build-system python-build-system) + (native-inputs + `(("python-setuptools" ,python-setuptools))) + (inputs + `(("python-colorama" ,python-colorama) + ("python-decorator" ,python-decorator) + ("python-psutil" ,python-psutil) + ("python-six" ,python-six))) + (home-page "https://github.com/nvbn/thefuck") + (synopsis "Correct mistyped console command") + (description + "The Fuck tries to match a rule for a previous, mistyped command, creates +a new command using the matched rule, and runs it.") + (license license:x11))) + +(define-public di + (package + (name "di") + (version "4.42") + (source + (origin + (method url-fetch) + (uri (string-append "https://gentoo.com/di/di-" version ".tar.gz")) + (sha256 + (base32 "1i6m9zdnidn8268q1lz9fd8payk7s4pgwh5zlam9rr4dy6h6a67n")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; Obscure test failures. + #:phases + (modify-phases %standard-phases + (delete 'configure) + (add-before 'build 'setup-environment + (lambda* (#:key outputs #:allow-other-keys) + (setenv "CC" "gcc") + (setenv "prefix" (assoc-ref outputs "out")) + #t))) + #:make-flags (list "--environment-overrides"))) + (home-page "https://www.gentoo.com/di/") + (synopsis "Advanced df like disk information utility") + (description + "'di' is a disk information utility, displaying everything +(and more) that your @code{df} command does. It features the ability to +display your disk usage in whatever format you prefer. It is designed to be +highly portable. Great for heterogenous networks.") + (license license:zlib))) + +(define-public cbatticon + (package + (name "cbatticon") + (version "1.6.4") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/valr/" + name "/archive/" version ".tar.gz")) + (sha256 + (base32 + "023fvsa4q7rl98rqgwrb1shyzaybdkkbyz5sywd0s5p7ixkksxqx")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no tests + #:make-flags + (list (string-append "PREFIX=" (assoc-ref %outputs "out")) + "CC=gcc") + #:phases + (modify-phases %standard-phases + (delete 'configure)))) ; no configure script + (inputs + `(("gtk+" ,gtk+) + ("gettext" ,gettext-minimal) + ("libnotify" ,libnotify))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (synopsis "Lightweight battery icon for the system tray") + (description "cbatticon is a lightweight battery icon that displays +the status of your battery in the system tray.") + (home-page "https://github.com/valr/cbatticon") + (license license:gpl2+))) + +(define-public interrobang + (let ((revision "1") + (commit "896543735e1c99144765fdbd7b6e6b5afbd8b881")) + (package + (name "interrobang") + (version (string-append "0.0.0-" revision "." (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "git://github.com/TrilbyWhite/interrobang") + (commit commit))) + (file-name (string-append name "-" version)) + (sha256 + (base32 + "1n13m70p1hfba5dy3i8hfclbr6k9q3d9dai3dg4jvhdhmxcpjzdf")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no tests + #:phases + (modify-phases %standard-phases + (delete 'configure)) ; no configure script + #:make-flags (list (string-append "PREFIX=" + (assoc-ref %outputs "out"))))) + (inputs + `(("libx11" ,libx11))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (synopsis "Scriptable launcher menu") + (description "Interrobang is a scriptable launcher menu with a customizable +shortcut syntax and completion options.") + (home-page "https://github.com/TrilbyWhite/interrobang") + (license license:gpl3+)))) + + + +(define-public pam-krb5 + (package + (name "pam-krb5") + (version "4.7") + (source (origin + (method url-fetch) + (uri (string-append + "https://archives.eyrie.org/software/kerberos/" name "-" + version ".tar.xz")) + (sha256 + (base32 + "0abf8cfpkprmhw5ca8iyqgrggh65lgqvmfllc1y6qz7zw1gas894")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-before 'configure 'disable-tests + (lambda _ + ;; The build container seems to interfere with some tests. + (substitute* "tests/TESTS" + (("module/basic\n") "")) + (substitute* "tests/TESTS" + (("pam-util/vector\n") "")) + #t))))) + (inputs + `(("linux-pam" ,linux-pam) + ("mit-krb5" ,mit-krb5))) + (native-inputs + `(("perl" ,perl) + ("perl-test-pod" ,perl-test-pod))) ; required for tests + (synopsis "Kerberos PAM module") + (description + "Pam-krb5 is a Kerberos PAM module for either MIT Kerberos or Heimdal. +It supports ticket refreshing by screen savers, configurable +authorization handling, authentication of non-local accounts for network +services, password changing, and password expiration, as well as all the +standard expected PAM features. It works correctly with OpenSSH, even +with ChallengeResponseAuthentication and PrivilegeSeparation enabled, +and supports extensive configuration either by PAM options or in +krb5.conf or both. PKINIT is supported with recent versions of both MIT +Kerberos and Heimdal and FAST is supported with recent MIT Kerberos.") + (home-page "http://www.eyrie.org/~eagle/software/pam-krb5") + ;; Dual licenced under a homebrew non-copyleft OR GPL (any version) + ;; However, the tarball does not contain a copy of the GPL, so unless + ;; we put one in, we cannot distribute it under GPL without violating + ;; clause requiring us to give all recipients a copy. + (license license:gpl1+))) + +;;http://archives.eyrie.org/software/kerberos/pam-krb5-4.7.tar.xz + +(define-public sunxi-tools + (package + (name "sunxi-tools") + (version "1.4.1") + (source + (origin + (method url-fetch) + (uri (string-append "https://github.com/linux-sunxi/" + "sunxi-tools/archive/v" version ".tar.gz")) + (sha256 + (base32 "06qd2b4dlzbmzfy4q9n8v5rkkbmgcfdbv4nkkcp4nysi10k7cpfs")) + (modules '((guix build utils))) + (snippet + ;; Remove binaries contained in the tarball which are only for the + ;; target and can be regenerated anyway. + '(delete-file-recursively "bin")) + (file-name (string-append name "-" version ".tar.gz")))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (inputs + `(("libusb" ,libusb))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no tests exist + #:make-flags (list (string-append "PREFIX=" + (assoc-ref %outputs "out")) + "CROSS_COMPILE=" + "CC=gcc" + "all") + #:phases + (modify-phases %standard-phases + (delete 'configure) + (replace 'install + (lambda* (#:key make-flags #:allow-other-keys) + (zero? (apply system* "make" "install-all" "install-misc" + make-flags))))))) + (home-page "https://github.com/linux-sunxi/sunxi-tools") + (synopsis "Hardware management tools for Allwinner computers") + (description "This package contains tools for Allwinner devices: +@enumerate +@item @command{sunxi-fexc}, @command{bin2fex}, @command{fex2bin}: Compile +a textual description of a board (.fex) to a binary representation (.bin). +@item @command{sunxi-fel}: Puts an Allwinner device into FEL mode which +makes it register as a special USB device (rather than USB host). +You can then connect it to another computer and flash it from there. +@item @command{sunxi-nand-part}: Partitions NAND flash. +@item @command{sunxi-bootinfo}: Reads out boot0 and boot1 (Allwinner +bootloader) parameters. +@item @command{sunxi-pio}: Sets GPIO parameters and oscillates a GPIO +in order to be able to find it. +@item @command{sunxi-meminfo}: Prints memory bus settings. +@item @command{sunxi-nand-image-builder}: Prepares raw NAND images. +@end enumerate") + (license license:gpl2+)))