From mboxrd@z Thu Jan 1 00:00:00 1970 From: Raimon Grau Subject: Re: Add nethogs Date: Thu, 10 Mar 2016 13:52:56 +0000 Message-ID: <87k2lae8xz.fsf@gmail.com> References: <87oaameckb.fsf@gmail.com> <87lh5qeak8.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:35757) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ae11V-0007w3-VU for guix-devel@gnu.org; Thu, 10 Mar 2016 08:53:07 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ae11R-0000HY-G9 for guix-devel@gnu.org; Thu, 10 Mar 2016 08:53:05 -0500 Received: from mail-wm0-x22e.google.com ([2a00:1450:400c:c09::22e]:38442) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ae11R-0000HT-5a for guix-devel@gnu.org; Thu, 10 Mar 2016 08:53:01 -0500 Received: by mail-wm0-x22e.google.com with SMTP id l68so29593342wml.1 for ; Thu, 10 Mar 2016 05:53:00 -0800 (PST) In-reply-to: <87lh5qeak8.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: > 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'. Apparently it's a warning that has to be there because indeed, the file name doesn't contain the package name but only a version. I applied other fixes, and this should be good to review. Cheers Rai --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-gnu-Add-nethogs-0.8.1.patch Content-Description: Add nethogs >From f704f89f43db33fdf21110a24701dcfb1be23474 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 | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index 1df2a8d..5a7f8ae 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,38 @@ 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 --=-=-=--