Après avoir ajouté des interfaces à mes serveurs Vulture pour prendre en charge mes certificats SSL par domaine, j’ai du mettre à jour mes scripts de synchronisation et de supervision. Pour rappel, la première version ainsi qu’une doc explicative se trouve à cette adresse : http://www.croc-informatique.fr/2009/07/synchronisation-et-monitoring-de-deux-reverse-proxy-vulture/ J’en ai profité pour remanier un peu mon code [...]
J’ai passé la journée à rechercher pourquoi mon event handler ne voulait pas fonctionner. J’avais l’impression que certaines macros ne fonctionnaient pas. Mais sur Nagios, comment pouvons nous voir la commande qu’il exécute avec les valeurs des arguments? Et bien, la solution est ici : http://www.waggy.at/nagios/capture_plugin.htm Sur ce site, vous allez trouvez un plugin perl [...]
Voici un script écrit en VBS qui permet de nettoyer un répertoire. Ce script est équivalent à la commande linux : find /rep –mtime +5 –exec rm –f {} \; Voici le script : ‘Les declarations ‘Repertoire ou sont stockes les fichiers DossierSauvegarde = "C:\TEST\" ‘Nombre de jours de conservation des Fichiers AgeMaximalFichiers = "30" [...]
Suite à des problèmes que j’ai rencontré, j’ai décidé de superviser les interfaces de mes équipements réseau. Je n’ai pas trouvé de plugin de ce type donc j’en ai créé un. Mon plugin n’est pas du tout optimisé car je ne suis pas un grand développeur (même plutôt un débutant). je viens juste de le [...]
Remplacer un caractère ou une chaine dans une chaine : $chaine =~ s/\//-/g; Ici on remplace “/” par “–” dans l’ensemble de la chaine grâce à l’option “g”. “/” étant un caractère interprété par perl, il faut mettre un “\” devant. Cette expression fonctionne également pour remplacer une chaine dans la chaine. exemple :
Tailles d’un tableau à 2 dimensions : # nombre de lignesmy $nbr_lignes = @MonTableau_2D; # nombre de colonnes de la ligne 0 my $nbr_colonnes = @{$MonTableau_2D[0]}; Boucle for : Le Perl dispose de la structure for, qui est une copie de celle du C. for (initialisation; test; incrémentation) { première action; deuxième action; etc… } [...]
#!/usr/bin/perl use strict; use DBI; #Définition des arguments de connexion my $dbargs = {AutoCommit => 0, PrintError => 1}; #Connexion à la base SQLite my $dbh1 = DBI->connect(« dbi:SQLite2:dbname=/chemin/db », » », » »,$dbargs); #Affichage du message d’erreur si c’est le cas if ($dbh1->err()) { die « $DBI::errstr\n »; } #Préparation de la requête my $sSql= « SELECT * FROM SQLITE_MASTER »; my $statement = [...]
Pour vérifier mes sauvegardes Linux, j’ai créé un plugin nagios. Je place le code erreur dans un fichier. Puis lorsque Nagios vient executer le plugin, celui-ci lui renvoie le code erreur situé dans le fichier avec un message. Utilisation du plugin dans Nagios : $USER1$/check_sauvegarde.pl -serveur $HOSTNAME$ Hostname correspond au nom du serveur dans NAGIOS [...]
Je mets ce script ici pour me permettre de le retrouver si je perds la mémoire :p. Peut-être que ça servira à quelqu’un. Il a été intégré à Nagios grâce au code erreur en sortie puis exécuté par le check_nrpe. Ce script est au format wsf. <package> <job id="Application Script"> <comment> File: Application.wsf [...]
source = (test test2); # création du tableau avec deux entrées echo ${#source[*]}; # On affiche la taille du tableau 2 # Résultat de l’echo
Administration (29)
Astuces (31)
Base de donnée (9)
Cisco (18)
Linux (98)
Messagerie (2)
Microsoft (12)
Outils (14)
Programmation (19)
Projet (5)
Réseau (67)
Sécurité (29)
Vmware (9)
Web (6)