~mdw
/
ircbot
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
52c775e
)
Bugfixes.
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 12 Feb 2002 19:41:01 +0000
(19:41 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Tue, 12 Feb 2002 19:41:01 +0000
(19:41 +0000)
bot.tcl
patch
|
blob
|
blame
|
history
diff --git
a/bot.tcl
b/bot.tcl
index
105a0a2
..
3538397
100755
(executable)
--- a/
bot.tcl
+++ b/
bot.tcl
@@
-151,7
+151,7
@@
proc tell_event {nl event} {
# later. We also support the psuedo-event `none'. The del msg
# and new msg events are handled by the command procedures, not here.
global calling_nick
# later. We also support the psuedo-event `none'. The del msg
# and new msg events are handled by the command procedures, not here.
global calling_nick
- if {[info exists calling_nick] { set save $calling_nick }
+ if {[info exists calling_nick]
}
{ set save $calling_nick }
switch -exact $event {
none { }
talk {
switch -exact $event {
none { }
talk {
@@
-198,7
+198,7
@@
proc tell_event_core {nl event} {
# When user talks we actually get talk now and act later
global calling_nick
set calling_nick $nl
# When user talks we actually get talk now and act later
global calling_nick
set calling_nick $nl
- set iml [msgdb_get $nl inbound]
+ set iml [msg
s
db_get $nl inbound]
if {![llength $iml]} return
set ago [expr {$now - $telling_when}]
if {![llength $iml]} return
set ago [expr {$now - $telling_when}]