diff options
author | Simon Streit <simon@netpanic.org> | 2021-11-19 22:14:23 +0100 |
---|---|---|
committer | Simon Streit <simon@netpanic.org> | 2021-11-19 22:14:23 +0100 |
commit | d90708dda390da09a5592c35c25180d2e91e02f7 (patch) | |
tree | 1795dbef86ceecbba2800ad56a13123f66d4177d | |
parent | 0b58c779af046a835077b7dd6d6904d677c2afdd (diff) |
services: wsdd-services: modify declaration
* siguix/services/wsdd.scm (wsdd-services): modify declaration.
-rw-r--r-- | siguix/services/wsdd.scm | 40 |
1 files changed, 22 insertions, 18 deletions
diff --git a/siguix/services/wsdd.scm b/siguix/services/wsdd.scm index 9a1869d..4b3435f 100644 --- a/siguix/services/wsdd.scm +++ b/siguix/services/wsdd.scm @@ -57,9 +57,9 @@ ;; wsdd-configuration-verbose? wsdd-configuration-domain wsdd-configuration-hostname - wsdd-configuration-no-host? + ;; wsdd-configuration-no-host? wsdd-configuration-preserve-case? - wsdd-configuration-no-http? + ;; wsdd-configuration-no-http? wsdd-configuration-workgroup ;; wsdd-configuration-discovery? ;; wsdd-configuration-listen @@ -77,9 +77,13 @@ (default #f)) (chroot wsdd-configuration-chroot ;string (default #f)) - (hoplimit wsdd-configuration-hoplimit ;integer | #f - (default #f)) - (interface wsdd-configuration-interface ;list of strings + (hoplimit wsdd-configuration-hoplimit ;integer | 1 + (default 1)) + (interface wsdd-configuration-interface ;list of + ;strings, and + ;FIXME! This + ;list is not + ;expanded yet. (default #f)) ;; (user wsdd-configuration-user ;; (default '())) @@ -93,14 +97,14 @@ (default #f)) (hostname wsdd-configuration-hostname ;string (default #f)) - (no-host? wsdd-configuration-no-host? ;bolean - (default #f)) + ;; (no-host? wsdd-configuration-no-host? ;bolean + ;; (default #f)) (preserve-case? wsdd-configuration-preserve-case? ;bolean (default #f)) - (no-http? wsdd-configuration-no-http? ;bolean - (default #f)) + ;; (no-http? wsdd-configuration-no-http? ;bolean + ;; (default #f)) (workgroup wsdd-configuration-workgroup ;string - (default #f)) + (default "WORKGROUP")) ;;; I don't think it makes sense to run it in discovery mode as a ;;; service. @@ -134,9 +138,9 @@ ;; verbose? domain hostname - no-host? + ;; no-host? preserve-case? - no-http? + ;; no-http? workgroup ;; discovery? ;; listen @@ -187,15 +191,15 @@ #$@(if hostname #~("--hostname" #$hostname) #~()) - #$@(if no-host? - #~("--no-host") - #~()) + ;; #$@(if no-host? + ;; #~("--no-host") + ;; #~()) #$@(if preserve-case? #~("--preserve-case") #~()) - #$@(if no-http? - #~("--no-http") - #~()) + ;; #$@(if no-http? + ;; #~("--no-http") + ;; #~()) #$@(if workgroup #~("--workgroup " #$workgroup) #~()) |