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 fichier à trier

Après on peut aussi très bien n’afficher que le nom d’utilisateur et l’uid grâce à la commande awk :

sort -t : -k 3,4 -g /etc/passwd |  tr ‘:’ ‘\t’ | awk ‘{print $1 "–> "  $3}’

tr –> permet de remplacer le séparateur ‘:’ par une tabulation ‘\t’

awk ‘{print $1 "–> "  $3}’ –> permet d’afficher la premiere colonne ($1) et la troisième ($3)

voici un exemple de sortie :

apache –> 48

Voici la même commande pour le fichier /etc/group :

sort -t : -k 3 -g /etc/group |  tr ‘:’ ‘\t’ | awk ‘{print $1 "–> "  $3}’

voilà, j’espère que ça vous aidera un jour ou l’autre.

++

Olivier

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 le coup. Dans php.ini, il y a un champ nommé “error_reporting” initialisé par défaut sur E_ALL ( Toutes les erreurs).

Voici la valeur de error_reporting dans le cas où nous voulons tous les logs sauf les messages E_Notice et E_DEPRECATED :

error_reporting = E_ALL & ~E_DEPRECATED & ~E_NOTICE

Le ~ représente la négation.

Nous pouvons faire la même chose directement dans l’application avec la fonction :

int error_reporting ([ int $level ] )

exemple :

error_reporting(E_ALL ^ E_NOTICE ^ E_DEPRECATED);

le ^ représente la négation.

Les différents niveaux d’erreur :

Le type d’une erreur est représenté par une constante PHP.

Valeur : 1  Constante : E_ERROR (entier)

Les erreurs sont aussi affichées par défaut, et l’exécution du script est interrompue. Elles indiquent des erreurs qui ne peuvent pas être ignorées, comme des problèmes d’allocation de mémoire, par exemple.

Valeur : 2 Constante : E_WARNING (entier)

Les alertes sont affichées par défaut, mais n’interrompent pas l’exécution du script. Elles indiquent un problème qui doit être intercepté par le script durant l’exécution du script. Par exemple, appeler ereg() avec une expression rationnelle invalide.

Valeur : 4 Constante : E_PARSE (entier)

Les erreurs d’analyse ne doivent être générées que par l’analyseur. Elles ne sont citées ici que dans le but d’être exhaustif.

Valeur : 8 Constante : E_NOTICE (entier)

Les remarques ne sont pas affichées par défaut, et indiquent que le script a rencontré quelque chose qui peut être une erreur, mais peut aussi être un événement normal dans la vie du script. Par exemple, essayer d’accéder à une valeur qui n’a pas été déclarée, ou appeler stat() sur un fichier qui n’existe pas.

Valeur : 16 Constante : E_CORE_ERROR(entier)

Elles sont similaires aux erreurs E_ERROR, mais elles sont générées par le code source de PHP. Les fonctions ne doivent pas générer ce genre d’erreur.

Valeur : 32 Constante : E_CORE_WARNING(entier)

Elles sont similaires à E_WARNING, mais elles sont générées par le code source de PHP. Les fonctions ne doivent pas générer ce genre d’erreur.

Valeur : 64 Constante : E_COMPILE_ERROR(entier)

Elles sont similaires à E_ERROR, mais elles sont générées par le moteur Zend. Les fonctions ne doivent pas générer ce genre d’erreur.

Valeur : 128 Constante : E_COMPILE_WARNING(entier)

Elles sont similaires à E_WARNING, mais elles sont générées par le moteur Zend. Les fonctions ne doivent pas générer ce genre d’erreur.

Valeur : 256 Constante : E_USER_ERROR(entier)

Message d’erreur généré par l’utilisateur. Comparable à E_ERROR. Elle est générée par le programmeur en PHP par l’utilisation de la fonctiontrigger_error(). Les fonctions de PHP ne doivent pas générer ce genre d’erreur.

Valeur : 512 Constante : E_USER_WARNING(entier)

Message d’erreur généré par l’utilisateur. Comparable à E_WARNING. Elle est générée par le programmeur en PHP par l’utilisation de la fonctiontrigger_error(). Les fonctions de PHP ne doivent pas générer ce genre d’erreur.

Valeur : 1024 Constante : E_USER_NOTICE(entier)

Message d’erreur généré par l’utilisateur. Comparable à E_NOTICE. Elle est générée par le programmeur en PHP par l’utilisation de la fonctiontrigger_error(). Les fonctions de PHP ne doivent pas générer ce genre d’erreur.

