Code: Select all
proc bmaskhost {uhost} {
return "*!*@[lindex [split $uhost @] 1]"
}
Code: Select all
set chan [string tolower $chan]
Code: Select all
bind pub -|- .command pub:dscmd
Code: Select all
bind part - "#channel *" part_chan1
proc part_chan1 {nick uhost hand channel {msg ""}} {
putserv "notice $nick :bla bla bla msg bla bla bla"
}