pmcf 1.62.0 → 1.63.0

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "pmcf",
-  "version": "1.62.0",
+  "version": "1.63.0",
   "publishConfig": {
     "access": "public"
   },

package/src/cluster.mjs

@@ -51,6 +51,10 @@ export class Cluster extends Host {
     return this.#backups;
   }
 
+  get members() {
+    return this.masters.union(this.backups);
+  }
+
   async *preparePackages(stagingDir) {
     const result = {
       sources: [],
@@ -93,6 +97,31 @@ export class Cluster extends Host {
         cfg.push("  }");
         cfg.push("}");
         cfg.push("");
+
+        for (const service of cluster.findServices({ type: "http" })) {
+          console.log("S",service.host.name,service.name);
+          cfg.push(`virtual_server ${cluster.rawAddress} ${service.port} {`);
+          cfg.push("  delay_loop 6");
+          cfg.push("  lb_algo wlc");
+          cfg.push("  persistence_timeout 600");
+          cfg.push(`  protocol ${service.protocol.toUpperCase()}`);
+
+          for (const member of this.members) {
+            cfg.push(`  real_server ${member.rawAddress} ${service.port} {`);
+            cfg.push("    weight 100");
+
+            if (service.protocol === "tcp") {
+              cfg.push(`    TCP_CHECK {`);
+              cfg.push("      connect_timeout 3");
+              cfg.push("    }");
+            }
+
+            cfg.push("  }");
+          }
+
+          cfg.push("}");
+          cfg.push("");
+        }
       }
 
       await writeLines(

package/src/host.mjs

@@ -254,8 +254,12 @@ export class Host extends Base {
     return this.#services;
   }
 
-  set services(services) {
-    this.#services.push(services);
+  set services(service) {
+    const present = this.#services.find(s => s.name === service.name);
+
+    if (!present) {
+      this.#services.push(service);
+    }
   }
 
   *findServices(filter) {

package/types/cluster.d.mts

@@ -381,6 +381,7 @@ export class Cluster extends Host {
     get masters(): Set<any>;
     set backups(value: Set<any>);
     get backups(): Set<any>;
+    get members(): Set<any>;
     preparePackages(stagingDir: any): AsyncGenerator<{
         sources: any[];
         properties: {

package/types/host.d.mts

@@ -151,7 +151,7 @@ export class Host extends Base {
     get provides(): Set<any>;
     set replaces(value: Set<any>);
     get replaces(): Set<any>;
-    set services(services: any[]);
+    set services(service: any[]);
     get services(): any[];
     _traverse(...args: any[]): boolean;
     set deployment(value: any);