parse different config file on each host

diff --git a/hostside/gui b/hostside/gui
index 97f308e4c1bc36c906ae1dbdb1b27f2c3769fd18..89679043032a0186020e671ac910203c6a606545 100755 (executable)
--- 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