~mdw
/
ircbot
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
c8723e9
)
Use correct settings when Time passes. regsub away *all* the ,s in load.
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 18 Feb 2001 14:57:49 +0000
(14:57 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 18 Feb 2001 14:57:49 +0000
(14:57 +0000)
bot.tcl
patch
|
blob
|
blame
|
history
diff --git
a/bot.tcl
b/bot.tcl
index
e5da846
..
0733d2c
100755
(executable)
--- 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
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
}
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]} {
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"
set uptime "$time $nnicks/$users $load"
} else {
append uptime ", $nnicks nicks"