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

[TCL-XChat-Linux] Uptime
http://recycled-irc.net/forum/viewtopic.php?f=5&t=1159
Page 1 sur 1

Auteur:  Fl0w3D [ Mer Mars 12, 2008 9:27 pm ]
Sujet du message:  [TCL-XChat-Linux] Uptime

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

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