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