matt1432/nixos-configs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(pacemaker): make VIPs a list of sets and impl dependsOn
All checks were successful
Discord / discord commits (push) Has been skipped
Details

Browse source
This commit is contained in:
matt1432 2024-01-23 12:26:49 -05:00
parent 33f3d60f1c
commit 711d088988
2 changed files with 102 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
devices/cluster/modules/pacemaker/default.nix
View file

@ -13,7 +13,13 @@
resources = { resources = {
"caddy" = { "caddy" = {
enable = true; enable = true;
virtualIp = "10.0.0.130"; virtualIps = [
{
id = "main";
interface = "eno1";
ip = "10.0.0.130";
}
];
}; };
}; };
}; };

154
devices/cluster/modules/pacemaker/options.nix
View file

@ -12,6 +12,7 @@
concatMapStringsSep concatMapStringsSep
elemAt elemAt
filterAttrs filterAttrs
isAttrs
mkIf mkIf
mkOption mkOption
types types
@ -25,11 +26,6 @@ in {
imports = ["${nixpkgs-pacemaker}/nixos/modules/${pacemakerPath}"]; imports = ["${nixpkgs-pacemaker}/nixos/modules/${pacemakerPath}"];
options.services.pacemaker = { options.services.pacemaker = {
networkInterface = mkOption {
default = "eno1";
type = types.str;
};
resources = mkOption { resources = mkOption {
default = {}; default = {};
type = with types; type = with types;
@ -45,14 +41,36 @@ in {
type = types.str; type = types.str;
}; };
virtualIp = mkOption { # TODO: add assertion to not have same id
default = null; virtualIps = mkOption {
type = types.nullOr types.str; default = [];
type = with types;
listOf (submodule {
options = {
id = mkOption {
type = types.str;
};
interface = mkOption {
default = "eno1";
type = types.str;
};
ip = mkOption {
type = types.str;
};
cidr = mkOption {
default = 24;
type = types.int;
};
};
});
}; };
# TODO: add assertion, needs to be an existing systemdName
dependsOn = mkOption { dependsOn = mkOption {
default = []; default = [];
# TODO: implement dependsOn
type = types.listOf types.str; type = types.listOf types.str;
}; };
@ -64,46 +82,48 @@ in {
config = mkIf cfg.enable { config = mkIf cfg.enable {
systemd.services = let systemd.services = let
mkVirtIp = res: '' mkVirtIps = res:
<primitive class="ocf" id="${res.systemdName}vip" provider="heartbeat" type="IPaddr2"> concatMapStringsSep "\n" (vip: ''
<instance_attributes id="${res.systemdName}vip-attrs"> <primitive class="ocf" id="${res.systemdName}-${vip.id}-vip" provider="heartbeat" type="IPaddr2">
<nvpair <instance_attributes id="${res.systemdName}-${vip.id}-vip-attrs">
id="${res.systemdName}vip-attrs-cidr_netmask" <nvpair
name="cidr_netmask" id="${res.systemdName}-${vip.id}-vip-attrs-cidr_netmask"
value="24" name="cidr_netmask"
/> value="${toString vip.cidr}"
<nvpair />
id="${res.systemdName}vip-attrs-ip" <nvpair
name="ip" id="${res.systemdName}-${vip.id}-vip-attrs-ip"
value="${res.virtualIp}" name="ip"
/> value="${vip.ip}"
<nvpair />
id="${res.systemdName}vip-attrs-nic" <nvpair
name="nic" id="${res.systemdName}-${vip.id}-vip-attrs-nic"
value="${cfg.networkInterface}" name="nic"
/> value="${vip.interface}"
</instance_attributes> />
<operations> </instance_attributes>
<op <operations>
id="${res.systemdName}vip-monitor-interval-30s" <op
interval="30s" id="${res.systemdName}-${vip.id}-vip-monitor-interval-30s"
name="monitor" interval="30s"
/> name="monitor"
<op />
id="${res.systemdName}vip-start-interval-0s" <op
interval="0s" id="${res.systemdName}-${vip.id}-vip-start-interval-0s"
name="start" interval="0s"
timeout="20s" name="start"
/> timeout="20s"
<op />
id="${res.systemdName}vip-stop-interval-0s" <op
interval="0s" id="${res.systemdName}-${vip.id}-vip-stop-interval-0s"
name="stop" interval="0s"
timeout="20s" name="stop"
/> timeout="20s"
</operations> />
</primitive> </operations>
''; </primitive>
'')
res.virtualIps;
mkSystemdResource = res: '' mkSystemdResource = res: ''
<primitive id="${res.systemdName}" class="systemd" type="${res.systemdName}"> <primitive id="${res.systemdName}" class="systemd" type="${res.systemdName}">
@ -115,25 +135,40 @@ in {
</primitive> </primitive>
''; '';
mkConstraint = first: res: '' mkConstraint = res: first: let
firstName =
if isAttrs first
then first.systemdName
else first;
in ''
<rsc_order <rsc_order
id="order-${res.systemdName}" id="order-${res.systemdName}-${firstName}"
first="${first}" first="${firstName}"
then="${res.systemdName}" then="${res.systemdName}"
kind="Mandatory" kind="Mandatory"
/> />
<rsc_colocation <rsc_colocation
id="colocate-${res.systemdName}" id="colocate-${res.systemdName}-${firstName}"
rsc="${first}" rsc="${firstName}"
with-rsc="${res.systemdName}" with-rsc="${res.systemdName}"
score="INFINITY" score="INFINITY"
/> />
''; '';
mkDependsOn = res: let
mkConstraint' = first:
mkConstraint res first;
in
concatMapStringsSep "\n" mkConstraint' res.dependsOn;
mkVipConstraint = res: mkVipConstraint = res:
mkConstraint concatMapStringsSep "\n" (
(res.systemdName + "vip") vip:
res; mkConstraint
res
"${res.systemdName}-${vip.id}-vip"
)
res.virtualIps;
# If we're updating resources we have to kill constraints to add new resources # If we're updating resources we have to kill constraints to add new resources
constraintsEmpty = toFile "constraints.xml" '' constraintsEmpty = toFile "constraints.xml" ''
@ -143,11 +178,11 @@ in {
resEnabled = filterAttrs (n: v: v.enable) cfg.resources; resEnabled = filterAttrs (n: v: v.enable) cfg.resources;
resWithIp = filterAttrs (n: v: ! isNull v.virtualIp) resEnabled; resWithIp = filterAttrs (n: v: ! isNull v.virtualIps) resEnabled;
resources = toFile "resources.xml" '' resources = toFile "resources.xml" ''
<resources> <resources>
${concatMapStringsSep "\n" mkVirtIp (attrValues resWithIp)} ${concatMapStringsSep "\n" mkVirtIps (attrValues resWithIp)}
${concatMapStringsSep "\n" mkSystemdResource (attrValues resEnabled)} ${concatMapStringsSep "\n" mkSystemdResource (attrValues resEnabled)}
</resources> </resources>
''; '';
@ -155,6 +190,7 @@ in {
constraints = toFile "constraints.xml" '' constraints = toFile "constraints.xml" ''
<constraints> <constraints>
${concatMapStringsSep "\n" mkVipConstraint (attrValues resWithIp)} ${concatMapStringsSep "\n" mkVipConstraint (attrValues resWithIp)}
${concatMapStringsSep "\n" mkDependsOn (attrValues resEnabled)}
</constraints> </constraints>
''; '';