Bugfixes.

[ircbot] / ledmodule.tcl

diff --git a/ledmodule.tcl b/ledmodule.tcl
index 22cfb08b7cdaed55fbd87037e33ba171b6c4af04..1de1e959bcecf337ec2fa7bc43c3b7672916415e 100644 (file)
--- a/ledmodule.tcl
+++ b/ledmodule.tcl
@@ -144,7 +144,7 @@ proc_mon gotchanlist {ch nll} {
     foreach nl $nll {
        if {![string compare $nl [irctolower $nick]]} continue
        if {[mon_nick_is $mm(nopresence) $nl]} continue
     foreach nl $nll {
        if {![string compare $nl [irctolower $nick]]} continue
        if {[mon_nick_is $mm(nopresence) $nl]} continue

-       lappend $l $nl
+       lappend l $nl

     }
     set mm(present-$ch) $l
     mon_updateall $m
     }
     set mm(present-$ch) $l
     mon_updateall $m


@@ -573,6 +573,7 @@ proc msg_JOIN {p c chan} { chan_shortly $chan }
 proc msg_PART {p c chan} { chan_shortly $chan }
 proc msg_KILL {p c user why} { allchans_shortly }
 proc msg_QUIT {p c why} { allchans_shortly }
 proc msg_PART {p c chan} { chan_shortly $chan }
 proc msg_KILL {p c user why} { allchans_shortly }
 proc msg_QUIT {p c why} { allchans_shortly }

+proc msg_NICK {p c newnick} { allchans_shortly }

 proc msg_KICK {p c chans users comment} {
     if {[llength $chans] > 1} {
        allchans_shortly
 proc msg_KICK {p c chans users comment} {
     if {[llength $chans] > 1} {
        allchans_shortly