diff options
| author | W. Kosior <koszko@koszko.org> | 2025-02-17 12:27:08 +0100 |
|---|---|---|
| committer | W. Kosior <koszko@koszko.org> | 2025-03-21 13:59:34 +0100 |
| commit | 6c7cd4143a9bcec5be7e95aff85866243e82ccf6 (patch) | |
| tree | 430034a0cd525bb6ee366faa81bce609ba7601c7 | |
| parent | 7978f390867bb597eb671ce77dcda58fbf09534b (diff) | |
| download | guix-6c7cd4143a9bcec5be7e95aff85866243e82ccf6.tar.gz guix-6c7cd4143a9bcec5be7e95aff85866243e82ccf6.zip | |
services: openvpn: Allow putting arbitrary text server's ccd config.
* gnu/services/vpn.scm (verbatim-text?): New variable.
(serialize-verbatim-text): New variable.
(openvpn-ccd-configuration)[opaque-configuration]: New field.
Change-Id: I1becf66bb2e41237595e45cd23c20800d3ffe239
| -rw-r--r-- | gnu/services/vpn.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/services/vpn.scm b/gnu/services/vpn.scm index 92f17cf5ff..d3caafb363 100644 --- a/gnu/services/vpn.scm +++ b/gnu/services/vpn.scm @@ -283,6 +283,10 @@ (and val (format #t "push \"redirect-gateway\"\n"))) +(define verbatim-text? string?) +(define (serialize-verbatim-text field-name value) + (format #t "~@[~a~%~]" value)) + (define-configuration openvpn-remote-configuration (name @@ -301,7 +305,10 @@ "Client own network") (ifconfig-push (ip-mask #f) - "Client VPN IP.")) + "Client VPN IP.") + (opaque-configuration + (verbatim-text #f) + "Text to be included verbatim in the configuration file.")) (define (openvpn-remote-list? val) (and (list? val) |