On Fri 05 Aug 2016 14:18, Julien Lepiller <jul...@lepiller.eu> writes:

> here is a patch that adds a service definition for openssh.

Very nice!

> +      (let ((pid (primitive-fork)))
> +        (case pid
> +          ((0)
> +           (execl (string-append #$openssh "/bin/ssh-keygen")
> +                  "ssh-keygen" "-A")
> +          (else
> +           (zero? (cdr (waitpid pid)))))))

I guess you could system* this one instead; would be easier I think.
Dunno.

Other than that looks all good to me.  Would need an addition to the
manual eventually though.

Andy

Reply via email to