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

services: cloudflare-tunnel: Support token file.

Browse Source 
* modules/rosenthal/services/child-error.scm
(cloudflare-tunnel-configuration)[token-file]: New field.
(cloudflare-tunnel-shepherd-service): Adjust accordingly.
This commit is contained in:
Hilton Chain 2025-05-15 00:30:31 +08:00
parent f851cdabfc
commit 879f4aef54
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
modules/rosenthal/services/child-error.scm
View File

@ -127,6 +127,8 @@
;; ;;
(define-maybe string)
(define-configuration cloudflare-tunnel-configuration (define-configuration cloudflare-tunnel-configuration
(cloudflared (cloudflared
(file-like cloudflared) (file-like cloudflared)
@ -148,8 +150,11 @@ headers. This can expose sensitive information in your logs.")
;; Subcommand options ;; Subcommand options
(token (token
(string "") maybe-string
"The Tunnel token.") "The Tunnel token.")
(token-file
maybe-string
"Secert file for the Tunnel token.")
(extra-options (extra-options
(list-of-strings '()) (list-of-strings '())
"List of extra options.") "List of extra options.")
@ -158,7 +163,7 @@ headers. This can expose sensitive information in your logs.")
(define cloudflare-tunnel-shepherd-service (define cloudflare-tunnel-shepherd-service
(match-record-lambda <cloudflare-tunnel-configuration> (match-record-lambda <cloudflare-tunnel-configuration>
(cloudflared log-level log-file extra-tunnel-options (cloudflared log-level log-file extra-tunnel-options
token extra-options) token token-file extra-options)
(list (shepherd-service (list (shepherd-service
(documentation "Run cloudflared.") (documentation "Run cloudflared.")
(provision '(cloudflare-tunnel)) (provision '(cloudflare-tunnel))
@ -175,7 +180,14 @@ headers. This can expose sensitive information in your logs.")
#:group "nogroup" #:group "nogroup"
#:log-file #$log-file #:log-file #$log-file
#:environment-variables #:environment-variables
(list (format #f "TUNNEL_TOKEN=~a" #$token)))) (list #$@(if (maybe-value-set? token)
(list (format #f "TUNNEL_TOKEN=~a"
token))
'())
#$@(if (maybe-value-set? token-file)
(list (format #f "TUNNEL_TOKEN_FILE=~a"
token-file))
'()))))
(stop #~(make-kill-destructor)))))) (stop #~(make-kill-destructor))))))
(define cloudflare-tunnel-service-type (define cloudflare-tunnel-service-type