Browsing articles in "Programmation"
Juil
23
2009

[Plugin Nagios] Supervision des erreurs sur les interfaces des équipements réseau

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 […]

Juil
23
2009

Trucs perl -2

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 […]

Juil
21
2009

Trucs Perl

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, […]

Jan
13
2009

Afficher le schéma d’une base SQLite en Perl

#!/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 = $dbh1->prepare($sSql); #Exécution de la requête $statement->execute(); #Affichage du résultat while (my $row = $statement->fetchrow_arrayref) { print join(“\t”, @$row), “\n”; } […]

Déc
11
2008

[SCRIPT NAGIOS] Monitorer les sauvegardes

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 et c’est le nom que devra porter le fichier. Code source du plugin (perl) : #!/usr/bin/perl     # vi /usr/local/bin/nagios_testd.pl […]

Nov
28
2008

[Script Nagios] Vérifier la récupération des emails en POP sur Mdaemon en VBS

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           Description: Ce script permet de savoir si une application récupère bien           les emails via POP sur Mdaemon           […]

Juil
22
2008

Connaitre la taille d’un tableau :

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 ${#source[*]} correspond à la taille du tableau source.

Juil
11
2008

Rediriger dans une variable la sortie STDERR en SHELL

SORTIE=`tar -czvf /home/MonHome.tar.gz /tmp/ 2>&1` Tu as dans $SORTIE ce que t’a renvoyé la commande tar. echo $SORTIE

Juin
25
2008

Script de migration IP fixe vers DHCP Windows

A mettre dans un fichier .bat : netsh interface ip set address name="Connexion au réseau local" source=dhcp netsh interface ip set dns name="Connexion au réseau local" source=dhcp ipconfig /release ipconfig /renew Attention : il y’a un problème avec les accents. Je vous conseil d’editer le script avec la commande edit de l’invite de commande pour que le caractère "é" soit au format DOS. Pensez à sauvegarder!!   Pour connaître la liste de vos interfaces avec […]

Avr
16
2008

Installer Symfony

Symfony est un framework pour php. Pré-requis : php-pear = gestionnaire de library phpphp5php-xml Installation : $ pear channel-discover pear.symfony-project.com$ pear install symfony/symfony On teste si symfony est bien installé : $ symfony -V On regarde où a été installé symfony : $ find / -name “symfony” -print Normalement, il se trouve à cet endroit : /usr/share/pear/data/symfony/ Configuration : Avant toutes choses, vérifier que le serveur apache et php sont bien installé et en fonctionnement. […]

Pages :«123»