Untitled

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