Re: Add nethogs

[Raimon Grau <raimonster@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 488 bytes --]


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

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Add nethogs --]
[-- Type: text/x-diff, Size: 2427 bytes --]

From f704f89f43db33fdf21110a24701dcfb1be23474 Mon Sep 17 00:00:00 2001
From: Raimon Grau <raimon@3scale.net>
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