|
|
;; SPDX-FileCopyrightText: 2022 Hilton Chain <hako@ultrarare.space> |
|
|
;; |
|
|
;; SPDX-License-Identifier: GPL-3.0-or-later |
|
|
|
|
|
(define-module (rosenthal services child-error) |
|
|
#:use-module (ice-9 match) |
|
|
#:use-module (guix records) |
|
|
#:use-module (guix gexp) |
|
|
#:use-module (gnu home services) |
|
|
#:use-module (gnu home services shepherd) |
|
|
#:use-module (gnu services) |
|
|
#:use-module (gnu services configuration) |
|
|
#:use-module (gnu services shepherd) |
|
|
#:use-module (rosenthal utils home-services-utils) |
|
|
#:export (cloudflare-tunnel-configuration |
|
|
cloudflare-tunnel-service-type)) |
|
|
|
|
|
;; Child-error: services for packages not available in Guix, currently this |
|
|
;; means some Go and Rust apps I build locally but don't want to package. |
|
|
|
|
|
|
|
|
|
|
|
;; |
|
|
;; Cloudflare Tunnel |
|
|
;; |
|
|
|
|
|
|
|
|
(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")) |
|
|
;; 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 '()))) |
|
|
|
|
|
(define cloudflare-tunnel-shepherd-service |
|
|
(match-lambda |
|
|
(($ <cloudflare-tunnel-configuration> cloudflared metrics |
|
|
log-level log-file |
|
|
token http2-origin? post-quantum? |
|
|
extra-options) |
|
|
(let ((tunnel-options |
|
|
(list "--no-autoupdate" "--metrics" metrics "--loglevel" log-level))) |
|
|
(list (shepherd-service |
|
|
(documentation "Run cloudflared.") |
|
|
(provision '(cloudflare-tunnel)) |
|
|
(requirement '(networking)) |
|
|
(start #~(make-forkexec-constructor |
|
|
(list #$cloudflared "tunnel" #$@tunnel-options "run" |
|
|
"--token" #$token |
|
|
#$@(if http2-origin? |
|
|
'("--http2-origin") |
|
|
'()) |
|
|
#$@(if post-quantum? |
|
|
'("--post-quantum") |
|
|
'()) |
|
|
#$@extra-options) |
|
|
#:user "nobody" |
|
|
#:group "nogroup" |
|
|
#:log-file #$log-file)) |
|
|
(stop #~(make-kill-destructor)))))))) |
|
|
|
|
|
(define cloudflare-tunnel-service-type |
|
|
(service-type |
|
|
(name 'cloudflare-tunnel) |
|
|
(extensions |
|
|
(list (service-extension shepherd-root-service-type |
|
|
cloudflare-tunnel-shepherd-service))) |
|
|
(default-value (cloudflare-tunnel-configuration)) |
|
|
(description "Run cloudflared, the Cloudflare Tunnel daemon.")))
|
|
|
|
