From mboxrd@z Thu Jan 1 00:00:00 1970 From: Raimon Grau Subject: Re: Add nethogs Date: Thu, 10 Mar 2016 13:17:59 +0000 Message-ID: <87lh5qeak8.fsf@gmail.com> References: <87oaameckb.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:53905) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ae0Tg-0000Kx-8J for guix-devel@gnu.org; Thu, 10 Mar 2016 08:18:09 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ae0Tb-0006KD-R7 for guix-devel@gnu.org; Thu, 10 Mar 2016 08:18:08 -0500 Received: from mail-wm0-x229.google.com ([2a00:1450:400c:c09::229]:34624) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ae0Tb-0006K4-GM for guix-devel@gnu.org; Thu, 10 Mar 2016 08:18:03 -0500 Received: by mail-wm0-x229.google.com with SMTP id p65so28214102wmp.1 for ; Thu, 10 Mar 2016 05:18:03 -0800 (PST) In-reply-to: <87oaameckb.fsf@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: Raimon Grau Cc: guix-devel@gnu.org --=-=-= Content-Type: text/plain Raimon Grau writes: > Hi guixers, > > I created a package definition for nethogs. > I ran lint on it (forgot to do it previously), and now it complies with everything but "the source file name should contain the package name", although afaict it does contain it. I'll try to investigate more on that but that's the 'more correct version'. Cheers and sorry for the noise :/ Rai --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-gnu-Add-nethogs-0.8.1.patch Content-Description: Add nethogs >From 75f4642b14e3c9e8efc45f8246d6465729178808 Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Thu, 10 Mar 2016 13:13:24 +0000 Subject: [PATCH] gnu: Add nethogs 0.8.1. * gnu/packages/networking.scm (nethogs): New variable. --- gnu/packages/networking.scm | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index 1df2a8d..e84dcd0 100644 --- a/gnu/packages/networking.scm +++ b/gnu/packages/networking.scm @@ -25,6 +25,7 @@ #:use-module (guix download) #:use-module (guix build-system gnu) #:use-module (gnu packages tls) + #:use-module (gnu packages admin) #:use-module (gnu packages ncurses)) (define-public miredo @@ -209,3 +210,41 @@ bandwidth usage in real time. It visualizes the in- and outgoing traffic using two graphs and provides additional info like total amount of transfered data and min/max network usage.") (license license:gpl2))) + +(define-public nethogs + (package + (name "nethogs") + (version "0.8.1") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/raboof/" name "/archive/v" + version ".tar.gz")) + (sha256 + (base32 + "0hnz4h2zwfyfn62i0hjsiii0izvjxfa1myq1bd59fja5h51yyc2c")))) + (build-system gnu-build-system) + (inputs `(("ncurses" ,ncurses) + ("libpcap" ,libpcap))) + (arguments + '(#:tests? #f ; no "check" target + #:phases + (modify-phases + %standard-phases + (delete 'configure) ; no configure script + (add-before + 'build 'fix-prefix-path + (lambda _ + (substitute* + "Makefile" + (("^prefix := /usr/local") + (string-append "prefix := " (assoc-ref %outputs "out")))))) + #:make-flags `("CC=gcc" + ,(string-append + "PREFIX=" (assoc-ref %outputs "out")))))) + (home-page "http://raboof.github.io/nethogs/") + (synopsis "Net top tool grouping bandwidth per process") + (description + "NetHogs is a small 'net top' tool. Instead of breaking the traffic down +per protocol or per subnet, like most tools do, it groups bandwidth by +process. NetHogs does not rely on a special kernel module to be loaded.") + (license license:gpl2))) -- 2.6.3 --=-=-=--