Valeur : 2048 Constante : E_STRICT (entier)

Permet d’obtenir des suggestions de PHP pour modifier votre code, assurant ainsi une meilleure interopérabilité et compatibilité de celui-ci.

Depuis PHP 5

Valeur : 4096 Constante : E_RECOVERABLE_ERROR(entier)

Erreur fatale qui peut être captée. Ceci indique qu’une erreur probablement dangereuse s’est produite, mais n’a pas laissé le moteur Zend dans un état instable. Si l’erreur n’est pas attrapée par un gestionnaire d’erreur défini par l’utilisateur (voyez aussi set_error_handler(), l’application arrête prématurément comme si cela était une E_ERROR.

Depuis PHP 5.2.0

Valeur : 8192 Constante : E_DEPRECATED(entier)

Alertes d’exécution. Activer cette option pour recevoir des alertes sur les portions de votre code qui pourraient ne pas fonctionner avec les futures versions.

Depuis PHP 5.3.0

Valeur : 16384 Constante : E_USER_DEPRECATED(entier)

Message d’alerte généré par l’utilisateur. Fonctionne de la même façon que E_DEPRECATED, mise à part que le message est généré par votre code PHP en utilisant la fonction trigger_error().

Depuis PHP 5.3.0

Valeur : 30719 Constante : E_ALL (entier)

Toutes les erreurs et alertes supportées sauf le niveau E_STRICT.

30719 en PHP 5.3.x, 6143 en PHP 5.2.x, et 2047 auparavant

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 ============================ >> trace.txt

:loop

         ping.exe -n 1 192.168.0.1 | findstr "demande" > NUL
         if %errorlevel% == 0 echo Pertes de paquets vers 192.168.0.1 %date% %time:~,8% >> trace.txt
        
     rem Attendre
         ping.exe -n %delay% 127.0.0.1 > NUL

goto loop

L’adresse IP du hôte distant est ici : 192.168.0.1

Le fichier de sortie est : trace.txt

Avec ce script on peut détecter des pertes qui ne sont pas visibles par Nagios (check toutes les 5min) et par Cacti. De plus, on est pas obligé de resté devant le ping –t afin de scruter les pertes.

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 la supervision de la synchronisation du shell en perl. Donc, à présent, il faut mettre dans le fichier /etc/sudoers la ligne :

nagios   ALL = NOPASSWD: /usr/bin/perl /usr/lib/nagios/plugins/check_synchro_vulture.pl

Au lieu de :

nagios   ALL = NOPASSWD: /bin/sh /usr/local/nagios/libexec/check_synchro_vulture.sh

Modifier également la commande utilisé par Nagios.

La supervision des sites Web hébergés a également changée. La commande s’exécute de cette manière :

./check_vulture.pl -H 192.168.0.1

Il vous faudra modifier les constantes dans la plupart des scripts.

Vous pouvez télécharger la dernière version ici

Mot de passe de l’archive : http://www.croc-informatique.fr

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 plugins, le renommer en capture_plugin.pl et lui donner les bons droits.

L’emplacement du fichier log est défini dans cette variable :

my $LOG_FILE = « /tmp/captured-plugins.log »;

Utilisation du plugin

Si la commande que vous voulez debugger est la suivante :

$USER1$/check_nrpe -H $HOSTADDRESS$ -c restart_service -a $SERVICESTATE$ $SERVICESTATETYPE$ $SERVICEATTEMPT$ « $ARG1$ »

Il vous suffi de la modifier en ajoutant le plugin comme ceci :

$USER1$/capture_plugin.pl $USER1$/check_nrpe -H $HOSTADDRESS$ -c restart_service -a $SERVICESTATE$ $SERVICESTATETYPE$ $SERVICEATTEMPT$ « $ARG1$ »

Voilà, il ne vous reste plus qu’à tester et vérifier que votre commande est bien lancée dans le fichier log.

Exemple de fichier log :

Voici un exemple de log :

2010-6-21 16:32:29 —— debugging
cmd=[/usr/lib/nagios/plugins/check_nrpe '-H' '192.168.0.1' '-c' 'restart_service' '-a' 'OK' 'HARD' '4' 'mon service']
output=[Restarting mon service (3rd soft critical state)
]
retcode=0

• cmd –> Commande lancée par Nagios
• output –> retour de la commande check_nrpe
• retcode –> Code retour de la commande check_nrpe

Si vous avez d’autres solutions, n’hésitez pas J’ai essayé le mode debug, mais ça n’a pas trop fonctionné. En même temps, j’ai pas cherché beaucoup…

Code Sources :

Au cas où, je mets la source :

#!/usr/bin/perl -w
#
# Written 2007-03-24 by Wolfgang Wagner (aka wolle)
#
# $id: capture_plugin.pl v1.0
#
# Captures stdout&stderr in a file and returns orginial results to Nagios (http://www.nagios.org)
#
# Copyright 2007 by Wolfgang Wagner. All rights reserved.
#
# This software is licensed under the terms of the GNU General Public License Version 2
# as published by the Free Software Foundation.
# It is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE WARRANTY OF DESIGN,
# MERCHANTABILITY, AND FITNESS FOR A PARTICULAR PURPOSE.
#
# Check out http://www.waggy.at for possible future versions.
#

use strict;

# This plugin does not need any nagios utils. It just interfaces the original plugin.

my $LOG_FILE = "/tmp/captured-plugins.log";

my ($cmd, $ret_code, $output);
# First display all arguments
my ($numArgs, $argnum);
$numArgs = $#ARGV + 1;

# create the command-line

$cmd = $ARGV[0];
foreach $argnum (1 .. $#ARGV) {
  $cmd = $cmd . " '" . $ARGV[$argnum] . "'"
}

# prepare debug-output
# ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime(time);
my ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset) = localtime(time);
my $year = 1900 + $yearOffset;
my $theTime = " $year-$month-$dayOfMonth $hour:$minute:$second";
# now execute the command

