big "string match" problem

[misterys]

Hi,

the script is working, but not like i want

i bind the servers' connection notice and split it

so far so good , but it's not enough to check just
if ident matches the list.
i think best way is to check is, if one part of the nickname and the realname or ident is on the list,
but how to do this?
if i use

Code: Select all

if { [string match $[censored] $ident ] && [string match $[censored] $nick] } {

nothing is working anymore.
maybe there is a way to do this without using "string match" ?



sorry for my bad english
and thanks for help
misterys

[awyeah]

Well you can match everything using string match and lsearch as both are almost the same however for lists using lsearch is better and faster and does not require you adding a foreach loop for each element in the list.


LIST MATCHING (LSEARCH)

Code: Select all

#Set your nicklist
set nicklist "awyeah junior jumbo ariel maxy mike"

#Set your identlist
set identlist "user pro smoke dark evil devil child satan"

#For list matching the 'nick' in the nicklist
if {([lsearch -exact [split [string tolower $nicklist]] [string tolower $nick]] != -1)} { 

#For list matching the 'ident' in the identlist
if {([lsearch -exact [split [string tolower $identlist]] [string tolower [lindex [split $uhost "@"] 0]]] != -1)} { 

You can also do that with string match.


STRING MATCHING (STRING MATCH)

Code: Select all

#Set your nicklist
set nicklist { "awyeah" "junior" "jumbo" "ariel" "maxy" "mike" }

#Set your identlist
set identlist { "user" "pro" "smoke" "dark" "evil" "devil "child" satan" }

#For string matching the 'nick' in the nicklist
foreach newnick $nicklist
if {([string match -nocase *$newnick* $nick])} {

#For string matching the 'ident' in the identlist
foreach newident $identlist
if {([string match -nocase *$newident* [lindex [split $uhost "@"] 0]])} {

You can do the realname one in the same way as I just mentioned either use string match or lsearch. For the realname one check this thread out, it is an entire script related to it.

http://forum.egghelp.org/viewtopic.php?t=8248

[misterys]

thanks a lot - I-WORM / Mymoon sucks