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/ |