bitte: Pull ports from env.

(cherry picked from commit 6aea8c3)

Author: shlevy

bitte/default.nix

@@ -11,23 +11,19 @@ in
   plutus-playground-server-entrypoint = pkgs.callPackage ./plutus-playground-server.nix {
     variant = "plutus";
     pkg = plutus-playground.server;
-    port = 4003;
   };
   plutus-playground-client-entrypoint = playgroundStatic {
     client = plutus-playground.client;
     variant = "plutus";
-    port = 8081;
   };
 
   marlowe-playground-server-entrypoint = pkgs.callPackage ./plutus-playground-server.nix {
     variant = "marlowe";
     pkg = marlowe-playground.server;
-    port = 4004;
   };
   marlowe-playground-client-entrypoint = playgroundStatic {
     client = marlowe-playground.client;
     variant = "marlowe";
-    port = 8087;
   };
 
   marlowe-run-entrypoint = pkgs.callPackage ./pab.nix {
@@ -37,6 +33,5 @@ in
 
   marlowe-website-entrypoint = staticSite {
     root = marlowe-web;
-    port = 8088;
   };
 }

bitte/pab.nix

@@ -1,40 +1,37 @@
-{ writeShellScriptBin, writeText, pabExe, staticPkg, cacert, coreutils, lib }:
+{ writeShellScriptBin, writeText, pabExe, staticPkg, cacert, coreutils, lib, gnused }:
 let
   dbFile = "/var/lib/pab/pab-core.db";
 
-  webserverPort = 9080;
-  walletPort = 8086;
-  nodePort = 8082;
-  chainIndexPort = 8083;
-  signingProcessPort = 8084;
+  # /var/lib isn't right but whatever
+  pabYaml = "/var/lib/pab/pab.yaml";
 
   slotZeroTime = 1596059091000; # POSIX time of slot zeron is milliseconds. See note [Datetime to slot] in Marlowe.Slot
   slotLengthMillis = 1000;
 
   constantFee = 10; # Constant fee per transaction in lovelace
   scriptsFeeFactor = 0.0; # Factor by which to multiply the size-dependent scripts fee in lovelace
 
-  pabYaml = writeText "pab.yaml" (builtins.toJSON {
+  pabYamlIn = writeText "pab.yaml.in" (builtins.toJSON {
     dbConfig = {
       dbConfigFile = dbFile;
       dbConfigPoolSize = 20;
     };
 
     pabWebserverConfig = {
-      baseUrl = "http://localhost:${builtins.toString webserverPort}";
+      baseUrl = "http://localhost:@WEBSERVER_PORT@";
       staticDir = "${staticPkg}";
       permissiveCorsPolicy = false;
     };
 
     walletServerConfig = {
-      baseUrl = "http://localhost:${builtins.toString walletPort}";
+      baseUrl = "http://localhost:@WALLET_PORT@";
       wallet = {
         getWallet = 1;
       };
     };
 
     nodeServerConfig = {
-      mscBaseUrl = "http://localhost:${builtins.toString nodePort}";
+      mscBaseUrl = "http://localhost:@NODE_PORT@";
       mscSocketPath = "/tmp/node-server.sock";
       mscRandomTxInterval = 20000000;
       mscSlotConfig = {
@@ -58,7 +55,7 @@ let
     };
 
     chainIndexConfig = {
-      ciBaseUrl = "http://localhost:${builtins.toString chainIndexPort}";
+      ciBaseUrl = "http://localhost:@CHAIN_INDEX_PORT@";
       ciWatchedAddresses = [ ];
     };
 
@@ -67,7 +64,7 @@ let
     };
 
     signingProcessConfig = {
-      spBaseUrl = "http://localhost:${builtins.toString signingProcessPort}";
+      spBaseUrl = "http://localhost:@SIGNING_PROCESS_PORT@";
       spWallet = {
         getWallet = "1";
       };
@@ -95,6 +92,14 @@ writeShellScriptBin "entrypoint" ''
 
   export SYSTEM_CERTIFICATE_PATH=${cacert}/etc/ssl/certs/ca-bundle.crt
 
+  ${gnused}/bin/sed -e "s|@WEBSERVER_PORT@|$((PORT_RANGE_BASE))|g" \
+      -e "s|@NODE_PORT@|$((PORT_RANGE_BASE + 1))|g" \
+      -e "s|@CHAIN_INDEX_PORT@|$((PORT_RANGE_BASE + 2))|g" \
+      -e "s|@SIGNING_PROCESS_PORT@|$((PORT_RANGE_BASE + 3))|g" \
+      -e "s|@WALLET_PORT@|$((PORT_RANGE_BASE + 4))|g" \
+      ${pabYamlIn} > ${pabYaml}
+
+
   ${pab-init-cmd}/bin/pab-init-cmd
 
   exec ${pabExe} --config=${pabYaml} all-servers

bitte/playground-static.nix

@@ -2,10 +2,9 @@
 let
   shiftedDocs = linkFarm docs.name [{ name = "doc"; path = docs; }];
 in
-{ variant, client, port }: staticSite {
+{ variant, client }: staticSite {
   root = (symlinkJoin {
     name = "${variant}-playground-client-and-docs";
     paths = [ client shiftedDocs ];
   });
-  inherit port;
 }

bitte/plutus-playground-server.nix

@@ -1,11 +1,11 @@
-{ writeShellScriptBin, pkg, variant, symlinkJoin, lib, cacert, port }:
+{ writeShellScriptBin, pkg, variant, symlinkJoin, lib, cacert }:
 
 let
   deps = [ pkg ];
   entrypoint = writeShellScriptBin "entrypoint" ''
     export PATH=${lib.makeBinPath deps}
     export SYSTEM_CERTIFICATE_PATH=${cacert}/etc/ssl/certs/ca-bundle.crt
-    ${variant}-playground-server webserver -p ${toString port}
+    ${variant}-playground-server webserver -p $PORT
   '';
 in
 symlinkJoin {

bitte/static-site.nix

@@ -1,10 +1,10 @@
-{ writeShellScriptBin, symlinkJoin, lib, writeText, lighttpd }: { root, port }:
+{ writeShellScriptBin, symlinkJoin, lib, writeText, lighttpd }: { root }:
 
 let
   config = writeText "lighttpd.conf" ''
     server.modules = ("mod_deflate")
     server.document-root = "${root}"
-    server.port = ${toString port}
+    server.port = env.PORT
     index-file.names = ("index.html")
     mimetype.assign = (
       ".css" => "text/css",

bitte/web-ghc-server.nix

@@ -2,7 +2,7 @@
 
 let
   entrypoint = writeShellScriptBin "entrypoint" ''
-    ${web-ghc-server}/bin/web-ghc-server webserver -p 8009 --bind 0.0.0.0
+    ${web-ghc-server}/bin/web-ghc-server webserver -p $PORT --bind 0.0.0.0
   '';
 in
 symlinkJoin {