Configure the base port number for sim autogenerated ports.

2 files changed, 5 insertions, 2 deletions

diff --git a/src/.sledjChisl.conf.lua b/src/.sledjChisl.conf.lua
index cede4e4..e44886b 100644
--- a/src/.sledjChisl.conf.lua
+++ b/src/.sledjChisl.conf.lua
@@ -16,6 +16,7 @@ config =
   ["Tconsole"]          = "SledjChisl";
   ["Tsocket"]           = "opensim-tmux.socket";
   ["Ttab"]              = "SC";
+  ["startPort"]         = 8002;
   ["loadAverageInc"]    = 0.7;
   ["simTimeOut"]        = 45;                   -- seconds
   ["bulkSims"]          = 0;                    -- 0 means figure it out from number of CPUs.
diff --git a/src/sledjchisl/sledjchisl.c b/src/sledjchisl/sledjchisl.c
index 6298760..fc0857a 100644
--- a/src/sledjchisl/sledjchisl.c
+++ b/src/sledjchisl/sledjchisl.c
@@ -521,6 +521,7 @@ char *Tconsole = "SledjChisl";
 char *Tsocket = "opensim-tmux.socket";
 char *Ttab = "SC";
 char *Tcmd = "tmux -S";
+int  startPort = 8002;
 char *backupIARsim = "Sandbox";
 char *rSync = "";
 int  rSyncPort = 0;
@@ -1847,8 +1848,8 @@ void prepSims(simData *simd, char *sim, char *type, int count, int window, int p
   shellMe("echo '}\nreturn IDs' >>%s/IDs_%d.lua", scTemp, window);
 
   findWindow(simd, sim, type, count, window, panes, pane);
-  simd->portH = 8004 + count * 2;
-  simd->portU = 8005 + count * 2;
+  simd->portH = startPort + 2 + count * 2;
+  simd->portU = startPort + 3 + count * 2;
   cmd = xmprintf("rm -fr %s/sim%d; mkdir -p %s/sim%d; sed -E"
     " -e 's@\\[Region\\]@"
     "    paneID = \"\\%s\"\\n"
@@ -8109,6 +8110,7 @@ Other possibilities -
     if ((tmp = configs->getstr(configs, "Tconsole", false))             != NULL)  {Tconsole             = tmp;                          V("Setting Tconsole = %s", Tconsole);}
     if ((tmp = configs->getstr(configs, "Tsocket",  false))             != NULL)  {Tsocket              = tmp;                          V("Setting Tsocket = %s", Tsocket);}
     if ((tmp = configs->getstr(configs, "Ttab",     false))             != NULL)  {Ttab                 = tmp;                          V("Setting Ttab = %s", Ttab);}
+    if ((vd  = configs->get   (configs, "startPort",     NULL, false))  != NULL)  {startPort            = (int) *((float *) vd);        V("Setting startPort = %d", startPort);}
     if ((tmp = configs->getstr(configs, "backupIARsim",         false)) != NULL)  {backupIARsim         = tmp;                          V("Setting backupIARsim = %s", backupIARsim);}
     if ((tmp = configs->getstr(configs, "rsync",                false)) != NULL)  {rSync                = tmp;                          V("Setting rsync = %s", rSync);}
     if ((vd  = configs->getstr(configs, "rsyncPort",            false)) != NULL)  {rSyncPort            = (int) *((float *) vd);        V("Setting rsyncPort = %s", rSyncPort);}