Mailman shortcut working

[hcoop/domtool2.git] / src / domain.sml

diff --git a/src/domain.sml b/src/domain.sml
index 3ecf883..ebd7a2b 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -907,4 +907,10 @@ val () = registerDescriber (considerAll [Filename {filename = "soa",
                                                   heading = "DNS SOA",
                                                   showEmpty = false}])
 
+val () = Env.registerAction ("domainHost",
+                            fn (env, [(EString host, _)]) =>
+                               SM.insert (env, "Hostname",
+                                          (EString (host ^ "." ^ currentDomain ()), dl))
+                             | (_, args) => Env.badArgs ("domainHost", args))
+
 end