bind PUB $userflag $up main_func

proc main_func {nick uhost hand chan arg} {show_uptime $nick $uhost $hand $chan $arg}

proc show_uptime {nick uhost hand chan arg} {
catch {exec uptime} shelluptime
catch {exec uname -ms} shellver
putnow "PRIVMSG $chan :Bot Uptime: [duration [expr [clock seconds] - $::uptime]]"
putnow "PRIVMSG $chan :Shell Uptime: $shelluptime running on $shellver"
}