Connexion


Publier un nouveau sujet Répondre au sujet  [ 1 message ] 

Index du forum : Partie publique : Scripting

Auteur Message
 Sujet du message: [TCL-XChat-Linux] Uptime
MessagePublié: Mer Mars 12, 2008 9:27 pm 
Hors-ligne
Recycleur habitué

Inscrit le: Mer Mars 12, 2008 8:46 pm
Messages: 17
Un autre script TCL pour XChat permettant d'envoyer l'uptime sur la fenetre active.

Utilisation :
/uptime

Ouais.


Code:
#########################################################
##                                                     ##
##       TCL Uptime Script                             ##
##                      v 1.0                          ##
##                            By Fl0w3D                ##
##                                                     ##
##          XChat 2.8.4 Rulez                          ##
##                                                     ##
#########################################################
##        Licence Creative Commons By NC SA 2.0        ##
## http://creativecommons.org/licenses/by-nc-sa/2.0/fr ##
#########################################################

alias uptime {
  ## Cas d'un uptime x days, xx:xx
  if { [lindex [exec uptime] 7] == "load" } {
 set uptime [lindex [split [split [lindex [exec uptime] 4] ":"] ","] 0]
 set hours [lindex $uptime 0]
 set mins [lindex $uptime 1]
 /say "Uptime : [lindex [exec uptime] 2] jours, $hours heures et $mins minutes. Load average : [lrange [exec uptime] 9 11] ([lindex [exec uptime] 5] users)"
  }
  ## Cas d'un uptime xx days, xx min
  if { [lindex [exec uptime] 8] == "load" } {
 set hours 0
 set mins [lindex [exec uptime] 4]
 /say "Uptime : [lindex [exec uptime] 2] jours, $hours heures et $mins minutes. Load average : [lrange [exec uptime] 10 12] ([lindex [exec uptime] 6] users)"
  }
  ## Cas d'un uptime xx mins
  if { [lindex [exec uptime] 6] == "load" } {
 set hours 0
 set mins [lindex [exec uptime] 2]
 /say "Uptime : 0 jours, $hours heures et $mins minutes. Load average : [lrange [exec uptime] 8 10] ([lindex [exec uptime] 4] users)"
  }
  ## Cas d'un uptime xx:xx (heure:min)
  if { [lindex [exec uptime] 5] == "load" } {
 set uptime [lindex [split [split [lindex [exec uptime] 2] ":"] ","] 0]
 set hours [lindex $uptime 0]
 set mins [lindex $uptime 1]
 /say "Uptime : 0 jours, $hours heures et $mins minutes. Load average : [lrange [exec uptime] 7 9] ([lindex [exec uptime] 3] users)"
  }
}

## Cas 1 : xx:xx:xx up x days,  x:xx,  x users,  load average: x.xx, x.xx, x.xx
## cas 2 : xx:xx:xx up x days, xx min,  x users,  load average: x.xx, x.xx, x.xx
## Cas 3 : xx:xx:xx up xx min,  x users,  load average: x.xx, x.xx, x.xx
## Cas 4 : xx:xx:xx up x:xx, x users, load averages: x.xx x.xx x.xx


Back to top
 Profil  
 
Afficher les messages publiés depuis:  Trier par  
Publier un nouveau sujet Répondre au sujet  [ 1 message ] 

Index du forum : Partie publique : Scripting


Qui est en ligne ?

Utilisateur(s) parcourant actuellement ce forum : Aucun utilisateur inscrit et 3 invité(s)


Vous ne pouvez pas publier de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum

Rechercher pour:
Sauter vers:  
cron
Style by Midnight Phoenix & N.Design Studio
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Traduction réalisée par Maël Soucaze © 2010 phpBB.fr