From mboxrd@z Thu Jan 1 00:00:00 1970 From: Raimon Grau Subject: Add nethogs Date: Thu, 10 Mar 2016 12:34:44 +0000 Message-ID: <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]:39893) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1adzno-0004i1-52 for guix-devel@gnu.org; Thu, 10 Mar 2016 07:34:53 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1adznj-0000kF-U9 for guix-devel@gnu.org; Thu, 10 Mar 2016 07:34:52 -0500 Received: from mail-wm0-x230.google.com ([2a00:1450:400c:c09::230]:35282) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1adznj-0000jm-NK for guix-devel@gnu.org; Thu, 10 Mar 2016 07:34:47 -0500 Received: by mail-wm0-x230.google.com with SMTP id l68so28085338wml.0 for ; Thu, 10 Mar 2016 04:34:47 -0800 (PST) Received: from singularity (110.Red-83-46-130.dynamicIP.rima-tde.net. [83.46.130.110]) by smtp.gmail.com with ESMTPSA id p125sm3326345wmd.16.2016.03.10.04.34.45 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Thu, 10 Mar 2016 04:34:46 -0800 (PST) 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: guix-devel@gnu.org --=-=-= Content-Type: text/plain Hi guixers, I created a package definition for nethogs. It's a kind of top for network usage. Comments are appreciated. Cheers, Rai --=-=-= Content-Type: text/x-diff Content-Disposition: attachment; filename=0001-gnu-Add-nethogs-0.8.1.patch Content-Description: Add nethogs >From 87bd3bdfccdd686fd06e30c1a100d1aca3911b9f Mon Sep 17 00:00:00 2001 From: Raimon Grau Date: Thu, 10 Mar 2016 12:27:45 +0000 Subject: [PATCH] gnu: Add nethogs 0.8.1. * gnu/packages/networking.scm (nethogs): New variable. --- gnu/packages/networking.scm | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index 49403c1..3731da7 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 @@ -210,3 +211,37 @@ 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/nethogs/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 --=-=-=--