egghelp/eggheads community

auth script

2003-08-22T09:12:15-04:00

ok thanx again User

much appreciated.

Statistics: Posted by Sir_Fz — Fri Aug 22, 2003 9:12 am

auth script

2003-08-22T11:09:59-04:00

[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:

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 argumentsvariableargument# call proc with 1 argumentvariableargument hello# call proc with 2 argumentsvariableargument 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

Statistics: Posted by egghead — Fri Aug 22, 2003 7:44 am

auth script

2003-08-22T07:23:28-04:00

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)

Statistics: Posted by Sir_Fz — Fri Aug 22, 2003 7:23 am

auth script

2003-08-22T06:56:38-04:00

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.

Statistics: Posted by NewzUK — Fri Aug 22, 2003 6:56 am