.boot tcl vs. onwers and vs. permowners

[StelxBG]

hiez Merry Christmas and Happy New Year (in advance) 2 all

I want a tcl with which I can .boot proba .. but not to be able to .boot StelxBG ... where proba is a user added with +n flag .. and StelxBG is perm. owner

< .boot proba
> You can't boot a bot owner.

< .boot StelxBG
> You cannot use this command vs. perm. owners

proba +n
StelxBG +n + .set owners "StelxBG"

[c0d3]
unbind dcc - boot *dcc:boot

bind dcc m boot dcc:boot

proc dcc:boot {hand idx arg} {
set arg [split $arg]

if {[llength $arg] != 0} {
set target [lindex [split [lindex $arg 0] @] 0]
if {$target != "" && [ispermowner $target]} {
putidx $idx "You cannot use this command vs perm owners!"
return 1
}
}
*dcc:boot $hand $idx $arg
}

## from alltools.tcl
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
}
[c0d3]