[hcoop-cvs] domtool2/src domain.sml,1.71,1.72

[Adam C. <ad...@us...>]

Update of /cvsroot/hcoop/domtool2/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv23251/src

Modified Files:
	domain.sml 
Log Message:
Don't send DNS info to servers that don't run DNS daemons

Index: domain.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/domain.sml,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -d -r1.71 -r1.72
*** domain.sml	27 Sep 2009 19:07:34 -0000	1.71
--- domain.sml	29 Sep 2009 14:32:23 -0000	1.72
***************
*** 283,287 ****
  	       dl)
  
! val slavesD = (EList (map (fn s => (EString s, dl)) Config.slaveNodes), dl)
  
  val _ = Defaults.registerDefault ("Aliases",
--- 283,288 ----
  	       dl)
  
! val slavesD = (EList (map (fn s => (EString s, dl))
! 			  (List.filter (fn x => List.exists (fn y => y = x) (Config.dnsNodes_all @ Config.dnsNodes_admin)) Config.slaveNodes)), dl)
  
  val _ = Defaults.registerDefault ("Aliases",