From bb87069a30d10c9a26f0af5d12b4c71e1fe2c013 Mon Sep 17 00:00:00 2001 From: Timo Wilken Date: Sun, 14 Jan 2024 15:57:49 +0100 Subject: Fix Wireguard host naming --- tw/services/wireguard.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/tw/services/wireguard.scm b/tw/services/wireguard.scm index 1906f70e..b2a34b1f 100644 --- a/tw/services/wireguard.scm +++ b/tw/services/wireguard.scm @@ -27,13 +27,13 @@ ("btl" "btl/kAgD+DVXsApNn53JCZdgZ9iJvVpFZVpa3Z+rrj4=" #f)))) (map (match-lambda* - ((i (name public-key port)) - (cons (string-append name ".twilken.net") + ((i (short-name public-key port)) + (cons (string-append short-name ".twilken.net") (wireguard-peer - (name (string-append name ".wg")) - (endpoint (and port (format #f "~a.twilken.net:~d" name port))) + (name (string-append short-name ".wg")) + (endpoint (and port (format #f "~a.twilken.net:~d" short-name port))) (public-key public-key) - (preshared-key (string-append "/etc/wireguard/" name ".psk")) + (preshared-key (string-append "/etc/wireguard/" short-name ".psk")) (allowed-ips (list (format #f "10.0.0.~d/32" (+ i 1)) (format #f "fc00::~d/128" (+ i 1))))))) (args (error "Unknown peer spec" args))) -- cgit v1.2.3