From 93e9bcff174b6e8a230eb07542efb84d2e6e08b5 Mon Sep 17 00:00:00 2001
Message-Id: <93e9bcff174b6e8a230eb07542efb84d2e6e08b5.1715882591.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sun, 18 Feb 2001 14:57:49 +0000
Subject: [PATCH] Use correct settings when Time passes.  regsub away *all* the
 ,s in load.
Organization: Straylight/Edgeware

From: Ian Jackson <ijackson@chiark.greenend.org.uk>

---
 bot.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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"
-- 
[mdw]