diff options
| author | W. Kosior <koszko@koszko.org> | 2025-02-17 12:27:08 +0100 |
|---|---|---|
| committer | W. Kosior <koszko@koszko.org> | 2025-02-17 14:19:03 +0100 |
| commit | 40b38730c95d6fa266fd6d29574c0fcbe5d37c28 (patch) | |
| tree | 5577a3b77d45e127ed9216180b79aa5a79965579 | |
| parent | 44b02354682fee584c92603ffcc927e4c2cdbec9 (diff) | |
| download | guix-40b38730c95d6fa266fd6d29574c0fcbe5d37c28.tar.gz guix-40b38730c95d6fa266fd6d29574c0fcbe5d37c28.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 97c7e275bd..eddb2ff5fb 100644 --- a/gnu/services/vpn.scm +++ b/gnu/services/vpn.scm @@ -275,6 +275,10 @@ down ~a/etc/openvpn/client.down (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 @@ -293,7 +297,10 @@ down ~a/etc/openvpn/client.down "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) |