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";
} |
Partager