Help with List Command

[tonyokc]

There are times I need to op all users with the o flag, so I can check the remaining

I have a routine to do it, but it fails on nicks with special characters. I know the fix is the "list" command, but I could sure use a bit of help on where to use it

Any help is appreciated

Tony

Code: Select all

# accept .opops <channel> from global n to op all bot known ops
bind dcc n| opops opops

proc opops {h id chan} {
  global botnick
  set members [chanlist $chan]
  putdcc $id $members
  foreach who $members {
  if {![isop $who $chan] && [matchattr [nick2hand $who $chan] o|o $chan] } { lappend opnicks $who }
}
set dumps [expr {[llength $opnicks]  / 6} ]
putdcc $id "op oping $chan"
set i 0
while { $i < [llength $opnicks]} {
    putquick "MODE $chan +oooooo [lrange $opnicks $i [expr {$i + 5} ]]"
    set i [expr {$i +6}]
  }
}

[r0t3n]

No need for the while loop, when you have a foreach loop...

Code: Select all

bind dcc n| opops opops

proc opops {h id chan} {
  global botnick
  set members [chanlist $chan]
  putdcc $id $members
  set opnicks ""
  set dumps 0
  putdcc $id "op oping $chan"
  foreach who $members {
    if {![isop $who $chan] && [matchattr [nick2hand $who] o|o $chan] } { 
      lappend opnicks $who
      incr dumps 1
      if {[llength $opnicks] == "6"} {
        putquick "MODE $chan +oooooo [join $opnicks " "]"
        unset opnicks
      }
    }
  }
  if {[[length $opnicks] >=1} {
    putquick "MODE $chan +[string repeat "o" [llength $opnicks]] [join $opnicks " "]"
    unset opnicks
  }
  set dumps [expr {$dumps  / 6}]
}

Not tested.

[rosc2112]

I have a routine to do it, but it fails on nicks with special characters. I know the fix is the "list" command, but I could sure use a bit of help on where to use it

http://www.peterre.info/characters.html