mbakke pushed a commit to branch master
in repository guix.
commit 9e6c7c425e80c9d2783489c82cbe96c2a116b937
Author: Stefan Reichoer <[email protected]>
Date: Mon Dec 26 21:22:19 2016 +0100
gnu: Add httpstat.
* gnu/packages/networking.scm (httpstat): New variable.
Signed-off-by: Marius Bakke <[email protected]>
---
gnu/packages/networking.scm | 36 +++++++++++++++++++++++++++++++++++-
1 file changed, 35 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm
index 2a5ff09..4593165 100644
--- a/gnu/packages/networking.scm
+++ b/gnu/packages/networking.scm
@@ -2,7 +2,7 @@
;;; Copyright © 2014 Ludovic Courtès <[email protected]>
;;; Copyright © 2015, 2016 Ricardo Wurmus <[email protected]>
;;; Copyright © 2015 Mark H Weaver <[email protected]>
-;;; Copyright © 2015 Stefan Reichör <[email protected]>
+;;; Copyright © 2015, 2016 Stefan Reichör <[email protected]>
;;; Copyright © 2016 Raimon Grau <[email protected]>
;;; Copyright © 2016 Tobias Geerinckx-Rice <[email protected]>
;;; Copyright © 2016 John Darrington <[email protected]>
@@ -34,6 +34,7 @@
#:use-module (guix download)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
+ #:use-module (guix build-system python)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages adns)
@@ -43,6 +44,7 @@
#:use-module (gnu packages check)
#:use-module (gnu packages code)
#:use-module (gnu packages compression)
+ #:use-module (gnu packages curl)
#:use-module (gnu packages databases)
#:use-module (gnu packages flex)
#:use-module (gnu packages gettext)
@@ -549,6 +551,38 @@ by firewalls or when you want to monitor the response time
of the actual web
application stack itself.")
(license license:gpl2))) ; with permission to link with OpenSSL
+(define-public httpstat
+ (package
+ (name "httpstat")
+ (version "1.2.1")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (pypi-uri "httpstat" version))
+ (sha256
+ (base32
+ "1chw2nk56vaq87aba012a270k9na06hfx1pfbsrc3jfvlc2kb9hb"))))
+ (build-system python-build-system)
+ (inputs `(("curl" ,curl)))
+ (arguments
+ '(#:phases
+ (modify-phases %standard-phases
+ (add-before 'build 'fix-curl-path
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "httpstat.py"
+ (("ENV_CURL_BIN.get\\('curl'\\)")
+ (string-append "ENV_CURL_BIN.get('"
+ (assoc-ref inputs "curl")
+ "/bin/curl')"))))))))
+ (home-page "https://github.com/reorx/httpstat";)
+ (synopsis "Visualize curl statistics")
+ (description
+ "@command{httpstat} is a tool to visualize statistics from the
+@command{curl} HTTP client. It acts as a wrapper for @command{curl} and
+prints timing information for each step of the HTTP request (DNS lookup,
+TCP connection, TLS handshake and so on) in the terminal.")
+ (license license:expat)))
+
(define-public bwm-ng
(package
(name "bwm-ng")
