Re: [PATCH] services: lsh: Add graceful handling of daemonic option.

2015-02-08 Thread Ludovic Courtès
Hi!

Deck Pickard deck.r.pick...@gmail.com skribis:

 From 1fef935d6292016c04b9234eedb5dcaf006dc152 Mon Sep 17 00:00:00 2001
 From: nebuli nebu@kipple
 Date: Wed, 3 Dec 2014 22:51:48 +0100
 Subject: [PATCH] services: lsh: Add graceful handling of daemonic option.

 * doc/guix.texi: Mention use case.
 * gnu/services/ssh.scm (lsh-service): New #:keys (daemonic?, pid-file?,
   pid-file).  Build new lshd-command and expand service-requirement
   field.

This patch had fallen through the cracks, sorry about that.

I’ve applied it with minor changes: I changed #:daemonic? to default to
#t, I added #:pid-file? to the documentation, and simplified the syntax
for the ‘requirements’ field as discussed.

I ended up leaving all the options, as you intended, so that users can
choose whether or not to use daemonic mode.

Thank you!

Ludo’.



Re: [PATCH] services: lsh: Add graceful handling of daemonic option.

2014-12-06 Thread Ludovic Courtès
Deck Pickard deck.r.pick...@gmail.com skribis:

 From 1fef935d6292016c04b9234eedb5dcaf006dc152 Mon Sep 17 00:00:00 2001
 From: nebuli nebu@kipple
 Date: Wed, 3 Dec 2014 22:51:48 +0100
 Subject: [PATCH] services: lsh: Add graceful handling of daemonic option.

 * doc/guix.texi: Mention use case.
 * gnu/services/ssh.scm (lsh-service): New #:keys (daemonic?, pid-file?,
   pid-file).  Build new lshd-command and expand service-requirement
   field.

Nice!

  (define* (lsh-service #:key
(lsh lsh)
 +  (daemonic? #f)
(host-key /etc/lsh/host-key)
(interfaces '())
(port-number 22)
(allow-empty-passwords? #f)
(root-login? #f)
(syslog-output? #t)
 +  (pid-file? #f)
 +  (pid-file /var/run/lshd.pid)
(x11-forwarding? #t)
(tcp/ip-forwarding? #t)
(password-authentication? #t)

I would be tempted to not expose #:daemonic?, #:pid-file? and
#:syslog-output?, and instead always use --daemonic --pid-file=...

In particular, when using --daemonic, having the PID file is required,
otherwise dmd won’t know what the PID of this process is, and thus will
be unable to control it.  For that reason, #:pid-file? must not be
exposed.

WDYT?

 +  (define requires
 +(if (and daemonic? syslog-output?)
 +'(networking syslogd)
 +'(networking)))

If we agree on the above, that would become '(networking syslogd)
unconditionally.

  (return (service
   (documentation GNU lsh SSH server)
   (provision '(ssh-daemon))
 - (requirement '(networking))
 + (requirement #~(#$@requires))

This is strictly equivalent to:

  (requirement `(,@requires))

or simply:

  (requirement requires)

:-)

G-expressions are only needed when capturing references to /gnu/store
items, packages, etc.

Thanks,
Ludo’.



Re: [PATCH] services: lsh: Add graceful handling of daemonic option.

2014-12-06 Thread Deck Pickard
On 6 Dec 2014 15:28, Ludovic Courtès l...@gnu.org wrote:

 Deck Pickard deck.r.pick...@gmail.com skribis:

  From 1fef935d6292016c04b9234eedb5dcaf006dc152 Mon Sep 17 00:00:00 2001
  From: nebuli nebu@kipple
  Date: Wed, 3 Dec 2014 22:51:48 +0100
  Subject: [PATCH] services: lsh: Add graceful handling of daemonic
option.
 
  * doc/guix.texi: Mention use case.
  * gnu/services/ssh.scm (lsh-service): New #:keys (daemonic?, pid-file?,
pid-file).  Build new lshd-command and expand service-requirement
field.

 Nice!

   (define* (lsh-service #:key
 (lsh lsh)
  +  (daemonic? #f)
 (host-key /etc/lsh/host-key)
 (interfaces '())
 (port-number 22)
 (allow-empty-passwords? #f)
 (root-login? #f)
 (syslog-output? #t)
  +  (pid-file? #f)
  +  (pid-file /var/run/lshd.pid)
 (x11-forwarding? #t)
 (tcp/ip-forwarding? #t)
 (password-authentication? #t)

 I would be tempted to not expose #:daemonic?, #:pid-file? and
 #:syslog-output?, and instead always use --daemonic --pid-file=...

 In particular, when using --daemonic, having the PID file is required,
 otherwise dmd won’t know what the PID of this process is, and thus will
 be unable to control it.  For that reason, #:pid-file? must not be
 exposed.

 WDYT?

I implemented this because, from what I gather, lshd will write to syslog
only in '--daemonic' mode, otherwise it spams the controlling terminal on
which dmd is running. And I wanted lsh to use syslog!

As it is now, dmd captures the right PID from the make-fork constructor
alone, while having no idea of pid files; I went as far as to write dmd
service (and 'deco sideloding' it), which printed out both PIDs, they were
eqv...

There might still remain a use case with daemonic? equal to false for
someone out there, even for simple reason of lack of functioning syslog (as
well as a use case of choosing not to log at all), shrug...

Change default to (daemonic? #t) and adjust the docs? Your call...
I did not mention pid file related keys in the docs, because it would be
only useful to someone who had to bother to look at actual lsh-service
signature, like someone who did need pid file for some strange purpose...


  +  (define requires
  +(if (and daemonic? syslog-output?)
  +'(networking syslogd)
  +'(networking)))

 If we agree on the above, that would become '(networking syslogd)
 unconditionally.


No, as I explained; one thing is having a chosen set of defaults, another
removing flexibility... lsh and/or dmd behaviour could change or someone
could like to rewrite lsh service definition.

   (return (service
(documentation GNU lsh SSH server)
(provision '(ssh-daemon))
  - (requirement '(networking))
  + (requirement #~(#$@requires))

 This is strictly equivalent to:

   (requirement `(,@requires))

 or simply:

   (requirement requires)

 :-)

 G-expressions are only needed when capturing references to /gnu/store
 items, packages, etc.

 Thanks,
 Ludo’.

Roger, still groking my way around, at least it doesn't matter apart from
couple useless macro expansions.
Drp,
-- 
(or ((,\ (x) `(,x x)) '(,\ (x) `(,x x))) (smth (that 'like)))


[PATCH] services: lsh: Add graceful handling of daemonic option.

2014-12-04 Thread Deck Pickard
#~(#$@ looks freaky, but if this is what it takes... Tried couple of other
figures, this one appears to generate right dmd.conf, though I haven't
had yet a chance to reboot.

Drp,
-- 
(or ((,\ (x) `(,x x)) '(,\ (x) `(,x x))) (smth (that 'like)))


0001-services-lsh-Add-graceful-handling-of-daemonic-optio.patch
Description: Binary data