[pub_myaccess]: can't read "out": no such variable

mrleaW · Post by **mrleaW** » Wed Feb 14, 2018 10:05 am

bind pub o|o pub_myaccess

proc pub_myaccess {nick uhost hand chan arg} {
 set thehand [lindex $arg 0]
 if {$thehand == ""} {set thehand $hand}
 foreach c [channels] {
  if {[matchattr $thehand -|N $chan] == 1} {lappend out [join "${c}:Owner [getchaninfo $thehand $chan]" " "]}
  if {[matchattr $thehand -|C $chan] == 1 && [matchattr $thehand -|N $chan] != 1} {lappend out [join "${c}:Master [getchaninfo $thehand $chan]" " "]}
  if {[matchattr $thehand -|M $chan] == 1 && [matchattr $thehand -|C $chan] != 1 && [matchattr $thehand -|n $chan] != 1} {lappend out [join "${c}:Op [getchaninfo $thehand $chan]" " "]}
  if {[matchattr $thehand -|O $chan] == 1 && [matchattr $thehand -|M $chan] != 1 && [matchattr $thehand -|m $chan] != 1 && [matchattr $thehand -|N $chan] != 1} {lappend out [join "${c}:Peon [getchaninfo $thehand $chan]" " "]}
  if {[matchattr $thehand -|P $chan] == 1 && [matchattr $thehand -|O $chan] != 1 && [matchattr $thehand -|o $chan] != 1 && [matchattr $thehand -|C $chan] != 1 && [matchattr $thehand -|N $chan] != 1} {lappend out [join "${c}:Friend [getchaninfo $hand $chan]" " "]}
  }
  if {$out == ""} {set $out "None."}

  notice $nick "Access list for \002$thehand\002."
  foreach line $out {
   notice $nick "[split $line " "]"
  }
}

Post by **SpiKe^^** » Wed Feb 28, 2018 2:08 pm

Try this slightly modified version of that proc and see what you get...

Code: Select all

bind pub o|o !access pub_myaccess

proc pub_myaccess {nick uhost hand chan arg} {
 set thehand [lindex [split [string trim $arg]] 0]
 if {$thehand eq ""} {  set thehand $hand  }

 if {![validuser $thehand]} {
   puthelp "notice $nick :Invalid handle: $thehand"
   return 0
 }

 foreach c [channels] {
   if {[set cinf [getchaninfo $thehand $c]] ne ""} {  set cinf " - $cinf"  }

   if {[matchattr $thehand -|N $c]} {  lappend out "${c}:Owner$cinf"
   } elseif {[matchattr $thehand -|C $c]} {  lappend out "${c}:Master$cinf"
   } elseif {[matchattr $thehand -|M $c]} {  lappend out "${c}:Op$cinf"
   } elseif {[matchattr $thehand -|O $c]} {  lappend out "${c}:Peon$cinf"
   } elseif {[matchattr $thehand -|P $c]} {  lappend out "${c}:Friend$cinf"  }
 }

 if {[info exists out]} {
   puthelp "notice $nick :Access list for \002$thehand\002."
   foreach line $out {  puthelp "notice $nick :$line  }
 } else {  puthelp "notice $nick :No custom channel flags for \002$thehand\002."  }
}

Post by **caesar** » Thu Mar 01, 2018 1:54 am

Psst! The pub bind is missing the command.

Post by **SpiKe^^** » Thu Mar 01, 2018 9:04 am

Thanks Caesar. Fixed above.

mrleaW · Post by **mrleaW** » Thu Mar 01, 2018 3:56 pm

it works ! thanks alot by now my users can see where they have access.

Thanks to all!