Move domain decription to client side; add some more describers

[hcoop/domtool2.git] / src / plugins / exim.sml

diff --git a/src/plugins/exim.sml b/src/plugins/exim.sml
index 8b0485b..f4943ac 100644 (file)
--- a/src/plugins/exim.sml
+++ b/src/plugins/exim.sml
@@ -85,9 +85,9 @@ val () = Env.actionV_none "handleMail"
             let
                 val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
             in
-                app (fn node => TextIO.closeOut
-                                    (Domain.domainFile {node = node,
-                                                        name = "mail"})) nodes
+                app (fn node => #close
+                                    (Domain.domainsFile {node = node,
+                                                         name = "mail"}) ()) nodes
             end)
 
 val () = Env.actionV_none "relayMail"
@@ -95,9 +95,23 @@ val () = Env.actionV_none "relayMail"
             let
                 val nodes = Env.env (Env.list Env.string) (env, "MailNodes")
             in
-                app (fn node => TextIO.closeOut
-                                    (Domain.domainFile {node = node,
-                                                        name = "mail.relay"})) nodes
+                app (fn node => #close
+                                    (Domain.domainsFile {node = node,
+                                                         name = "mail.relay"}) ()) nodes
             end)
 
+val () = Domain.registerDescriber (Domain.considerAll
+                                  [Domain.Filename {filename = "aliases",
+                                                    heading = "E-mail aliases",
+                                                    showEmpty = false},
+                                   Domain.Filename {filename = "aliases.default",
+                                                    heading = "Default e-mail alias",
+                                                    showEmpty = false},
+                                   Domain.Filename {filename = "mail",
+                                                    heading = "E-mail handling",
+                                                    showEmpty = false},
+                                   Domain.Filename {filename = "mail.relay",
+                                                    heading = "E-mail relaying",
+                                                    showEmpty = false}])
+
 end