Voici une commande bien pratique qui permet de classer le fichier passwd par UID : sort -t : -k 3,4 -g /etc/passwd sort –> Commande de trie -t –> défini le séparateur. Dans le fichier /etc/passwd, le séparateur est ‘:’ -k –> défini l’ordre du trie soit pour notre exemple, nous voulons trier la colonne 3 (UID) puis si plusieurs utilisateurs ont le même uid, on trie par la colonne 4 (GID) -g –> Le […]

Il est parfois nécessaire de filtrer les erreurs pour ne pas polluer les fichiers log de données récurrentes et non nécessaire. Par exemple, les erreurs Deprecated : [Mon Dec 20 16:09:36 2010] [error] [client 192.168.0.1] PHP Deprecated:  Function ereg_replace() is deprecated in Cette erreur nous indique que l’application PHP utilise une fonction qui est en train de disparaitre.  C’est très bien de le savoir lorsqu’on développe. Mais pour débugger, c’est l’enfer. Heureusement, php a prévu […]

Pour certains tests, il peut être utile de créer des fichiers d’une taille précise. Pour cela, nous pouvons utiliser la commande dd : dd if=/dev/zero of=5M bs=1k count=5 Ici, nous allons créer un fichier nommé 5M qui aura la taille de 1000 blocks de 1Ko * 5. C’est à dire 5M. Le fichier créé sera rempli de 0.

Suite à un problème de coupures intermittentes que j’ai eu avec un lien d’un site distant, j’ai trouvé un petit bat permettant de faire un ping toutes les 4 s et de tracer les pertes de paquets. Voici le contenu de mon fichier .bat : @echo off echo Ping vers 192.168.0.1 en cours echo NE PAS FERMER LA FENETRE rem Délai en secondes set delay=1 echo Etat du réseau du Site distant >  trace.txt echo […]

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 pour qu’il soit plus exploitable par tous. J’espère que ça servira à quelqu’un. Attention : J’ai transformé le script permettant […]

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 qui est téléchargeable ici : http://www.waggy.at/nagios/capture_plugin.txt   Installation et configuration du plugin   Vous pouvez le placer avec vos autres […]

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" ‘Comptage des fichiers effaces NbFichiersEffaces = 0 ‘Initialisation des objets Set fso = CreateObject("Scripting.FileSystemObject" ) ‘On verifie que le repertoire […]

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 mettre en prod donc il est peut-être bugger. Ce plugin ne gère pas les différentes version d’SNMP. A vous de […]

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 : $chaine=”Bonjour je m’appel Olivier”; $chaine =~ s/olivier/jean/g; $chaine contient alors  “Bonjour je m’appel jean”; Ouvrir et Fermer un fichier : open […]

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… }  D’abord, l’initialisation est exécutée. Puis, tant que le test est vrai, le bloc d’action est exécuté. Après l’exécution du bloc, […]