Temporary DNS-out-of-sync fix that reloads BIND too often

diff --git a/src/domain.sml b/src/domain.sml
index 8384f85..d7b4052 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -645,7 +645,10 @@ val _ = Env.containerV_one "domain"
                                                                write "\t};\n")
                                                 | _ => (write "\tmasters { ";
                                                         write masterIp;
                                                                write "\t};\n")
                                                 | _ => (write "\tmasters { ";
                                                         write masterIp;

-                                                        write "; };\n");
+                                                        write "; };\n";
+                                                        write "// Updated: ";
+                                                        write (Time.toString (Time.now ()));
+                                                        write "\n");

                                               write "};\n";
                                               close ()
                                           end
                                               write "};\n";
                                               close ()
                                           end