channel list

[simonbell]

Hi

is there any way to retrieve a list of channels a user has access in from the userfile in the same way that information can be retrieved using the getuser command. Ive looked through tcl-commands.doc and it appears i can only check whether a user is on the access list of each channel individually.

thanks
Simon

[tainted]

Try a foreach statement with that. Might not be exactly what you are looking for, but should do the trick none the less.

[ppslim]

You would have to do them individualy.

However, the foreach can be used to loop through them like this.

somthing like

Code: Select all

proc chanaccess {hand} {
  set a [list]
  foreach ch [channels] {
    switch -- [chattr $hand {} $ch] {
      "*" { return -1 }
      default { lappend a $ch }
    }
  }
  return $a
}

That will return a list of channels that a user has flags on. If the user does not exist, it returns -1.

It can be quicly addapted to check for certain flags.

It all depends what you constitute as access.

[simonbell]

Hi, thanks, access to the channel in this case would mean having either of following flags for the specific channel.

n m o l v

how would the script be modified to accomodate this?

thanks
Simon

[simonbell]

Actually, i just implemented that script which im guessing would work with any channel or global flags at all, so i added a user with no global or channel flags, and tried the script on that person. However, the script appears to add a channel to the user and then tells me that the user has access in it.

ie. Before the command

<H4> bob yes 0 - never (nowhere )
<H4> EMAIL: a@b.com

after the command:

<H4> bob yes 0 - never (nowhere )
<H4> #VoiceNET - never
<H4> EMAIL: a@b.com

Simon.

[simonbell]

ok ive actually modified it to do what i want myself:

set a

• foreach ch [channels] {
  if { [matchattr $handle_requested -|nmovl $ch] == 1 } {
  putnotc $nick "$ch"
  }
  }

Thanks for the pointers

Simon