LINUX:Loadbalancing - Router de répartition (masq)

---

→ retour aux Serveurs en Loadbalancing

---

But

Ce router aura pour tâche de rediriger et de répartir les requêtes venant des clients en fonction des disponibilités des serveurs du cluster.

Nous allons utiliser une fonctionnalité de Linux, le LVS ou Linux Virtual Server. l'outil Ldirectord va nous y aider.

Prérequis

Routage

Nous sommes en présence de deux LANs interconnectés par un router. Pour mettre en oeuvre correctement les différents aspects du routage; voyez l'article sur le Routage statique et spécialement le chapitre sur le "Second réseau privé".

Activation du routage

Il faut activer le routage sur le router "cluster.home.dom" en ajoutant un fichier, par exemple "router.conf", dans le répertoire "/etc/sysctl.d". Ce fichier doit contenir la ligne:

---

net.ipv4.ip_forward = 1

---

On active cette configuration soit en redémarrant la machine, soit avec la commande suivante:

sysctl -p /etc/sysctl.d/router.conf

Installation

Nous allons utiliser l'outil Ldirectord qu'il faut installer:

dnf install ldirectord

Par la même occasion, il installe toute une série de modules Perl en tant que dépendances:

dnf install perl-WWW-RobotRules
dnf install perl-Try-Tiny
dnf install perl-Tie
dnf install perl-Text-Balanced
dnf install perl-Parse-RecDescent
dnf install perl-Net-IMAP-Simple
dnf install perl-Net-IMAP-Simple-SSL
dnf install perl-Socket6
dnf install perl-IO-Socket-INET6
dnf install perl-Net-SMTP-SSL
dnf install perl-MailTools
dnf install perl-Net-HTTP
dnf install perl-HTTP-Negotiate
dnf install perl-HTTP-Cookies
dnf install perl-Digest-SHA
dnf install perl-Digest-HMAC
dnf install perl-NTLM
dnf install perl-Data-Dump
dnf install perl-libwww-perl
dnf install perl-Socket-GetAddrInfo

Il installe également le paquet suivant que nous utiliserons pour visualiser l'état du système:

dnf install ipvsadm

Par contre, tout un ensemble de paquets Perl ne sont pas installés mais sont nécessaires:

dnf install perl-Sys-Hostname
dnf install perl-Sys-Syslog
dnf install perl-Net-Ping
dnf install perl-LWP-Protocol-https
dnf install perl-Mail-POP3Client
dnf install perl-Mail-POP3Client
dnf install perl-Mail-IMAPClient
dnf install perl-Net-SMTP-SSL

Configuration en Failover

Nous allons utiliser cette machine de façon autonome mais il est très facile de l'utiliser dans une structure en Failover.

Il suffit de reprendre la configuration de l'article sur les Routers inter LAN en Failover. A la configuration de Pacemaker, on ajoute une ressource activant le service "ldirectord.service".

pcs resource create ClusterLdirectord systemd:ldirectord op monitor interval=30s

ou

pcs resource create ClusterLdirectord ocf:heartbeat:ldirectord configfile=/etc/ha.d/ldirectord.cf ldirectord=/usr/sbin/ldirectord op monitor interval=30s

et ensuite:

pcs constraint colocation add ClusterLdirectord  with    ClusterIPint score=INFINITY
pcs constraint order ClusterIPint then start ClusterLdirectord

Modification des sources

Le programme Ldirectord est installé dans le fichier "/usr/sbin/ldirectord". Il teste tout un ensemble de services. Les protocoles que l'on veut tester sur nos serveurs du cluster sont: HTTP, HTTPS, SMTP, SUBMISSION, SMTPS, POP, POPS, IMAP et IMAPS. Parmi ceux-ci, seul le protocole SMTPS n'est pas repris. Soit on crée un script externe qui fera ce travail, soit on ajoute au programme cette fonctionnalité.

Nous avons choisi la seconde solution.

La version actuelle pour Fedora 37 est "4.11.0-2". Il faut garder à l'esprit qu'une mise à jour entrainera un écrasement de nos modifications; il faut garder de côté notre nouvelle version et tenir à l'oeil toute mise à jour de ce paquet Ldirectord.

Le fichier suivant contient un patch à appliquer sur le fichier "ldirectord":

Télécharger le fichier ZIP

On doit décompresser ce fichier téléchargé:

unzip Ldirectord.patch.zip

Il faut avoir installé l'utilitaire "patch":

dnf install patch

Pour appliquer ce patch, copiez le fichier "/usr/sbin/ldirectord" dans le même répertoire que le fichier "ldirectord.patch" que vous venez de décompresser puis exécutez la commande:

patch < ldirectord.patch

Le fichier local "ldirectord" sera mis à jour; il suffit de le recopier dans le répertoire "/usr/sbin".

Voici une liste des modification:

• La pièce principale consiste à ajouter une fonction: "check_smtps" et ensuite il faut ajouter le nécessaire pour y faire référence et initialiser quelques mots clés et n° de protocole.

---

sub check_smtps
{
       require Net::SMTP;
       require Net::SMTP::SSL;
       my ($v, $r) = @_;
       my $port = ld_checkport($v, $r);
       &ld_debug(2, "Checking $$v{service}: server=$$r{server} port=$port");
       my $smtp = new Net::SMTP::SSL($$r{server}, Port => $port,
                       Timeout => $$v{negotiatetimeout});
       if ($smtp) {
               $smtp->quit;
               service_set($v, $r, "up", {do_log => 1});
               return $SERVICE_UP;
       } else {
               service_set($v, $r, "down", {do_log => 1});
               return $SERVICE_DOWN;
       }
}

---

• Ajouter les mots en gras en fin de la ligne 462:

---

B<service = >B<dns> | B<ftp> | B<http> | B<https> | B<http_proxy> | B<imap> | B<imaps> | B<ldap> | B<ldaps> | B<mysql> | B<nntp> | B<none> | B<oracle> | B<pgsql> | B<pop> | B<pops> | B<radius> | B<simpletcp> | B<sip> | B<smtp> | B<submission> | B<smtps> | B<submissions>

---

• Ajouter ces lignes en ligne 495:

---

=item * Virtual server port is 465: smtps, submissions
 

---

• Ajouter ces lignes en ligne 1563:

---

                                                          $1 eq "smtps" ||
                                                          $1 eq "submissions"   ||

---

• Ajouter cette ligne en ligne 1578:

---

                                                             "submissions, smtps "    .

---

• Ajouter cette ligne en ligne 1873:

---

        if ($port eq 465)       { return "smtps"; }

---

• Ajouter cette ligne en ligne 1897:

---

        if ($service eq "smtps")        { return 465; }

---

• Ajouter cette ligne en ligne 1905:

---

        if ($service eq "submissions")  { return 587; }

---

• Ajouter ces lignes en ligne 2883:

---

                } elsif ($$v{service} eq "smtps" or $$v{service} eq "submissions") {
                        $$r{num_connects} = 0 if (check_smtps($v, $r) == $SERVICE_UP);

---

---

→ retour aux Serveurs en Loadbalancing

---