Affichage d'un graph munin
Bonjour,
Je dois, pour un projet, je dois récupérer la taille total et occupée du/des disques d'un ordinateur.
Je créé donc mon plugin munin qui consiste à aller chercher via la commande 'df -ah' les valeurs qui m’intéresse. Après tests, cela marche très bien dans ma console.
Je créé le lien symbolique pour munin et j'attends l'update des plugins mais rien ne s'affiche... je n'ai même pas un graphique vierge ><
Est-ce qu'il existerai un moyen de savoir où est l'erreur, où ça bloque (via fichier log??)
Ou est-ce que c'est dans mon code?
code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#!/usr/bin/perl
use strict;
if (exists $ARGV[0] and $ARGV[0] eq "config")
{
print "graph_title Utilisation Disques\n";
print "graph_vlabel Go\n";
print "graph_category essais_Lasir\n";
print "espace_total.label espace_total\n";
print "espace_utilise.label espace_utilise\n";
print "graph_args --base 1000\n";
}else
{
my(@tab,@tabF, $var); #Declaration des variables locales
my($total, $utilise);
@tab = `df -ah`; # Execution d'une commande + insertion dans un tableau
#print $tab[2];
@tabF = split(/\s+/, $tab[2]); # On split l'index 2 car c'est la ligne qui nous interesse
#print "$tabF[2]\n";
chop($tabF[1]); # On enleve le dernier caractere ("G") qui nous interesse pas
$total = $tabF[1];
chop($tabF[2]); # ***********************************************************
$utilise = $tabF[2];
$utilise =~ tr/[0-9]+,[0-9]+/[0-9]+\.[0-9]+/; # Convertit le caractere "," en "."
# On met tout en Octet pour munin :
$total = $total * 1000000000;
$utilise = $utilise * 1000000000;
print "espace_total.value "."$total"."\n"; # Variables finales
print "espace_utilise.value "."$utilise"."\n";
} |
Merci pour vos réponses =)
