Problem adding users

[[Nero]]

Hi Everyone
ive found this piece of tcl that should when a users posts a url in the channel should add them to the userlist of the bot but for somereason it doesnt, the rest of the script seems to work fine except this bit can anyone help plz

Many thanx

proc msg_post_site {nick uhost handle arg} {
global botnick listchannel templist lasttempsite isopen CHECKIP

set who [nick2hand $nick $liztchannel]
set mask [maskhost $uhost]
if {($handle == "*") && (![validuser $nick]) && ($mask != "*")} {
adduser $nick $mask
chattr $nick "-ofxp"
chattr $nick "+0"
setuser $nick XTRA "0 0 0 0 0"
set handle $nick
save
} elseif {[validuser $nick]} {
set ustatus [getuser $nick XTRA]
if {$ustatus == ""} {
chattr $nick "+0"
setuser $nick XTRA "0 0 0 0 0"
save
} elseif {[llength $ustatus] < 5} {
chattr $nick "+0"
setuser $nick XTRA "$ustatus 0"
save

[ppslim]

A couple of things, that script doesn't look complete

There is no bind, and a bracket is at least two brackets missing at the end.

It looks pretty much up the wall, and has no definate pattern to what it should be doing.

[[Nero]]

Thanx ppslim
This is only a snippet from the script as it would be too large to post.
The Bind & Close Brackets that are missing are in the script though.

perhaps i could pm you the whole subroutine if that would help

many Thanx

[ppslim]

Uploading to some form of web-space, and posting the link would be better.

[[Nero]]

Thanx Again

I have now posted the subroutine at ..

http://www.andmargroup.co.uk/subroutine.txt

Thank you for your help