auth script

[NewzUK]

Hi

I have this little script which auth's to X chan services bot when I msg it to do so, but I'd like it to do it itself when it connects...

bind msg m|m auth auth

proc auth {nick host hand args} {
putserv "NOTICE $nick : I have authed to X"
putserv "PRIVMSG X :authop #NewsRoom BotNick password"
return 0
}

putlog "Auth loaded"

can this be done with this script?
Thanks.

[Sir_Fz]

Why don't you try it before you ask ?

also I suggest replacing args with arg (in the proc), because args has a special meaning in TCL (I don't know what it is :p)

[egghead]

[snip]
also I suggest replacing args with arg (in the proc), because args has a special meaning in TCL (I don't know what it is :p)

If the number of arguments when calling a procedure is variable, one can use the keywords "args". This will be a list with thearguments:

Code: Select all

proc variableargument { args } {
   puts "CALL with [llength $args] arguments"
   set argcount 0
   foreach argument $args {
      incr argcount
      puts "ARG $argcount: $argument"
   }
}

# call proc with 0 arguments
variableargument

# call proc with 1 argument
variableargument hello

# call proc with 2 arguments
variableargument hello world

results in

CALL with 0 arguments
CALL with 1 arguments
ARG 1: hello
CALL with 2 arguments
ARG 1: hello
ARG 2: world

[Sir_Fz]

ok thanx again User

much appreciated.