From: ian <ian>
Date: Sun, 13 Jul 2008 20:52:59 +0000 (+0000)
Subject: parse different config file on each host
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=4315d32f908ca8910b35344436e8016283887d37;p=trains.git

parse different config file on each host
---

diff --git a/hostside/gui b/hostside/gui
index 97f308e..8967904 100755
--- a/hostside/gui
+++ b/hostside/gui
@@ -751,7 +751,7 @@ proc engage-server {} {
 }
 
 proc main {} {
-    global pages cpage
+    global pages cpage configfile
     setting server railway {[[0-9a-z:].*}
     setting geometry {} {[-+]\d+[-+]\d+}
     setting posdeviation 10 {\d+}
@@ -760,9 +760,12 @@ proc main {} {
     setting inputretryadd 5 {\d+}
     setting inputretrymax 15 {\d+}
     setting scaninputinterval 500 {\d+}
-    uplevel #0 source gui-layout.config
-    uplevel #0 source gui-liberator.config
+
+    set hostname [lindex [split [info hostname] .] 0]
+    setting configfile gui-$hostname.config {^.}
     parse-argv {}
+    uplevel #0 source gui-layout.config
+    uplevel #0 source $configfile
     foreach cpage $pages {
 	layout-data
 	widgets-dgram