proc raw:invite {host raw msg} {
  set chan [split $msg :]
  set nick [lindex [split $host !] 0]
  if {($nick == "P") || ($nick == "Ali")} {
    channel add $chan {chanmode "+istT-pn"}
    putserv "JOIN [lindex $chan 1]"
  }
}