Script Perl pour XChat servant à afficher l'espace disque utilisé, disponible et total.
L'espace disque disponible est en théorie inférieur à la différence de l'espace total et l'espace utilisé car une certaine taille du disque est réservé (C'est le cas par défaut pour l'ext3).
Utilisation :
/showhdd
Fonctionne avec Ubuntu, je garantis rien pour les autres.
À enregistrer dans ~/.xchat2/ dans un fichier .pl
Pour le charger :
/load ~/.xchat2/[nom du script].pl
Code:
#!/usr/bin/perl -w
## Auteur : Fl0w3D
## Licence : http://creativecommons.org/licenses/by-nc-sa/2.0/fr
$script_name = "HDD Freespace";
$script_version = "0.1";
$script_description = "Announces HDD freespace";
Xchat::register($script_name,$script_version,$script_description,"");
Xchat::print("Loaded \002".$script_name."\002:");
Xchat::hook_command("showhdd", "showhdd");
sub showhdd
{
# Get HDD size.
$hdd_info_total = `df | awk '{ sum+=\$2/1024^2 }; END { printf (\"%d\", sum )}'`;
$hdd_info_used = `df | awk '{ sum+=\$3/1024^2 }; END { printf (\"%d\", sum )}'`;
$hdd_info_dispo = `df | awk '{ sum+=\$4/1024^2 }; END { printf (\"%d\", sum )}'`;
$hdd_info_string = "HDD: ".$hdd_info_used." Gio sur ".$hdd_info_total." Gio utilisés (".$hdd_info_dispo." Gio disponibles).";
Xchat::command("say ".$hdd_info_string);
}