online tcl help

[mrdr]

Code: Select all

set zenklas "!"
set onlinelaikas [expr [unixtime] - ${server-online}]

bind pub -|- ${zenklas}online online:laix

proc online:laix {nick hand uhost chan arg} {
global {server-online}
set onlinelaikas [expr [unixtime] - ${server-online}]
putquick "PRIVMSG $chan :Online @ IRC: $onlinelaikas"
}

Can anyone make this script show not seconds but weeks, days, hours, seconds?
ex: 3d 6h 26m 6s

[demond]

Code: Select all

[duration $onlinelaikas]

[Sir_Fz]

Replace

Code: Select all

set onlinelaikas [expr [unixtime] - ${server-online}]

with

Code: Select all

set onlinelaikas [duration [expr [unixtime] - ${server-online}]]

$onlinelaikas will now return "?? days ?? hours ?? minutes ?? seconds"

Edit: demond was faster

[mrdr]

Thanks, works. :}