Back to generating localhost soa file but not zone data
[hcoop/domtool2.git] / src / domain.sml
index 0f1b1fc..cbb7434 100644 (file)
@@ -487,31 +487,29 @@ val _ = Env.containerV_one "domain"
                                             currentPath := (fn site => path (Config.tmpDir, site)))
 
                                   fun saveSoa (kind, soa : soa) node =
-                                      if dom = "localhost" then
-                                          ()
-                                      else let
-                                              val outf = domainFile {node = node, name = "soa"}
-                                          in
-                                              TextIO.output (outf, kind);
-                                              TextIO.output (outf, "\n");
-                                              TextIO.output (outf, Int.toString ttl);
-                                              TextIO.output (outf, "\n");
-                                              TextIO.output (outf, #ns soa);
-                                              TextIO.output (outf, "\n");
-                                              case #serial soa of
-                                                  NONE => ()
-                                                | SOME n => TextIO.output (outf, Int.toString n);
-                                              TextIO.output (outf, "\n");
-                                              TextIO.output (outf, Int.toString (#ref soa));
-                                              TextIO.output (outf, "\n");
-                                              TextIO.output (outf, Int.toString (#ret soa));
-                                              TextIO.output (outf, "\n");
-                                              TextIO.output (outf, Int.toString (#exp soa));
-                                              TextIO.output (outf, "\n");
-                                              TextIO.output (outf, Int.toString (#min soa));
-                                              TextIO.output (outf, "\n");
-                                              TextIO.closeOut outf
-                                          end
+                                      let
+                                          val outf = domainFile {node = node, name = "soa"}
+                                      in
+                                          TextIO.output (outf, kind);
+                                          TextIO.output (outf, "\n");
+                                          TextIO.output (outf, Int.toString ttl);
+                                          TextIO.output (outf, "\n");
+                                          TextIO.output (outf, #ns soa);
+                                          TextIO.output (outf, "\n");
+                                          case #serial soa of
+                                              NONE => ()
+                                            | SOME n => TextIO.output (outf, Int.toString n);
+                                          TextIO.output (outf, "\n");
+                                          TextIO.output (outf, Int.toString (#ref soa));
+                                          TextIO.output (outf, "\n");
+                                          TextIO.output (outf, Int.toString (#ret soa));
+                                          TextIO.output (outf, "\n");
+                                          TextIO.output (outf, Int.toString (#exp soa));
+                                          TextIO.output (outf, "\n");
+                                          TextIO.output (outf, Int.toString (#min soa));
+                                          TextIO.output (outf, "\n");
+                                          TextIO.closeOut outf
+                                      end
 
                                   fun saveNamed (kind, soa : soa, masterIp) node =
                                       if dom = "localhost" then