Code:

set ntfy_nickstocheck {EngineerDeveloperTesterMapherick}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