diff options
| author | Clément Lassieur <clement@lassieur.org> | 2016-06-09 00:22:14 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-06-10 15:21:26 +0200 |
| commit | 0ee23de941537f1efdc0271aa4b0b721318989f1 (patch) | |
| tree | 5ef6eef9376cd0f60ecd7b0b537da19a8ce53d53 | |
| parent | 9e8599a3b13d0322f8f5a7e8dfaf9f66e78139f6 (diff) | |
gnu: Add woof.
* gnu/packages/web.scm (woof): New variable.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | gnu/packages/web.scm | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index 6ac03fcce6..28f247cba6 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -12,6 +12,7 @@ ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org> ;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> +;;; Copyright © 2016 Clément Lassieur <clement@lassieur.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -41,6 +42,7 @@ #:use-module (guix build-system perl) #:use-module (guix build-system cmake) #:use-module (guix build-system r) + #:use-module (guix build-system trivial) #:use-module (gnu packages) #:use-module (gnu packages apr) #:use-module (gnu packages documentation) @@ -3350,3 +3352,39 @@ you'd expect.") HTTPS. It provides a library, libuhttpmock, which implements recording and playback of HTTP request/response traces.") (license l:lgpl2.1+))) + +(define-public woof + (package + (name "woof") + (version "2012-05-31") + (source (origin + (method url-fetch) + (uri (string-append + "http://www.home.unix-ag.org/simon/woof-" + version ".py")) + (sha256 + (base32 + "0wjmjhpg6xlid33yi59j47q2qadz20sijrqsjahj30vngz856hyq")))) + (build-system trivial-build-system) + (arguments + '(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (let* ((source (assoc-ref %build-inputs "source")) + (out (assoc-ref %outputs "out")) + (bin (string-append out "/bin")) + (python (assoc-ref %build-inputs "python"))) + (mkdir-p bin) + (with-directory-excursion bin + (copy-file source "woof") + (patch-shebang "woof" (list (string-append python "/bin"))) + (chmod "woof" #o555)) + #t)))) + (inputs `(("python" ,python-2))) + (home-page "http://www.home.unix-ag.org/simon/woof.html") + (synopsis "Single file web server") + (description "Woof (Web Offer One File) is a small simple web server that +can easily be invoked on a single file. Your partner can access the file with +tools they trust (e.g. wget).") + (license l:gpl2+))) |