X-Git-Url: https://git.distorted.org.uk/~mdw/ircbot/blobdiff_plain/c8723e92afb044f4dc6f0aafc9bc28cc587ce601..93e9bcff174b6e8a230eb07542efb84d2e6e08b5:/bot.tcl diff --git a/bot.tcl b/bot.tcl index e5da846..0733d2c 100755 --- a/bot.tcl +++ b/bot.tcl @@ -1603,6 +1603,8 @@ proc lnick_marktime_start {luser why ms} { proc lnick_marktime_now {luser why} { upvar #0 nick_onchans($luser) oc + global calling_nick + set calling_nick $luser sendprivmsg $luser [lnick_pingstring $why $oc ""] lnick_marktime_reset $luser } @@ -1614,7 +1616,7 @@ proc lnick_pingstring {why oc apstring} { if {[regexp \ {^ *([0-9:apm]+) +up.*, +(\d+) users, +load average: +([0-9., ]+) *$} \ $uptime dummy time users load]} { - regsub , $load {} load + regsub -all , $load {} load set uptime "$time $nnicks/$users $load" } else { append uptime ", $nnicks nicks"