seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-05-23 20:45:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: cloudflare-tunnel-configuration: Define with define-configuration.

Browse Source 
* rosenthal/services/child-error.scm (cloudflare-tunnel-configuration): Change
to `define-configuration` form.
This commit is contained in:
Hilton Chain 2022-12-01 22:47:18 +08:00
parent 0c0571462b
commit 6dc8bbfa04
No known key found for this signature in database
GPG Key ID: 5E5AA665614917F7
1 changed files with 31 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
rosenthal/services/child-error.scm
View File

@ -27,27 +27,38 @@
;; ;;
(define-record-type* <cloudflare-tunnel-configuration> (define-configuration/no-serialization cloudflare-tunnel-configuration
cloudflare-tunnel-configuration make-cloudflare-tunnel-configuration (cloudflared
cloudflare-tunnel-configuration? (string "/bin/cloudflared")
(cloudflared cloudflare-tunnel-configuration-cloudflared ;string "The cloudflared executable.")
(default "/bin/cloudflared"))
;; Tunnel command options ;; Tunnel options
(metrics cloudflare-tunnel-configuration-metrics ;string (metrics
(default "localhost:")) (string "localhost:")
(log-level cloudflare-tunnel-configuration-log-level ;string "Listen address for metrics reporting.")
(default "info")) (log-level
(log-file cloudflare-tunnel-configuration-log-file ;string (string "info")
(default "/var/log/cloudflared.log")) "Application logging level (@code{debug}, @code{info}, @code{warn},
@code{error}, @code{fatal}). At debug level cloudflared will log request URL,
method, protocol, content length, as well as, all request and response
headers. This can expose sensitive information in your logs.")
(log-file
(string "/var/log/cloudflared.log")
"File path to store logs.")
;; Subcommand options ;; Subcommand options
(token cloudflare-tunnel-configuration-token ;string (token
(default #f)) (string "")
(http2-origin? cloudflare-tunnel-configuration-http2-origin? ;boolean "The Tunnel token.")
(default #f)) (http2-origin?
(post-quantum? cloudflare-tunnel-configuration-post-quantum? ;boolean (boolean #f)
(default #f)) "Enable HTTP/2 origin servers.")
(extra-options cloudflare-tunnel-configuration-extra-options ;list of string (post-quantum?
(default '()))) (boolean #f)
"Create an experimental post-quantum secure tunnel.")
(extra-options
(list-of-strings '())
"List of extra options."))
(define %cloudflare-tunnel-accounts (define %cloudflare-tunnel-accounts
(list (user-group (name "cloudflared") (system? #t)) (list (user-group (name "cloudflared") (system? #t))