egghelp/eggheads community

Dynamic binds...

2011-01-27T09:12:41-04:00

it's not a best solution, but i'll try it, thanks

Statistics: Posted by FallFromGrace — Thu Jan 27, 2011 9:12 am

Dynamic binds...

2011-01-27T06:41:27-04:00

i have tried to do such thing:
Code:
set x "first"bind pub - ".$x" {$x $_pub1 $_pub2 $_pub3 $_pub4 $_pub5; #}set x "second"bind pub - ".$x" {$x $_pub1 $_pub2 $_pub3 $_pub4 $_pub5; #}set x "third"bind pub - ".$x" {$x $_pub1 $_pub2 $_pub3 $_pub4 $_pub5; #}
But it doesnt work too! It binds all of these commands to ".third". How can i fix it?

How is that anything like I showed you. Those { } braces suppress execution of substitution. Until the time the bind is triggered and processed, at that point the last value of $x will be used. This is why only the last entry for you works. Stop using that bind...{ } method. Use like I have below:

Code:

# init rs as a list for testingset [list "first" 1 "second" 2 "third" 3]foreach {cmd priv} $rs {      if {$priv < 2} {         bind pub - ".$cmd" [list "$cmd" pub]      } elseif {$priv > 0} {         bind msg - ".$cmd" [list "$cmd" msg]      }}proc first {type nick uhost hand chan {text ""}} {  # type = msg, rearrange arguments  if {[string equal "msg" $type]} { set text $chan ; set chan $nick }  putlog "first"}proc second {type nick uhost hand chan {text ""}} {  # type = msg, rearrange arguments  if {[string equal "msg" $type]} { set text $chan ; set chan $nick }  putlog "second"}proc third {type nick uhost hand chan {text ""}} {  # type = msg, rearrange arguments  if {[string equal "msg" $type]} { set text $chan ; set chan $nick }  putlog "third"}

Statistics: Posted by speechles — Thu Jan 27, 2011 6:41 am

Dynamic binds...

2011-01-27T06:22:23-04:00

i have tried to do such thing:

Code:

set x "first"bind pub - ".$x" {$x $_pub1 $_pub2 $_pub3 $_pub4 $_pub5; #}set x "second"bind pub - ".$x" {$x $_pub1 $_pub2 $_pub3 $_pub4 $_pub5; #}set x "third"bind pub - ".$x" {$x $_pub1 $_pub2 $_pub3 $_pub4 $_pub5; #}

But it doesnt work too! It binds all of these commands to ".third". How can i fix it?

Statistics: Posted by FallFromGrace — Thu Jan 27, 2011 6:22 am

Dynamic binds...

2011-01-26T21:09:34-04:00

Code:

foreach {cmd priv} $rs {      if {$priv < 2} {         bind pub - ".$cmd" [list "$cmd" pub]      } elseif {$priv > 0} {         bind msg - ".$cmd" [list "$cmd" msg]      }}proc first {type nick uhost hand chan {text ""}} {  # type = msg, rearrange arguments  if {[string equal "msg" $type]} { set text $chan ; set chan $nick }  putlog "first"}proc second {type nick uhost hand chan {text ""}} {  # type = msg, rearrange arguments  if {[string equal "msg" $type]} { set text $chan ; set chan $nick }  putlog "second"}proc third {type nick uhost hand chan {text ""}} {  # type = msg, rearrange arguments  if {[string equal "msg" $type]} { set text $chan ; set chan $nick }  putlog "third"}

This will work. Since some of your commands also have empty text field. Let's simply add a "type" to each bind that signifies to the procedures which has invoked it. Simple.

Statistics: Posted by speechles — Wed Jan 26, 2011 9:09 pm

Dynamic binds...

2011-01-26T20:03:20-04:00

"proc first" is a sample, i have another names for procedures =)

I can't use your way to check $text == "", some of my commands should work both with text and without it.

Any way, "bind pub - ".$cmd" {$cmd $_pub1 $_pub2 $_pub3 $_pub4 $_pub5; #}" - won't work. As I said, it will only bind the last proc.

I think it's a special block of code, and I can't just write "$cmd" there.

Statistics: Posted by FallFromGrace — Wed Jan 26, 2011 8:03 pm

Re: Dynamic binds...

2011-01-26T18:35:59-04:00

proc frist {nick uhost hand chan text} {

To start off, you do not have a "first" procedure. It's actually frist.

And secondly, why don't you do it this way?
This makes it easier for pub and msg to use the same procedure. Based on the amount of args passed the procedure can reform it's arguments to make commands easier. If it's a private message $chan will become their $nick. This makes it easier to script events as you only need to remember 1 place to send replies, $chan. Rather than guessing whether it was a pub or msg bind passed to each procedure. This way removes the guessing.

Code:

foreach {cmd priv} $rs {      if {$priv < 2} {         bind pub - ".$cmd" $cmd      } elseif {$priv > 0} {         bind msg - ".$cmd" $cmd      }}proc first {nick uhost hand chan {text ""}} {  # no text = msg, rearrange arguments  if {![string length $text]} { set text $chan ; set chan $nick }  putlog "first"}proc second {nick uhost hand chan {text ""}} {  # no text = msg, rearrange arguments  if {![string length $text]} { set text $chan ; set chan $nick }  putlog "second"}proc third {nick uhost hand chan {text ""}} {  # no text = msg, rearrange arguments  if {![string length $text]} { set text $chan ; set chan $nick }  putlog "third"}

Your code corrected would look like this, #comments denote the fixes.

Code:

foreach {cmd priv} $rs {      if {$priv != 2} {         bind pub - ".$cmd" {$cmd $_pub1 $_pub2 $_pub3 $_pub4 $_pub5; #}      } elseif {$priv != 0} {         # pass the nickname as the channel, makes messaging easier         bind msg - ".$cmd" {$cmd $_msg1 $_msg2 $_msg3 $_msg1 $_msg4; #}      }}# corrected mispelling of firstproc first {nick uhost hand chan text} {  putlog "first"}proc second {nick uhost hand chan text} {  putlog "second"}proc third {nick uhost hand chan text} {  putlog "third"}

Either should work equally the same.

Statistics: Posted by speechles — Wed Jan 26, 2011 6:35 pm

Dynamic binds...

2011-01-27T06:04:08-04:00

I have a commands stored in mysql database. I want to bind them dynamically.

There is no problem if i do this:

Code:

set rs [mysqlsel $sql "SELECT command, private FROM commands " -flatlist]# f.e. rs = "first 1 second 1 third 1"# my commands starts with a dot# priv is a switch (0 = channel only, 1 = both, 2 = private only)foreach {cmd priv} $rs {if {$priv != 2} {bind pub - ".$cmd" $cmd} elseif {$priv != 0} {bind msg - ".$cmd" priv:$cmd}}proc first {nick uhost hand chan text} {  if {$text == ""} {    putlog "first" } else {    putlog "first, text = $text" }}proc second {nick uhost hand chan text} {  if {$text == ""} {    putlog "second" } else {    putlog "second, text = $text" }}proc third {nick uhost hand chan text} {  if {$text == ""} {    putlog "third" } else {    putlog "third, text = $text" }}proc priv:first {nick uhost hand text} {  if {$text == ""} {    putlog "first" } else {    putlog "first, text = $text" }}proc priv:second {nick uhost hand text} {  if {$text == ""} {    putlog "second" } else {    putlog "second, text = $text" }}proc priv:third {nick uhost hand text} {  if {$text == ""} {    putlog "third" } else {    putlog "third, text = $text" }}

But i have read a thread about binding private and channel commands to the same proc: http://forum.egghelp.org/viewtopic.php?t=11796

And i want to make it work:

Code:

foreach {cmd priv} $rs {if {$priv != 2} {bind pub - ".$cmd" {$cmd $_pub1 $_pub2 $_pub3 $_pub4 $_pub5; #}} elseif {$priv != 0} {bind msg - ".$cmd" {$cmd $_msg1 $_msg2 $_msg3 "" $_msg4; #}}}proc first {nick uhost hand chan text} {  if {$text == ""} {    putlog "first" } else {    putlog "first, text = $text" }}proc second {nick uhost hand chan text} {  if {$text == ""} {    putlog "second" } else {    putlog "second, text = $text" }}proc third {nick uhost hand chan text} {  if {$text == ""} {    putlog "third" } else {    putlog "third, text = $text" }}

Bot binds ".first", ".second" and ".third" commands to a last bind (proc third), and i only see "third" as an universal answer for an all of these commands.

I think, there is something wrong with my syntax.

Statistics: Posted by FallFromGrace — Wed Jan 26, 2011 6:21 pm