Full records for IN and MX

diff --git a/src/plugins/bind.sml b/src/plugins/bind.sml
index b6a07b6..5f37520 100644 (file)
--- a/src/plugins/bind.sml
+++ b/src/plugins/bind.sml
@@ -101,14 +101,16 @@ fun writeRecord (evs, r) =
                                     write "\tIN\tCNAME\t";
                                     write to;
                                     write ".\n")
                                     write "\tIN\tCNAME\t";
                                     write to;
                                     write ".\n")

-             | MX (num, host) => (write "\t";
+             | MX (num, host) => (writeDom ();
+                                  write ".\t";

                                   write (Int.toString ttl);
                                   write "\tIN\tMX\t";
                                   write (Int.toString num);
                                   write "\t";
                                   write host;
                                   write ".\n")
                                   write (Int.toString ttl);
                                   write "\tIN\tMX\t";
                                   write (Int.toString num);
                                   write "\t";
                                   write host;
                                   write ".\n")

-             | NS host => (write "\t";
+             | NS host => (writeDom ();
+                           write ".\t";

                            write (Int.toString ttl);
                            write "\tIN\tNS\t";
                            write host;
                            write (Int.toString ttl);
                            write "\tIN\tNS\t";
                            write host;