From: Adam Chlipala Date: Thu, 24 May 2007 23:12:15 +0000 (+0000) Subject: Full records for IN and MX X-Git-Tag: release_2010-11-19~204 X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/commitdiff_plain/ec554091c6da696972d95da7d3c69fe7ca107fa2?ds=sidebyside Full records for IN and MX --- diff --git a/src/plugins/bind.sml b/src/plugins/bind.sml index b6a07b6..5f37520 100644 --- 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") - | 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") - | NS host => (write "\t"; + | NS host => (writeDom (); + write ".\t"; write (Int.toString ttl); write "\tIN\tNS\t"; write host;