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

diff --git a/src/plugins/bind.sml b/src/plugins/bind.sml
index 10892a2..20aeb60 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