Code: Select all
bind raw - 330 raw:330
proc raw:330 {from key arg} {
#To have the nick, [lindex $arg 1]
#To have the login, [lindex [split $arg] 2]
}
Code: Select all
proc splitwords {string} {
set return ""
foreach word [regexp -inline -all -- {\S+} $string] {
lappend return $word
}
return $return
}