Recycled-IRC
http://www.recycled-irc.net/forum/

[Perl-XChat-Linux] HDDFreeSpace
http://www.recycled-irc.net/forum/viewtopic.php?f=5&t=1161
Page 1 sur 1

Auteur:  Fl0w3D [ Mer Mars 12, 2008 10:12 pm ]
Sujet du message:  [Perl-XChat-Linux] HDDFreeSpace

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);
}

Page 1 sur 1 Heures au format UTC + 1 heure
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/