$output = `$cmd 2>&1`;
$ret_code = $?>>8;

# log the start, output, retcode & end

my $LogFile;
# open could be better: check success later; if unsuccessful return UNKNWON to Nagios
open (LogFile, ">>$LOG_FILE") || die ("Cannot open logfile");
print LogFile "$theTime ------ debugging\ncmd=[$cmd]\noutput=[$output]\nretcode=$ret_code\n-------\n";
close(LogFile);
# avoid access problems for others.
chmod 0777, $LOG_FILE;

# now return the original resutlt to Nagios
print $output;
exit "$ret_code";

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 de sauvegarde existe
If (myName = Winrep = fso.FolderExists(DossierSauvegarde)) = False Then
    Erreur = MsgBox("Le dossier de sauvegarde est introuvable !" )
    Wscript.Quit
End If
‘On recupere la date systeme
DateSysteme = Date
‘On apelle la fonction d’effacement
Clean(DossierSauvegarde)
‘Fonction d’effacement des fichiers
Sub Clean(FolderPath)
Set Folder = fso.Getfolder(FolderPath)
‘On appelle recursivement la fonction s’il y a des sous dossiers
Set SubFolder = Folder.SubFolders
   For Each CurrentFolder in SubFolder
      Clean CurrentFolder.Path
   Next
‘On efface les fichiers dans le dossier courant
For Each File In Folder.Files
        If (DateDiff("d", File.DateLastModified, DateSysteme) > CInt(AgeMaximalFichiers)) Then
            ‘On verifie qu’ils ne sont pas en lecture seule
            If File.Attributes And 1 Then File.Attributes = File.Attributes – 1
            File.Delete()
            NbFichiersEffaces = NbFichiersEffaces + 1
        End If
Next
End Sub
‘On affiche un joli message
MsgBox (Cstr(NbFichiersEffaces) + " fichiers ont ete effaces" )

Il faut indiquer le dossier à nettoyer (DossierSauvegarde) et la durée de rétention (AgeMaximalFichiers).

J’ai trouvé ce script sur http://forum.hardware.fr/hfr/WindowsSoftware/Logiciels/suppression-fichiers-fonction-sujet_247096_1.htm

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 l’adapter.

Information sur le plugin :

Celui-ci va récupérer via SNMP des compteurs. Le problème des équipements Cisco est qu’on ne peut pas réinitialiser les compteurs SNMP. Donc j’ai dû faire un système de mémorisation puis de comparaison pour ne pas avoir des alertes constamment dans mon interface Nagios. De cette manière, une erreur critique apparaît seulement lorsque l’un des compteurs est superieur au check précédent.

Erreurs supervisées par le plugin :

· Input Errors : Erreur sur l’interface en entrée

· Output Errors : Erreur sur l’interface en sortie

· Input Discards : Problème de buffer en entrée

· Output Discards : Problème de buffer en sortie

Emplacement du script :

/usr/local/nagios/libexec/check_io_error.pl

