What's Wrong ?

[laidas]

tcl:

Code: Select all

bind pub - hello pub:op
proc pub:op {nick uhost hand args} {
    set chan [string tolower $chan]
    putserv "PRIVMSG chanserv :op $chan $nick"
}

when I Type In Channel "hello" (without "" ) In telnet it responds:

Tcl error [pub:op]: can't read "chan": no such variable

What's wrong ?

[laidas]

oh sorry I saw where's a problem.... :

Code: Select all

proc pub:op {nick uhost hand args [u]chan[/u]} {

[ppslim]

You will find this also fails.

There are two specific reasons for this.

First. Eggdrop sends information to a PUB class bind, using "nick uhost hand chan arg". It is not based on the order you place the names in this list, these are only the names you wish to refer to them as in your script, and eggdrop will allways send the data in the same order regardless.

Second. the variable name "args" has a special meaning in Tcl, and is used in a way, that you can take unlimited arguments to a proc, without error, so you can use variable length argument lists.