secure auth tcl

[Leonhart]

I got this secure auth tcl script written by Bommer which works perfectly on eggdrop 1.6.4 but flawed on 1.6.5/1.6.6. It couldn't detect handles on quit
here's the partial code.
Assume $auth_clones=0

*snip*

bind sign - * sign_auth
foreach u [userlist] { setuser $u XTRA auth 0 }
proc sign_auth {nick host hand chan reason} {
global auth_clones

if { $hand == "*" } { return 0 }
set a [getuser $hand XTRA auth]
if { $a >= 1 } {
if { $auth_clones == 1 && [getuser $hand XTRA authnick] != $nick } {
putcmdlog "AUTH: clone signoff ($nick != $hand)"
return 0
}
if { $a == 2 } {
set tmphost "*![getuser $hand XTRA authhost]"
delhost $hand $tmphost
putcmdlog "AUTH: Temporary hostmask $tmphost removed from $hand."
setuser $hand XTRA auth 0
}
}
}

[ppslim]

You claim the script is flawed.

WHat exactly is wrong with it, or what errors do you get?

[Leonhart]

Yeah I can't figure out where is the problem. The script suppose to retrieve record from $hand XTRA auth [host] & delete the hostmask on quit but it won't work. It doesn't output the putcmdlog "AUTH: Temporary hostmask $tmphost removed from $hand." too

The partial script was strip from auth.tcl v1.2 by bommer which can be obtain in slennox's tcl page. Do you want me to paste the whole script here?

[ppslim]

The 2 "if" statments to not check for all values that could be set in $a. This is probably where the problem lies.