proc regchan_handle_msg {nick host hand arg} {
  global modesArray botnick
  if {[matchattr $nick R]} {
    if {[llength $arg] >= 2} {
      if {[ischan [lindex $arg 0]]} {
        if {[regchan [lindex $arg 0] [join [lrange $arg 1 end]]]} {
          putserv "NOTICE $nick :Registering channel [lindex $arg 0]."
        } else {
          putserv "NOTICE $nick :Was unable to register channel [lindex $arg 0]."
        }
      }
    } else {
      putserv "NOTICE $nick :Invalid arguments. /msg $botnick help register"
    }
  } else {
    putserv "NOTICE $nick :blabla you need to be identified..."
  }
}