Re: Add nethogs

[Raimon Grau <raimonster@gmail.com>]

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


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


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

From 75f4642b14e3c9e8efc45f8246d6465729178808 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 | 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