egghelp/eggheads community

one command all channels

2013-05-15T09:48:45-04:00

The foreach loop would execute that if statement n times (that represents the number of elements in the [channels] result), so this translates into executing that if statement 15 times, when could easily avoid that by those 3 lines that removes the control channel from the list.

The:

Code:

if {$chan != $chn} { ... }

is a bad idea to compare two strings like that. You should at least make both lower/higher case first, or better use string match -nocase that doesn't care if the two strings are lower/higher case.

Statistics: Posted by caesar — Wed May 15, 2013 9:48 am

one command all channels

2013-05-15T05:22:28-04:00

Instead of

set channels [channels]
set pos [lsearch -nocase $channels $::controlChan]
set channels [lreplace $channels $pos $pos]

i would really just use (thats why i dont use lsearch that much)

Code:

if {$chan != $chn} { ... }

Statistics: Posted by Madalin — Wed May 15, 2013 5:22 am

one command all channels

2013-05-15T00:53:46-04:00

Code:

set controlChan "#123"bind pub * .all pub:allproc pub:all {nick uhost hand channel text} {   if {![string match -nocase $channel $::controlChan]} returnset channels [channels]set pos [lsearch -nocase $channels $::controlChan]set channels [lreplace $channels $pos $pos]foreach chan $channels {if {![botonchan $chan]} continueputhelp "PRIVMSG $chan :$text"}}

There. Now it should send that message to all channels except the control one. You should restart the bot as some binds aren't removed by a rehash.

Statistics: Posted by caesar — Wed May 15, 2013 12:53 am

one command all channels

2013-05-14T18:36:34-04:00

working fine except.. posting 2 replies.

i did,

.all testing final.

reply,

[03:29:20] <+bot1> test final
[03:29:22] <+bot1> final

You need to .restart your bot. Multiple binds are tiggering now causing that repeat. Both the pub and pubm are surely loaded. The text is being correctly removed from the "pubm" bind, but the "pub" bind is having the first word removed incorrectly. This is evidence that indeed, you have not .restart'ed your bot.

Code:

# main control channelset controlChan "#123"# flags required# global|channelset controlFlags "o|o"# create bind using flags and chanbind pubm $controlFlags "$controlChan .all *" pub:allproc pub:all {nick uhost hand chan text} {   # pubm binds pass entire text, remove .all at front   set text [join [lrange [split $text] 1 end]]   # iterate channels   foreach ch [channels] {      # if bot isn't on channel or channel is control channel, skip      if {![botonchan $ch] || [string equal $ch $::controlChan]} continue      # otherwise, issue text to the channel      puthelp "PRIVMSG $ch :$text"   }}

Use the code as is and it works. Make sure to .restart before you do so to "clean" the binds out.

Statistics: Posted by speechles — Tue May 14, 2013 6:36 pm

one command all channels

2013-05-14T18:33:17-04:00

I was just reparing the bracelet missing... to solve that remove following line

Set text [join ......]

Statistics: Posted by Madalin — Tue May 14, 2013 6:33 pm

one command all channels

2013-05-14T18:30:32-04:00

working fine except.. posting 2 replies.

i did,

.all testing final.

reply,

[03:29:20] <+bot1> test final
[03:29:22] <+bot1> final

Statistics: Posted by true_life — Tue May 14, 2013 6:30 pm

one command all channels

2013-05-14T17:59:19-04:00

Try this

Code:

# main control channelset controlChan "#123"# flags required# global|channelset controlFlags "o|o"# create bind using flags and chanbind pubm $controlFlags "$controlChan .all *" pub:allproc pub:all {nick uhost hand chan text} {# pubm binds pass entire text, remove .all at frontset text [join [lrange [split $text] 1 end]]# iterate channelsforeach ch [channels] {# if bot isn't on channel or channel is control channel, skipif {![botonchan $ch] || [string equal $ch $::controlChan]} continue# otherwise, issue text to the channelputhelp "PRIVMSG $ch :$text"}}

Statistics: Posted by Madalin — Tue May 14, 2013 5:59 pm

one command all channels

2013-05-14T17:33:00-04:00

Tcl error [pub:all]: missing close-bracket

Statistics: Posted by true_life — Tue May 14, 2013 5:33 pm

one command all channels

2013-05-14T16:03:13-04:00

Code:

# main control channelset controlChan "#123"# flags required# global|channelset controlFlags "o|o"# create bind using flags and chanbind pubm $controlFlags "$controlChan .all *" pub:allproc pub:all {nick uhost hand chan text} {   # pubm binds pass entire text, remove .all at front   set text [join [lrange [split $text] 1 end]]   # iterate channels   foreach ch [channels] {      # if bot isn't on channel or channel is control channel, skip      if {![botonchan $ch] || [string equal $ch $::controlChan} continue      # otherwise, issue text to the channel      puthelp "PRIVMSG $ch :$text"   }}

Statistics: Posted by speechles — Tue May 14, 2013 4:03 pm

one command all channels

2013-05-14T15:15:38-04:00

its replying on all channel! including the 'main channel' twice!

and it has no o|o status so anyone can use it

Statistics: Posted by true_life — Tue May 14, 2013 3:15 pm

one command all channels

2013-05-14T14:48:10-04:00

Code:

set controlChan "#123"bind pub * .all pub:allproc pub:all {nick uhost hand channel text} {   if {![string match -nocase $channel $::controlChan]} return   foreach chan [channels] {      if {![botonchan $chan]} continue      puthelp "PRIVMSG $chan :$text"   }}

Statistics: Posted by caesar — Tue May 14, 2013 2:48 pm

one command all channels

2013-05-14T12:53:48-04:00

Tcl error [pub:all]: can't read "chn": no such variable

Statistics: Posted by true_life — Tue May 14, 2013 12:53 pm

one command all channels

2013-05-14T12:27:08-04:00

same! + the both lines above are same to.

Statistics: Posted by true_life — Tue May 14, 2013 12:27 pm

one command all channels

2013-05-14T12:15:53-04:00

Modify

Code:

puthelp "PRIVMSG $chan :$text"

with

Code:

puthelp "PRIVMSG $chn :$text"

Statistics: Posted by Madalin — Tue May 14, 2013 12:15 pm

one command all channels

2013-05-14T12:06:48-04:00

instead of replying to other channels, it is replying to the same channel.

Statistics: Posted by true_life — Tue May 14, 2013 12:06 pm