tcl request

[bobjuh]

What error are you receiving now?

If I remember, I will have a look in detail tonight to resolve this

ppslim ?

[ppslim]

I had actayly done some code for this, on the night in question, but more important things came up, and I never got around to clicking submit. (more important things ended in a power outage )

However, here is some code that will return a list of +o's for a channel. This will not return users that have +m or +n.

Code: Select all

proc returnops {chan} {
  set a {}
  foreach b [userlist] {
    if {([matchattr $b |o $chan]) && (![matchattr $b |n $chan]) && (![matchattr $b |m $chan])} {
      lappend a $b
    }
  }
  return $a
}

As stated, it returns a list, from which, you can perform your own formatting.

Code: Select all

set ops "OP's: [string trimright [join [returnops $channel] ", "] ", "]"

From this, you can create 2 smaller functions that will do the same for owners and masters.

[bobjuh]

I had actayly done some code for this, on the night in question, but more important things came up, and I never got around to clicking submit. (more important things ended in a power outage )

However, here is some code that will return a list of +o's for a channel. This will not return users that have +m or +n.

Code: Select all

proc returnops {chan} {
  set a {}
  foreach b [userlist] {
    if {([matchattr $b |o $chan]) && (![matchattr $b |n $chan]) && (![matchattr $b |m $chan])} {
      lappend a $b
    }
  }
  return $a
}

As stated, it returns a list, from which, you can perform your own formatting.

Code: Select all

set ops "OP's: [string trimright [join [returnops $channel] ", "] ", "]"

From this, you can create 2 smaller functions that will do the same for owners and masters.

Oke thank you i will see if this works