Can anyone of you tell me why doesn't this code work ?
Code: Select all
set ntfy_nickstocheck {
Engineer
Developer
Tester
Mapherick
}
proc ntfy_settimer {args} {
timer 5 ntfy_check
}
proc ntfy_check {args} {
global ntfy_nickstocheck
set intc [join $ntfy_nickstocheck]
putserv "ISON $intc"
ntfy_settimer
}
proc ntfy_process {from keyw args} {
global ntfy_nickstocheck
set ionl [split [lindex [split [lindex $args 0] ":"] 1]]
foreach nick $ionl {lappend ionll [string tolower $nick]}
foreach nick $ntfy_nickstocheck {
if {[lsearch $ionll [string tolower $nick]] == -1} {
lappend iofl $nick
}
}
putlog "NTFY: ONLINE: [join $ionl]"
putlog "NTFY: OFFLINE: $iofl"
}
bind raw - 303 ntfy_process