Less quoted strings

diff --git a/rc.tcl b/rc.tcl
index 99bb0b65c276685f5c3c54db3e56c52d6999158c..45d54c7353b5089bc9c3b797c64a535a3e6ad15f 100644 (file)
--- a/rc.tcl
+++ b/rc.tcl
@@ -9,9 +9,10 @@ set Y6 21a:af91:8d0e:b05:9645:e4e9:12be:3c39
 set NS1 uz544mqwggqbf3z4utlhfqn45vpbpq78nc63hpg5u2ut29stkt0pkr.ns7.stargrave.org.
 set NS2 uz5nulnd504gp3s7sdmdl5l2gxc762hpw926t90k39ltxp67flbccn.ns5.stargrave.org.
 
-set NoSPF {"v=spf1 -all"}
+set NoSPF "v=spf1 -all"
 set NoMX "MX 0 ."
-set ReSPF {"v=spf1 redirect=_spf.stargrave.org"}
+set ReSPF "v=spf1 redirect=_spf.stargrave.org"
+set DKIMKey "v=DKIM1; k=ed25519; p=R1JVW376WZiRHuK1+74hESbo1Jt3hBCv13l8fVJZrBk="
 
 proc zone {serial} {
     global DOMAIN NS1 NS2
@@ -52,7 +53,7 @@ proc mx {dn} {
     puts "$dn MX 20 mail2.stargrave.org."
     puts "$dn MX 30 mailfake1.stargrave.org."
     global ReSPF
-    puts "$dn TXT $ReSPF"
+    puts "$dn TXT \"$ReSPF\""
 }
 
 proc dane {dn {port 443}} {
@@ -104,14 +105,14 @@ proc subdomain {dn addrs {flags {}}} {
 
     global NoSPF NoMX
     if {[lsearch $flags mailable] == -1} {
-        puts "$short TXT $NoSPF"
+        puts "$short TXT \"$NoSPF\""
         puts "$short $NoMX"
     }
     if {[lsearch $flags y] != -1} {
         global Y6
         set short [shorten y.[fqdn $dn]]
         puts "$short AAAA $Y6"
-        puts "$short TXT $NoSPF"
+        puts "$short TXT \"$NoSPF\""
         puts "$short $NoMX"
         ssh $short
     }