Testing queries on slave servers

[hcoop/domtool2.git] / src / domain.sml

diff --git a/src/domain.sml b/src/domain.sml
index 4e38a98..cbb7434 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -512,26 +512,28 @@ val _ = Env.containerV_one "domain"
                                       end
 
                                   fun saveNamed (kind, soa : soa, masterIp) node =
-                                      let
-                                          val outf = domainFile {node = node, name = "named.conf"}
-                                      in
-                                          TextIO.output (outf, "\nzone \"");
-                                          TextIO.output (outf, dom);
-                                          TextIO.output (outf, "\" IN {\n\ttype ");
-                                          TextIO.output (outf, kind);
-                                          TextIO.output (outf, ";\n\tfile \"");
-                                          TextIO.output (outf, Config.Bind.zonePath_real);
-                                          TextIO.output (outf, "/");
-                                          TextIO.output (outf, dom);
-                                          TextIO.output (outf, ".zone\";\n");
-                                          case kind of
-                                              "master" => TextIO.output (outf, "\tallow-update { none; };\n")
-                                            | _ => (TextIO.output (outf, "\tmasters { ");
-                                                    TextIO.output (outf, masterIp);
-                                                    TextIO.output (outf, "; };\n"));
-                                          TextIO.output (outf, "};\n");
-                                          TextIO.closeOut outf
-                                      end
+                                      if dom = "localhost" then
+                                          ()
+                                      else let
+                                              val outf = domainFile {node = node, name = "named.conf"}
+                                          in
+                                              TextIO.output (outf, "\nzone \"");
+                                              TextIO.output (outf, dom);
+                                              TextIO.output (outf, "\" IN {\n\ttype ");
+                                              TextIO.output (outf, kind);
+                                              TextIO.output (outf, ";\n\tfile \"");
+                                              TextIO.output (outf, Config.Bind.zonePath_real);
+                                              TextIO.output (outf, "/");
+                                              TextIO.output (outf, dom);
+                                              TextIO.output (outf, ".zone\";\n");
+                                              case kind of
+                                                  "master" => TextIO.output (outf, "\tallow-update { none; };\n")
+                                                | _ => (TextIO.output (outf, "\tmasters { ");
+                                                        TextIO.output (outf, masterIp);
+                                                        TextIO.output (outf, "; };\n"));
+                                              TextIO.output (outf, "};\n");
+                                              TextIO.closeOut outf
+                                          end
                               in
                                   case kind of
                                       NoDns => masterNode := NONE