DEDIBOX-NEWS.COM

Salut à tous,

Ce n'est pas vraiment un projet à part entière mais simplement un bout de code qui pourrait vous reservir.

Je suppose que tout le monde connaît bwbar ? (l'utilitaire qui permet de représenter sa charge réseau sur une image (voir signature)).

Eh bien, moi, j'avais besoin de la même chose mais pour mon espace disque, donc voici hdbar :

#!/bin/perl

use GD;

#Definition des constantes
my $w = 602;
my $h = 6;

$im = new GD::Image($w,$h);

$couleur_fond_vide = $im -> colorAllocate ( 204 , 204 , 227 ) ;
$couleur_fond_plein = $im -> colorAllocate ( 214 , 136 , 131 ) ;
$couleur_bord = $im -> colorAllocate ( 0 , 0 , 0 ) ;
$couleur_separateur = $im -> colorAllocate ( 255 , 255 , 255 ) ;

$im -> fill (0,0,$couleur_fond_vide);

$im -> line (0,0,$w-1,0,$couleur_bord);
$im -> line (0,$h-1,$w-1,$h-1,$couleur_bord);
$im -> line (0,0,0,$h-1,$couleur_bord);
$im -> line ($w-1,0,$w-1,$h-1,$couleur_bord);

#Recuperation occupation
$partoch = @ARGV[0];

$tmp = system("df | grep $partoch >hdbar.tmp");

open (F,"hdbar.tmp");

if ($ligne = <F>)
{
        $ligne =~ /[^0-9]*[0-9]*[^0-9]*[0-9]*[^0-9]*[0-9]*[^0-9]*([0-9]*)%.*/;
        $use = $1;
}

system ("rm hdbar.tmp");

system ("echo \"Utilisation partition $partoch : \" > hdbar.txt");
system ("df -h | grep $partoch | awk '{ print \$2}' >> hdbar.txt");

$im -> filledRectangle (1,1,($use/100)*($w-1),$h-2,$couleur_fond_plein);

#Tracage des separateurs
$im -> line ($w/5,1,$w/5,$h-2,$couleur_separateur);
$im -> line (2*$w/5,1,2*$w/5,$h-2,$couleur_separateur);
$im -> line (3*$w/5,1,3*$w/5,$h-2,$couleur_separateur);
$im -> line (4*$w/5,1,4*$w/5,$h-2,$couleur_separateur);


open ( FICHIER_PNG , ">hdbar.png" ) ;
print FICHIER_PNG $im -> png ( ) ;
close ( FICHIER_PNG ) ;

Ca genere une image PNG de l'espace utilisé et un fichier texte qui indique l'espace utilisé précisemment.

Pour l'éxécuter : perl hdbar.pl <partition> (ex : perl hdbar.pl /DATA).

Je suis sûr qu'il y a des optimisations à faire mais c'est un début

@+

Gaëtan

PS1 : il faut installer le module GD pour Perl
PS2 : il faut utiliser les partitions montées dans le fstab (ca ne peut pas être un repertoire quelconque par exemple)
PS3 : je l'ai mis en crontab pour actualiser la barre

Dernière modification par Gaetan (2007-05-22 22:22:22)