}
proc note_topic {showoff whoby topic} {
- if {[string length $whoby]} {
- set msg "FYI, $whoby has changed the topic on $showoff"
- } else {
- set msg "FYI, I have reset the topic on $showoff"
- }
+ set msg "FYI, $whoby has changed the topic on $showoff"
if {[string length $topic] < 160} {
append msg " to $topic"
} else {
} else {
set tryspies $tell
}
-puts "NT>showoff $showoff|whoby $whoby|topic $topic|tell $tell|tryspies $tryspies|msg $msg<"
foreach spy $tryspies {
set see [chandb_get $spy topicsee]
-puts "NT>spy $spy|see $see<"
if {[lsearch -exact $see $showoff] >= 0 || \
([lsearch -exact $see *] >= 0 && \
[lsearch -exact $tell $spy] >= 0)} {
global nick
upvar #0 chan_nicks($lchan) nlist
if {[llength $nlist] != 1} return
- if {"[lindex $nlist 0]" != "$nick"} return
+ if {"[lindex $nlist 0]" != "[irctolower $nick]"} return
if {[chandb_exists $lchan]} {
set mode [chandb_get $lchan mode]
if {"$mode" != "*"} {
set topic [chandb_get $lchan topicset]
if {[string length $topic]} {
sendout TOPIC $lchan $topic
- note_topic $lchan {} $topic
}
} else {
sendout PART $lchan
if {[info exists new]} { error "nick collision ?! $ary $n $newnick" }
if {[info exists old]} { set new $old; unset old }
}
- upvar #0 nick_onchans($new)
+ upvar #0 nick_onchans($new) oc
set luser [irctolower $n]
set lusernew [irctolower $newnick]
foreach ch $oc {