seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-11-04 11:44:48 +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>
cloudflare-tunnel-configuration make-cloudflare-tunnel-configuration
cloudflare-tunnel-configuration?
(cloudflared cloudflare-tunnel-configuration-cloudflared ;string
(default "/bin/cloudflared"))
;; Tunnel command options
(metrics cloudflare-tunnel-configuration-metrics ;string
(default "localhost:"))
(log-level cloudflare-tunnel-configuration-log-level ;string
(default "info"))
(log-file cloudflare-tunnel-configuration-log-file ;string
(default "/var/log/cloudflared.log"))
(define-configuration/no-serialization cloudflare-tunnel-configuration
(cloudflared
(string "/bin/cloudflared")
"The cloudflared executable.")
;; Tunnel options
(metrics
(string "localhost:")
"Listen address for metrics reporting.")
(log-level
(string "info")
"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
(token cloudflare-tunnel-configuration-token ;string
(default #f))
(http2-origin? cloudflare-tunnel-configuration-http2-origin? ;boolean
(default #f))
(post-quantum? cloudflare-tunnel-configuration-post-quantum? ;boolean
(default #f))
(extra-options cloudflare-tunnel-configuration-extra-options ;list of string
(default '())))
(token
(string "")
"The Tunnel token.")
(http2-origin?
(boolean #f)
"Enable HTTP/2 origin servers.")
(post-quantum?
(boolean #f)
"Create an experimental post-quantum secure tunnel.")
(extra-options
(list-of-strings '())
"List of extra options."))
(define %cloudflare-tunnel-accounts
(list (user-group (name "cloudflared") (system? #t))