From: Clinton Ebadi <clinton@unknownlamer.org>
Date: Sat, 26 Apr 2014 00:05:10 +0000 (-0400)
Subject: merge toplevel-dynamic-environment
X-Git-Url: https://git.hcoop.net/clinton/domtool2.git/commitdiff_plain/d63aa5e7b08630cc17a606e85e35acc5bd0041ee

merge toplevel-dynamic-environment
---

d63aa5e7b08630cc17a606e85e35acc5bd0041ee
diff --cc configDefault/domtool.cfg
index eeaebad,7fb4183..69dcf8a
--- a/configDefault/domtool.cfg
+++ b/configDefault/domtool.cfg
@@@ -1,21 -1,23 +1,14 @@@
 -val libRoot = "/afs/hcoop.net/common/etc/domtool/lib"
 -val resultRoot = "/afs/hcoop.net/common/etc/domtool/nodes"
 +open ConfigCore
 +
 +val libRoot = ConfigCore.sharedRoot ^ "/lib"
 +val resultRoot = ConfigCore.sharedRoot ^ "/nodes"
  val tmpDir = "/tmp/domtool"
 -val oldResultRoot = "/afs/hcoop.net/common/etc/domtool/nodes.old"
 +val oldResultRoot = ConfigCore.sharedRoot ^ "/nodes.old"
  
 -val cat = "/bin/cat"
 -val cp = "/bin/cp"
 -val diff = "/usr/bin/diff"
 -val rm = "/bin/rm"
 -val echo = "/bin/echo"
 -val grep = "/bin/grep"
 -val sudo = "/usr/bin/sudo"
 -val domtool_publish = "/usr/local/sbin/domtool-publish"
 +val domtool_publish = ConfigCore.installPrefix ^ "/sbin/domtool-publish"
  
- val defaultNs = "ns1.hcoop.net"
- 
- val defaultRefresh = 86400
- val defaultRetry = 1800
- val defaultExpiry = 1209600
- val defaultMinimum = 3600
- 
  val nodeIps = [("deleuze", "69.90.123.67"), ("hopper", "69.90.123.74"), ("fritz", "69.90.123.75"), ("navajos", "69.90.123.70"), ("bog", "69.90.123.72"), ("outpost", "151.236.216.192")]
 -val defaultNode = "deleuze"
 -
 -val masterNode = "deleuze"
 -val slaveNodes = ["outpost"]
 -(* THESE ARE THE DNS MASTER/SLAVE, NOT DOMTOOL NODES *)
 +val dispatcherName = "fritz"
  
  val dnsNodes_all = ["deleuze", "outpost"]
  val dnsNodes_admin = []
diff --cc configDefault/domtool.cfs
index 4cf7fee,b464d46..94b0076
--- a/configDefault/domtool.cfs
+++ b/configDefault/domtool.cfs
@@@ -11,18 -11,22 +11,11 @@@ val oldResultRoot : strin
  val tmpDir : string
  (* Filesystem location for creating temporary directories *)
  
 -(* Paths to standard UNIX utilities *)
 -val cat : string
 -val cp : string
 -val diff : string
 -val rm : string
 -val echo : string
 -val grep : string
 -val sudo : string
  val domtool_publish : string
  
- (* DNS SOA parameter defaults *)
- val defaultNs : string
- val defaultRefresh : int
- val defaultRetry : int
- val defaultExpiry : int
- val defaultMinimum : int
- 
  (* Names of machines who will receive configuration *)
  val nodeIps : (string * string) list
 -val defaultNode : string
 -
 -val masterNode : string
 -val slaveNodes : string list
 +val dispatcherName : string
  
  val aclFile : string
  (* Place to serialize ACL information *)
diff --cc configDefault/exim.cfg
index db689ec,6a79253..4724054
--- a/configDefault/exim.cfg
+++ b/configDefault/exim.cfg
@@@ -1,14 -1,12 +1,12 @@@
  structure Exim :> EXIM_CONFIG = struct
  
 -val aliases = "/var/domtool/aliases"
 -val aliasesDefault = "/var/domtool/aliases.default"
 -val handleDomains = "/var/domtool/local_domains.cfg"
 -val relayDomains = "/var/domtool/relay_domains.cfg"
 +val aliases = ConfigCore.localRoot ^ "/aliases"
 +val aliasesDefault = ConfigCore.localRoot ^ "/aliases.default"
 +val handleDomains = ConfigCore.localRoot ^ "/local_domains.cfg"
 +val relayDomains = ConfigCore.localRoot ^ "/relay_domains.cfg"
  
 -val reload = "/usr/bin/sudo /usr/local/sbin/domtool-publish exim"
 +val reload = ConfigCore.sudo ^ " " ^ ConfigCore.installPrefix ^ "/sbin/domtool-publish exim"
  
- val aliasTo = ["deleuze"]
- 
  val mainLog = "/var/log/exim4/mainlog"
  
  end
diff --cc src/plugins/bind.sml
index 4b9eccd,89e8b06..ca35c2c
--- a/src/plugins/bind.sml
+++ b/src/plugins/bind.sml
@@@ -374,4 -374,12 +374,12 @@@ val _ = Env.type_one "srv_domain
  	Env.string
  	validSrvDomain
  
+ val _ = Env.registerFunction ("dns_master_node",
 -			      fn [] => SOME (EString Config.masterNode, dl)
++			      fn [] => SOME (EString Config.Bind.masterNode, dl)
+ 			      | _ => NONE)
+ 
+ val _ = Env.registerFunction ("dns_slave_nodes",
 -			      fn [] => SOME (EList (map (fn n => (EString n, dl)) Config.slaveNodes), dl)
++			      fn [] => SOME (EList (map (fn n => (EString n, dl)) Config.Bind.slaveNodes), dl)
+ 			      | _ => NONE)
+ 
  end