Unnamed

proc rawnotice:xaccess {from key rest} {
  if {![info exists ::xaccessnick]} {return} {set nick $::xaccessnick}
  catch {
    if {$from == "X!cservice@undernet.org"} {
      putlog "Notice from $from key($key) rest($rest)"
      #if {[lindex $rest 1] == ":Channel"} {set ::xaccesschan [lindex $rest 2]; putlog "xaccess chan [lindex $rest 2]"}
      if {[lindex [split $rest " "] 3] == "ACCESS:"} {
        puthelp "NOTICE $nick :\0035- X - [access [lrange $rest 3 end]]"
      }
      if {[string first {doesn't appear to be registered} $rest] != -1} {
        puthelp "NOTICE $nick :\0035[lindex $rest 3] isn't registered with X"
      }
      if {[string first {insufficient access} $rest] != -1} {
        putserv "NOTICE $nick :\0035I dont have X access to that channel"
      }
    }
    return 0
  } foo
  if {$foo != 0} {
     putlog "Error in notice:xaccess! ($foo)"
     puthelp "NOTICE $nick :Error in notice:xaccess! ($foo)"
  }
}