How to msg a $list ?

[Real]

Code: Select all

proc pub_admin {nick host hand chan arg} { 
    foreach user [chanlist $chan] { 
      if {[isop $user $chan]} { 
        if {[info exists list]} { 
          append list " $user" 
        } else { 
          set list "$user" 
        } 
        
      } 
    } 
    putserv "PRIVMSG $chan : $list, $nick called for an admin!" 
  } 

Hi, this is the current code I have.
This lets anyone use !admin, so that everybody with op will get higlighted in the channel. (every op-nick is stored in $list )

But my problem is, is there also a way to send everyone a pm, instead of a channel higlight?
So everyone who is in $list, should receive a privmsg, is this possible?

Lots of thanks if you can help me here

[greenbear]

Code: Select all

foreach admin $list { 
  putserv "PRIVMSG $admin : $nick called for an admin!"
}

You might have to split up the list using 'split' (doh)

[caesar]

Also, you should check The Manual for the difference between append and lappend.

[strikelight]

or instead, after your "isop" test, put the line:

Code: Select all

puthelp "PRIVMSG $user :$nick is requesting an admin"

Would be more efficient than looping twice...

[dollar]

Code: Select all

foreach admin $list { 
  putserv "PRIVMSG $admin : $nick called for an admin!"
}

You might have to split up the list using 'split' (doh)

Split a list? Split is for making lists out of strings...

[edit]typo, if => is[/edit]

[greenbear]

you still have to split it up somehow , or it will just spit out the entire list on the first time in that foreach

[puffi]

Further on $list is a string, as he uses append and not lappend So splitting a string is quite ok with me

[strikelight]

either way, redundant to loop twice...