half-package of autossh

[Christopher Allan Webber]

Hello all!  I got autossh packaged, at least in theory.  I use this all
the time when on Debian.

And yet, though the binary appears on my profile, it seems to do nothing
in Guix.  I'm not sure why this is.

I should be able to do:

  autossh fencepost.gnu.org

and it should work, but instead I just see the help text printed.

Any ideas?  Or if anyone wanting to finish a mysteriously busted
package, have at it.

>From 0cec8160220239fa6945a2f7823cf2b14512cf1e Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <address@hidden>
Date: Mon, 8 Feb 2016 16:01:49 -0800
Subject: [PATCH] gnu: Add autossh.

* gnu/packages/ssh.scm (autossh): New variable.
---
 gnu/packages/ssh.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm
index d4bf29c..602a443 100644
--- a/gnu/packages/ssh.scm
+++ b/gnu/packages/ssh.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2013, 2014 Andreas Enge <address@hidden>
 ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <address@hidden>
 ;;; Copyright © 2015 Efraim Flashner <address@hidden>
+;;; Copyright © 2016 Christopher Allan Webber <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -349,3 +350,30 @@ client.  It runs on a variety of POSIX-based platforms.  
Dropbear is
 particularly useful for embedded systems, such as wireless routers.")
     (home-page "https://matt.ucc.asn.au/dropbear/dropbear.html";)
     (license (license:x11-style "" "See file LICENSE."))))
+
+(define-public autossh
+  (package
+    (name "autossh")
+    (version "1.4e")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "http://www.harding.motd.ca/autossh/autossh-";
+             version ".tgz"))
+       (sha256
+        (base32 "0mlicw28vq2jxa0jf0dys5ja75v0fxpjavlq9dpif6bnknji13ly"))))
+    (build-system gnu-build-system)
+    (arguments `(#:tests? #f)) ; There is no "make check" or anything similar
+    (inputs `(("openssh" ,openssh)))
+    (synopsis "Automatically restart SSH sessions and tunnels")
+    (description "autossh is a program to start a copy of ssh and 
+monitor it, restarting it as necessary should it die or stop 
+passing traffic. The idea is from rstunnel (Reliable SSH Tunnel), 
+but implemented in C.")
+    (home-page "http://www.harding.motd.ca/autossh/";)
+    (license
+     ;; Why point to a source file?  Well, all the individual files have a
+     ;; copy of this license in their headers, but there's no seprate file
+     ;; with that information.
+     (license:non-copyleft "file://autossh.c"))))
-- 
2.6.3