X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/3ae703b6dff72066727eb5087151c4be8d439ed3..d08b9cf26fd841b6ac665ae0eba83d69f53a809c:/src/plugins/bind.sml

diff --git a/src/plugins/bind.sml b/src/plugins/bind.sml
index 10892a2..89e8b06 100644
--- a/src/plugins/bind.sml
+++ b/src/plugins/bind.sml
@@ -111,8 +111,8 @@ val record = fn (EApp ((EApp ((EVar "dnsA", _), e1), _), e2), _) =>
 
 fun writeRecord (evs, r) =
     case !dns of
-	NONE => print ("Warning: DNS directive for " ^ Domain.currentDomain ()
-		       ^ " ignored because no master DNS server is configured for this domain\n")
+	NONE => () (* print ("Warning: DNS directive for " ^ Domain.currentDomain ()
+		       ^ " ignored because no master DNS server is configured for this domain\n") *)
       | SOME files =>
 	let
 	    fun write s = #write files s
@@ -229,7 +229,7 @@ val () = Slave.registerFileHandler (fn fs =>
 					   val {dir, file} = OS.Path.splitDirFile (#file fs)
 							     
 					   fun dnsChanged () =
-					       if #domain fs = !didDomain then
+					       if #domain fs = !didDomain orelse Slave.hostname () <> Config.masterNode then
 						   ()
 					       else if Slave.isDelete (#action fs) then
 						   let
@@ -374,4 +374,12 @@ val _ = Env.type_one "srv_domain"
 	Env.string
 	validSrvDomain
 
+val _ = Env.registerFunction ("dns_master_node",
+			      fn [] => SOME (EString Config.masterNode, dl)
+			      | _ => NONE)
+
+val _ = Env.registerFunction ("dns_slave_nodes",
+			      fn [] => SOME (EList (map (fn n => (EString n, dl)) Config.slaveNodes), dl)
+			      | _ => NONE)
+
 end