alltools.tcl contains buggy ispermowner

2003-04-22T07:58:13-04:00

This only happens when users deviate from the example given in the config file.

Code:

set owner "MrLame, MrsLame"

Statistics: Posted by ppslim — Tue Apr 22, 2003 7:58 am

alltools.tcl contains buggy ispermowner

2003-04-22T07:45:30-04:00

The ISPERMOWNER that comes with the bot (v. 1.6.13):

proc ispermowner {hand} {
global owner

regsub -all -- , [string tolower $owner] "" owners
if {([matchattr $hand n]) && \
([lsearch -exact $owners [string tolower $hand]] != -1)} then {
return 1
}
return 0
}

the regsub line is buggy, it should be
regsub -all -- , [string tolower $owner] " " owners

The current form causes the string to become
"owner1owner2owner3" in some cases.

I suggest this change:
regsub -all -- , [string tolower $owner] " " owners
regsub -all -- {[ ]+} $owners " " owners

Statistics: Posted by Guest — Tue Apr 22, 2003 7:45 am

egghelp/eggheads community

alltools.tcl contains buggy ispermowner

alltools.tcl contains buggy ispermowner