On Mon, Sep 12, 2016 at 02:32:08AM +0200, Tobias Geerinckx-Rice wrote: > * gnu/packages/networking.scm (sslh): New variable. > --- > gnu/packages/networking.scm | 71 > ++++++++++++++++++++++++++++++++++++++++++++- > 1 file changed, 70 insertions(+), 1 deletion(-) > > diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm > index c4edbc3..1818b62 100644 > --- a/gnu/packages/networking.scm > +++ b/gnu/packages/networking.scm > @@ -40,6 +40,7 @@ > #:use-module (gnu packages audio) > #:use-module (gnu packages bison) > #:use-module (gnu packages check) > + #:use-module (gnu packages code) > #:use-module (gnu packages compression) > #:use-module (gnu packages databases) > #:use-module (gnu packages flex) > @@ -54,7 +55,9 @@ > #:use-module (gnu packages perl) > #:use-module (gnu packages pkg-config) > #:use-module (gnu packages python) > - #:use-module (gnu packages tls)) > + #:use-module (gnu packages textutils) > + #:use-module (gnu packages tls) > + #:use-module (gnu packages valgrind)) > > (define-public macchanger > (package > @@ -824,3 +827,69 @@ in dynamically linked programs and redirects them > through one or more SOCKS or > HTTP proxies.") > (home-page "https://github.com/rofl0r/proxychains-ng";) > (license license:gpl2+))) > + > +(define-public sslh > + (package > + (name "sslh") > + (version "1.18") > + (source > + (origin > + (method url-fetch) > + (uri (string-append "https://github.com/yrutschle/sslh/archive/v"; > + version ".tar.gz")) > + (file-name (string-append name "-" version ".tar.gz")) > + (sha256 > + (base32 > + "1vzw7a7s9lhspbn5zn3hw8hir4pkjgbd68yys4hfsnjp1h7bzjpn")))) > + (build-system gnu-build-system) > + (arguments > + '(#:phases > + (modify-phases %standard-phases > + (delete 'configure) ; no configure script > + (add-before 'check 'fix-tests > + (lambda* _ ^^^ Don't need the underscore here
> + (substitute* "./t"
> + (("\"/tmp") "$ENV{\"TMPDIR\"} . \"")
> + (("ip6-localhost") "localhost"))))
return #t on the substitute
> + ;; Many of these files are mentioned in the man page. Install them.
> + (add-after 'install 'install-documentation
> + (lambda* (#:key outputs #:allow-other-keys)
> + (let* ((out (assoc-ref outputs "out"))
> + (doc (string-append out "/share/doc")))
> + (install-file "README.md" doc)
> + (for-each
> + (lambda (file)
> + (install-file file (string-append doc
> "/examples")))
> + (append (find-files "." "\\.cfg")
> + (find-files "scripts" ".*"))))
> + #t)))
> + #:make-flags (list "CC=gcc"
> + "USELIBCAP=1"
> + "USELIBWRAP=1"
> + (string-append "PREFIX=" (assoc-ref %outputs
> "out")))
> + #:test-target "test"))
> + (native-inputs
> + ;; Tests dependencies.
> + `(("lcov" ,lcov)
> + ("perl" ,perl)
> + ("perl-io-socket-inet6" ,perl-io-socket-inet6)
> + ("perl-socket6" ,perl-socket6)
> + ("psmisc" ,psmisc)
> + ("valgrind" ,valgrind)))
> + (inputs
> + `(("libcap" ,libcap)
> + ("libconfig" ,libconfig)
> + ("tcp-wrappers" ,tcp-wrappers)))
> + (home-page "http://www.rutschle.net/tech/sslh.shtml";)
> + (synopsis "Applicative network protocol demultiplexer")
> + (description
Is the name specifically lowercase? Otherwise it should be a capital S,
and again a few lines down.
> + "sslh is a network protocol demultiplexer. It acts like a switchboard,
> +accepting connections from clients on one port and forwarding them to
> different
> +servers based on the contents of the first received data packet. Detection
> of
> +common protocols like HTTP(S), SSL, SSH, OpenVPN, tinc, and XMPP is already
> +implemented, but any other protocol that matches a regular expression can be
> +added. sslh's name comes from its original application of serving both SSH
> and
> +HTTPS on port 443, allowing SSH connections from inside corporate firewalls
> +that block port 22.")
> + (license (list license:bsd-2 ; tls.[ch]
> + license:gpl2+)))) ; everything else
> --
> 2.7.4
>
>
--
Efraim Flashner <[email protected]> אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D 14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted
signature.asc
Description: PGP signature
