From 69bbb181a3b0ca12644af37a61e350bf6a064a16 Mon Sep 17 00:00:00 2001
Message-Id: <69bbb181a3b0ca12644af37a61e350bf6a064a16.1713530545.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Thu, 3 Apr 2014 15:19:15 +0100
Subject: [PATCH] Domain keys support.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 distorted.lisp                 |  7 +++++++
 dkim-stratocaster.20140403.pub | 30 ++++++++++++++++++++++++++++++
 odin.lisp                      |  9 ++++++++-
 3 files changed, 45 insertions(+), 1 deletion(-)
 create mode 100644 dkim-stratocaster.20140403.pub

diff --git a/distorted.lisp b/distorted.lisp
index 9bd838f..0806e78 100644
--- a/distorted.lisp
+++ b/distorted.lisp
@@ -33,6 +33,13 @@ (defzone distorted.org.uk
    :mx mail
    :srv ((:smtp old-mail)))
 
+  (stratocaster.20140403._domainkey
+   :dkim ("dkim-stratocaster.20140403.pub"
+	  :v "DKIM1"
+	  :k "rsa"
+	  :h "sha256"
+	  :s "email"))
+
   ;; Anycast services.
   (dns0 (any :a dns0.any)
 	(jump :svc precision.jump)
diff --git a/dkim-stratocaster.20140403.pub b/dkim-stratocaster.20140403.pub
new file mode 100644
index 0000000..591d1bd
--- /dev/null
+++ b/dkim-stratocaster.20140403.pub
@@ -0,0 +1,30 @@
+Public-Key: (2048 bit)
+Modulus:
+    00:dc:2d:5b:a0:4d:62:ff:b0:df:2b:99:24:e3:fa:
+    87:91:c9:04:f1:63:e2:6f:bf:48:d1:11:8d:70:12:
+    ec:a6:40:84:a6:80:fd:c7:c1:eb:53:a9:70:c8:00:
+    10:f7:a1:d6:64:86:23:60:eb:ec:c5:5c:3c:a5:46:
+    dd:e4:ab:c7:32:1a:37:65:56:86:25:72:b8:84:35:
+    17:02:44:14:5c:5d:ab:89:4a:2d:af:77:77:74:7f:
+    af:8a:b7:f1:60:f5:28:59:87:f2:4a:32:bd:d2:98:
+    74:36:ee:dd:32:e3:70:91:b7:e6:de:09:6b:22:a4:
+    48:f8:81:17:41:70:64:4a:60:b5:21:28:ce:c4:82:
+    f6:1b:fe:0c:3b:ba:99:48:1d:25:51:4a:13:1a:b0:
+    fc:cf:97:f5:26:c3:67:ae:4e:19:50:06:5e:ab:aa:
+    1d:8a:ad:3a:91:e6:2f:3a:84:25:f7:18:f1:52:e1:
+    34:29:c0:90:b8:8f:75:7d:e2:19:62:c3:2a:39:0b:
+    20:4f:fc:76:8b:a5:0f:80:46:75:bb:04:dd:20:23:
+    a4:b1:21:ba:da:1f:99:df:9d:1b:3f:71:6b:d6:57:
+    e7:91:1e:f7:db:b2:49:4b:fb:39:9f:6f:bc:9b:6b:
+    5d:26:b9:49:38:9d:3b:ce:3f:e2:d3:48:b9:ca:ae:
+    c6:55
+Exponent: 65537 (0x10001)
+-----BEGIN PUBLIC KEY-----
+MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA3C1boE1i/7DfK5kk4/qH
+kckE8WPib79I0RGNcBLspkCEpoD9x8HrU6lwyAAQ96HWZIYjYOvsxVw8pUbd5KvH
+Mho3ZVaGJXK4hDUXAkQUXF2riUotr3d3dH+virfxYPUoWYfySjK90ph0Nu7dMuNw
+kbfm3glrIqRI+IEXQXBkSmC1ISjOxIL2G/4MO7qZSB0lUUoTGrD8z5f1JsNnrk4Z
+UAZeq6odiq06keYvOoQl9xjxUuE0KcCQuI91feIZYsMqOQsgT/x2i6UPgEZ1uwTd
+ICOksSG62h+Z350bP3Fr1lfnkR7327JJS/s5n2+8m2tdJrlJOJ07zj/i00i5yq7G
+VQIDAQAB
+-----END PUBLIC KEY-----
diff --git a/odin.lisp b/odin.lisp
index 3d481f7..45e95cd 100644
--- a/odin.lisp
+++ b/odin.lisp
@@ -18,4 +18,11 @@ (defzone odin.gg
 
   ;; Mail servers
   :mx ((mail :ip stratocaster))
-  :srv ((:smtp mail)))
+  :srv ((:smtp mail))
+
+  (stratocaster.20140403._domainkey
+   :dkim ("dkim-stratocaster.20140403.pub"
+	  :v "DKIM1"
+	  :k "rsa"
+	  :h "sha256"
+	  :s "email")))
-- 
[mdw]