sending a message to all ops on a channel [Solved]

[jeremie]

I have been writing a script which warns somebody if they say a banned word on a channel.

It sends a warning to that person and I want it to send a private message to all ops on the channel.

I know how to send it as a notice but the ops would rather have it sent to them as a private message.

I have looked in as many places I can think of and not found any solution.

Will somebody please help me with this?

[TCL_no_TK]

Try this

Code: Select all

foreach target [chanlist $dest] {
 if {[isop $target $dest]} {
  puthelp "PRIVMSG $target :$warning"
 }
}

Please set dest to what the #channel_name is, and warning to the message it will send to the ops. You can also make this into a proc by doing.

Code: Select all

proc msg_ops {text} {
 set dest [lindex [split $text] 0]
  set warn [join [lrange [split $text] 1 end]]
   foreach target [chanlist $dest] {
    if {[isop $target $dest]} {
     puthelp "PRIVMSG $target :$warn"
    }
   }; return 1
}

The use msg_ops "#channel some_warning_message" in your script to send a private warning to all ops on the channel. Hope it helps.

[r0t3n]

You're msg_ops proc is bad, you should check the dest syntax correctly, see if the channel is added etc...

Code: Select all

proc msg_ops {channel msg} {
    if {![validchan $channel]} { return }
    if {$msg == ""} { return }
    foreach user [chanlist $channel] {
        if {$user != "" && [isop $user $channel]} {
            puthelp "PRIVMSG $user :[join $msg]"
        }
    }
    return 1
}

[jeremie]

I tried that and it worked perfectly.

Thank you TCL_no_TK and Tosser^^

[awyeah]

You will need this if the bot is op, so it doesn't need to message itself, heh.

Code: Select all

proc msg_ops {channel msg} {
    if {![validchan $channel]} { return }
    if {$msg == ""} { return }
    foreach user [chanlist $channel] {
        if {$user != "" && [isop $user $channel] && ![isbotnick $user]} {
            puthelp "PRIVMSG $user :[join $msg]"
        }
    }
    return 1
}

[jeremie]

I'm not sure how you knew I was trying to work that one out too.

I have added that now and it's even better than before.

Thank you awyeah.