X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/de5351c7e5e91a5a055127e7294419c64a1c74df..e9f528ab975ac28c16b2c370e69206a48f584d78:/src/domain.sml?ds=sidebyside

diff --git a/src/domain.sml b/src/domain.sml
index 3ecf883..ebd7a2b 100644
--- 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