Ce script doit avoir les droits 755.

Mémorisation :

Pour mémoriser, au premier check avec des erreurs, je créé un fichier de ce type pour l’interface:

Fa0/1:0:155:0:0

Ce fichier sera créé dans /tmp (modifiable dans le script)

Utilisation :

./check_io_error.pl -C public -HOSTADDRESS IP_Equipement

Commande Nagios :

$USER1$/check_io_error.pl -HOSTADDRESS $HOSTADDRESS$ -C $ARG1$ -cr $ARG2$

Code de sortie:

Les erreurs critiques :

**CRITICAL** :Fa6/0/1 :ifInDiscards=0, Fa6/0/1 :ifInErrors=58365499, Fa6/0/1 :ifOutDiscards=0, Fa6/0/1 :ifoutErrors=0,

Cette erreur montre que depuis le dernier check, il y’a eu des erreurs en entrée sur l’interface Fa6/0/1

Les sorties sans erreur :

OK : PAS DE PROBLEME : Cela veut dire qu’il n’y a jamais eu d’erreur sur les interfaces de cet équipement.

OK : PAS DE NOUVELLES ERREURS : Cela veut dire qu’il y a déjà eu des erreurs dans le passé mais il n’y a pas d’erreur depuis

Réinitialiser les compteurs après résolution du problème

Pour réinitialiser les compteurs, il suffi de supprimer le fichier correspondant à l’interface en erreur dans le répetoire /tmp

Se répertoire peut être redéfini au début du plugin.

Téléchargement :

Vous pouvez le télécharger ici.

Troubleshooting :

http://www.cisco.com/en/US/products/hw/switches/ps700/products_tech_note09186a008015bfd6.shtml#l3_l2

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 FILE, "> mon_fichier.txt" or die "Impossible d’ouvrir mon_fichier.txt”;
close FILE;

Le fait d’ouvrir un fichier, le créé automatiquement.

Lire un fichier ligne par ligne :

open (FILE2, "$nom_fichier") or die "Can’t open ".$nom_fichier ;
while ($ligne = <FILE2>) {
          print $ligne;
}
close FILE2;

Ecrire dans un fichier :

open FILE, "> mon_fichier.txt" or die "mpossible d’ouvrir mon_fichier.txt”;
        print FILE $contenu_fichier;
close FILE;

Ici, on écrit le contenu de la variable $contenu_fichier dans le fichier “mon_fichier.txt”.

Parser une chaine :

$chaine=”8:5:6:5:4”;

@tableau = split(/:/, $chaine);

Cette fonction permet de décomposer la chaine en utilisant les séparations “’:”.

Voici le contenu du tableau @tableau :

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, on effectue l’incrémentation. Voici un exemple de boucle for, qui affice tous les nombres de 0 à 9 :

for ($i = 0; $i < 10; ++$i) # commence à $i = 0
			    # Continue tant que $i < 10
			    # Incrémente $i avant de répéter.
{
	print "$i\n";
}

Tests

Les branchements suivant dépendent des tests binaires. En Perl, tout nombre non nul, et toute chaîne de caractère non vide est considéré comme vrai. 0 et "" (chaîne vide) sont considéré come vide. Voici quelques tests sur les nombres et chaînes.

$a == $b		# Est-ce que $a est numericalement égal à $b?
		# N'utilisez jamais l'opérateur = (affectation).
$a != $b		#  Est-ce que $a est numericalement différent à  $b?
$a eq $b		#  Est-ce que la chaîne $a est égale à la chaîne $b?
$a ne $b		#  Est-ce que la chaîne $a est différent à la chaîne $b?  

On dispose aussi des opérateur logiques et, ou et non:

($a && $b)		# Est-ce que $a et $b sont vrai?
($a || $b)		# Est-ce que $a ou $b est vrai?
!($a)			# Est-ce que $a est faux?

Hash :

Quand on a un hash de ce type la :

%oid = (

   ifName             => "1.3.6.1.2.1.31.1.1.1.1",

   ifInDiscards       => "1.3.6.1.2.1.2.2.1.13",

   ifInErrors       => "1.3.6.1.2.1.2.2.1.14",

   ifOutDiscards    => "1.3.6.1.2.1.2.2.1.19",

   ifoutErrors      => "1.3.6.1.2.1.2.2.1.20"

   );

Nous voulons récupérer la Description :

@keys = keys %oid;

Toutes les descriptions seront alors dans le tableau @keys.

Récupération des valeurs du hash :

@values = values %ENV;