From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 18 Feb 2001 14:57:49 +0000 (+0000)
Subject: Use correct settings when Time passes.  regsub away *all* the ,s in load.
X-Git-Tag: branchpoint-2001-10-09-tell~20
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/ircbot/commitdiff_plain/93e9bcff174b6e8a230eb07542efb84d2e6e08b5

Use correct settings when Time passes.  regsub away *all* the ,s in load.
---

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"