f-46: dhcpapi: add the control socket, its protocol and its client #46

Le contrat et le listener vont dans internal/api/dhcp (package dhcpapi), sur la
forme de internal/api/agent, et le client dans internal/client/dhcp. Chaînage
des imports : statefile <- dhcpd <- dhcpapi <- dhcpclient, sans cycle.

dhcpd parle net.IP et net.IPNet et garde ses structs disque privées ; dhcpapi
parle chaînes JSON et convertit à la frontière. Un même type portait jusqu'ici
le format du fil, la signature du Store et le format du .state — ce qui couplait
le fichier au protocole alors que le ticket le décrit comme un détail interne.

Le digest est calculé sur une forme canonique partagée par les deux côtés : MAC,
IP et CIDR normalisés, hôtes triés, doublon de MAC refusé. Un écart de digest
signale donc une vraie divergence, pas une différence d'écriture.

Le listener pose un recover par connexion, plafonne les lignes à 64 Kio, refuse
une ligne malformée sans fermer la connexion, écoute en 0600 et supprime une
socket résiduelle avant le bind. Le client pose une deadline.

101 tests au total, -race propre, treize mutations toutes détectées.

Signed-off-by: GnomeZworc <nicolas.boufidjeline@g3e.fr>

internal/api/dhcp/models.go

@@ -0,0 +1,58 @@
+package dhcpapi
+
+type Verb string
+
+const (
+	VerbSetSubnet Verb = "set-subnet"
+	VerbSetHost   Verb = "set-host"
+	VerbDelHost   Verb = "del-host"
+	VerbGetState  Verb = "get-state"
+	VerbProbe     Verb = "probe"
+)
+
+const MaxMessageBytes = 64 * 1024
+
+type Subnet struct {
+	Network        string `json:"network"`
+	InterfaceIP    string `json:"interface_ip"`
+	VPCRoute       string `json:"vpc_route,omitempty"`
+	DefaultGateway string `json:"default_gateway,omitempty"`
+}
+
+type Host struct {
+	MAC          string `json:"mac"`
+	IP           string `json:"ip"`
+	VM           string `json:"vm,omitempty"`
+	DefaultRoute bool   `json:"default_route"`
+}
+
+type State struct {
+	Subnet *Subnet `json:"subnet,omitempty"`
+	Hosts  []Host  `json:"hosts"`
+}
+
+type Lease struct {
+	MAC          string   `json:"mac"`
+	IP           string   `json:"ip"`
+	Netmask      string   `json:"netmask"`
+	Router       string   `json:"router,omitempty"`
+	DNS          []string `json:"dns"`
+	Routes       []string `json:"routes"`
+	LeaseSeconds uint32   `json:"lease_seconds"`
+}
+
+type Request struct {
+	Verb   Verb    `json:"verb"`
+	Subnet *Subnet `json:"subnet,omitempty"`
+	Host   *Host   `json:"host,omitempty"`
+	MAC    string  `json:"mac,omitempty"`
+}
+
+type Response struct {
+	OK     bool   `json:"ok"`
+	Error  string `json:"error,omitempty"`
+	State  *State `json:"state,omitempty"`
+	Digest string `json:"digest,omitempty"`
+	Lease  *Lease `json:"lease,omitempty"`
+	Served bool   `json:"served,omitempty"`
+}