one command all channels

[caesar]

Code: Select all

set controlChan "#123"
bind pub * .all pub:all

proc 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"
   }
}

[true_life]

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

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

[speechles]

Code: Select all

# main control channel
set controlChan "#123"
# flags required
# global|channel
set controlFlags "o|o"

# create bind using flags and chan
bind pubm $controlFlags "$controlChan .all *" pub:all

proc 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"
   }
}

[true_life]

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

[Madalin]

Try this

Code: Select all

# main control channel
set controlChan "#123"
# flags required
# global|channel
set controlFlags "o|o"

# create bind using flags and chan
bind pubm $controlFlags "$controlChan .all *" pub:all

proc 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"
	}
}

[true_life]

working fine except.. posting 2 replies.

i did,

.all testing final.


reply,

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

[Madalin]

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

Set text [join ......]

[speechles]

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: Select all

# main control channel
set controlChan "#123"
# flags required
# global|channel
set controlFlags "o|o"

# create bind using flags and chan
bind pubm $controlFlags "$controlChan .all *" pub:all

proc 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.

[caesar]

Code: Select all

set controlChan "#123"
bind pub * .all pub:all

proc pub:all {nick uhost hand channel text} {
   if {![string match -nocase $channel $::controlChan]} return
	set channels [channels]
	set pos [lsearch -nocase $channels $::controlChan]
	set channels [lreplace $channels $pos $pos]
	foreach chan $channels {
		if {![botonchan $chan]} continue
		puthelp "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.

[Madalin]

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: Select all

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

[caesar]

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: Select all

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.