Code:

set outputchan "#whatever"bind raw - NOTICE server:noticesproc server:notices {from keyword text} {  global outputchan      if {[string match -nocase "*client connecting on*" $text]} {        set nick [lindex [split $text] 9]        set hostmask [lindex [split $text] 10]        set connectport [lindex [split $text] 8]        putquick "PRIVMSG $outputchan :\002Local Connect\002: $nick $hostmask on port $connectport"        return 0      }      if {[string match -nocase "*client connecting at*" $text]} {        set nick [lindex [split $text] 8]        set hostmask [lindex [split $text] 9]        set at [lindex [split $text] 6]        set servername [lindex [split $text] 7]        putquick "PRIVMSG $outputchan :\002Connect\002: $nick $hostmask $at \002(\002$servername\002)\002"        return 0      }      if {[string match -nocase "*client exiting:*" $text]} {        set nick [lindex [split $text] 6]        set hostmask [lindex [split $text] 7]        putquick "PRIVMSG $outputchan :\002Local Quit\002: $nick $hostmask"        return 0      }      if {[string match -nocase "*client exiting at*" $text]} {        set nick [lindex [split $text] 8]        set at [lindex [split $text] 6]        set servername [lindex [split $text] 7]        putquick "PRIVMSG $outputchan :\002Quit\002: $nick $at \002(\002$servername\002)\002"        return 0      }}