alltools.tcl contains buggy ispermowner

[cmouse]

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

[ppslim]

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

Code: Select all

set owner "MrLame, MrsLame"