problem with bind mode

[matteo310]

Hi all... i have a problem and do not exactly understand what's happening...

Here are extracts from my script:

Code: Select all

bind mode "-" "*" modes_say

proc modes_say {nick uhost hand chan mode victim} {
...
}

Now whenever I try to intercept a +something (like +o +v...) it works flawlessly...

But when en - someting is issued (-v -o...) I get:

[19:13] Tcl error [modes_say]: bad option "-o": must be -exact, -glob, -regexp, or --

in the logs.

Any ideai ?

[TALES]

Code: Select all

bind mode - * modes_say

bind mode <flags> <mask> <proc>

could be anything dont see what the proc is ??

[matteo310]

puting

Code: Select all

bind mode "-" "*" modes_say

or

Code: Select all

bind mode - * modes_say

doesn't change anything...
But the thing is it works for the + modes and not for the - ones... I don't get why.

[egghead]

puting

Code: Select all

bind mode "-" "*" modes_say

or

Code: Select all

bind mode - * modes_say

doesn't change anything...
But the thing is it works for the + modes and not for the - ones... I don't get why.

You likely have an [lsearch] inside your proc. The minus sign of the "-o" is seen as the start of an option definition. However, "o" is not an option and so Tcl complains.

That is why there is [lsearch --]. The "--" says that no options will follow after the "--". Any following minus sign should be treated as such and not as the start of an option.

[matteo310]

well actually there is no lsearch in my proc... here is my proc:

Code: Select all

proc modes_say {nick uhost hand chan mode victim} {
        if {[isbotnick $victim]} {
                switch $mode {
                        "+o" {
                        putserv "PRIVMSG $chan :Merci $nick !"
                        }
                        "-o" {
                        putserv "PRIVMSG $chan :$nick:..."
                        }
                }
        } else {
                if {[isbotnick $nick]} {
                        switch $mode {
                                "+o" {
                                putserv "PRIVMSG $chan :$victim: ..."
                                }
                                "-o" {
                                putserv "PRIVMSG $chan :$victim: ..."
                                }
                        }
                } else {
                        switch $mode {
                                "+o" {
                                putserv "PRIVMSG $chan :$nick: ..."
                                }
                                "-o" {
                                putserv "PRIVMSG $chan :$nick: ..."
                                }
                        }
                }
        }
}

I get the message
Tcl error [modes_say]: bad option "-v": must be -exact, -glob, -regexp, or --
although I am not supposed to treat the -v case... this is very odd to me.

[egghead]

well actually there is no lsearch in my proc... here is my proc:

Code: Select all

[snip]
switch
[snip]

I get the message
Tcl error [modes_say]: bad option "-v": must be -exact, -glob, -regexp, or --
although I am not supposed to treat the -v case... this is very odd to me.

Same applies to [switch].

http://www.tcl.tk/man/tcl8.4/TclCmd/switch.htm

[matteo310]

ok thanks a lot ! I now works !