>From 75f4642b14e3c9e8efc45f8246d6465729178808 Mon Sep 17 00:00:00 2001
From: Raimon Grau <address@hidden>
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