services: cloudflare-tunnel-configuration: Add extra-tunnel-options.

* rosenthal/services/child-error.scm (cloudflare-tunnel-configuration): Add
extra-tunnel-options.
(cloudflare-tunnel-shepherd-service): Honor it.
wip/index/refs/heads/trunk
Hilton Chain 2 years ago
parent 6dc8bbfa04
commit 6f168bc772
No known key found for this signature in database
GPG Key ID: 5E5AA665614917F7
  1. 9
      rosenthal/services/child-error.scm

@ -45,6 +45,9 @@ headers. This can expose sensitive information in your logs.")
(log-file (log-file
(string "/var/log/cloudflared.log") (string "/var/log/cloudflared.log")
"File path to store logs.") "File path to store logs.")
(extra-tunnel-options
(list-of-strings '())
"List of extra tunnel options.")
;; Subcommand options ;; Subcommand options
(token (token
@ -74,6 +77,7 @@ headers. This can expose sensitive information in your logs.")
(match-lambda (match-lambda
(($ <cloudflare-tunnel-configuration> cloudflared metrics (($ <cloudflare-tunnel-configuration> cloudflared metrics
log-level log-file log-level log-file
extra-tunnel-options
token http2-origin? post-quantum? token http2-origin? post-quantum?
extra-options) extra-options)
(let ((tunnel-options (let ((tunnel-options
@ -83,8 +87,9 @@ headers. This can expose sensitive information in your logs.")
(provision '(cloudflare-tunnel)) (provision '(cloudflare-tunnel))
(requirement '(networking)) (requirement '(networking))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list #$cloudflared "tunnel" #$@tunnel-options "run" (list #$cloudflared "tunnel" #$@tunnel-options
"--token" #$token #$@extra-tunnel-options
"run" "--token" #$token
#$@(if http2-origin? #$@(if http2-origin?
'("--http2-origin") '("--http2-origin")
'()) '())

Loading…
Cancel
Save