Code: Select all
regexp -options { pattern } text -> match
Code: Select all
% set bnick {
"somenick"
"badnick"
{b[ae]dw[o0]rd}
}
"somenick"
"badnick"
{b[ae]dw[o0]rd}
% set nick "bedw0rd"
bedw0rd
% foreach i $bnick { puts [string match -nocase *$i* $nick] }
0
0
1
Code: Select all
if {![matchattr [nick2hand $nick] $vCapsFlagsAllow $chan]} {