From: ijackson <ijackson>
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-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=7f073df0a4d24094ee4178e75520fa3f27eab914;p=ircbot.git

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"