From: Adam C. <ad...@us...> - 2009-09-29 14:32:31
|
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", |