problem with qnet.tcl

[MrT]

hi, just downloaded and installed qnet.tcl, and it will auth my bot with q fine when the bot joins but i get an error from it which i believe is part of the function to check it is authed at given intervals...

Code: Select all

bind dcc m auth

set alltimers [timers]

for {set i 0} {$i < [llength $alltimers]} {incr i} {
  set this [lindex $alltimers $i]
  if {[lindex $this 1]=="auth"} {
    killtimer [lindex $this 2]
  }
}

timer 1 auth
proc auth {} {
global authtime regnick password
    putserv "PRIVMSG Q@cserve.quakenet.org :AUTH $regnick $password"
  timer $authtime auth
}

proc do_auth {nick uhost hand chan} {
 global regnick password
 if {$nick != "Q"} {
  return 0
 }
 putserv "MODE $chan +o $nick"
 putserv "PRIVMSG Q@cserve.quakenet.org :AUTH $regnick $password"
 putserv "PRIVMSG Q :OP $chan"
} 

proc auth {hand idx args} {
putserv "PRIVMSG Q@cserve.quakenet.org :AUTH $regnick $password"
}

set init-server {  
putserv "PRIVMSG Q@cserve.quakenet.org :AUTH $regnick $password"
 }

the error i get is:

Tcl error in script for 'timer47':
no value given for parameter "hand" to "auth"

the "timer47" part seems to increment each time the error occurs

i'd be grateful for any help you can offer.

[user]

You have two procs named "auth". The second one will overwrite the first one and that's what's causing this error. Either rename one of the procs (and change the calls to it) or remove the first one and change the argument part of the second one to only contain one argument called "args"

[]Kami[]

If you want script just for auto and seting mode +x, you can use this one:

Code: Select all

bind evnt - init-server my:connect
proc my:connect init-server {
  putquick "PRIVMSG Q@CServe.quakenet.org :AUTH Username Pass"
  putquick "MODE $::botnick +x"
}

Where is username out your username, and where is pass put your pass...

[Sir_Fz]

also in the auth proc, the regnick and password are not called globaly, then the variables won't exist.

[MrT]

thanks guys, much appreciated