getting problem with matching pattern.

[honeybee]

Hey,
I'm again stuck with a part of my tcl.
i m trying to get info from userlist and matchin it with the $uhost and if it doesnt match do something. I don't think i m doing it correctly.

Code: Select all

foreach user [userlist ] {
  foreach host [getuser $user hosts] {
     if {![string match -nocase $host $uhost]} { do something }

[demond]

$uhost means user@host, i.e. no nick; whereas userfile record's HOSTS list is interpreted as consisting of full hostmasks, i.e. nick!user@host

so you need to use *!$uhost instead of $uhost

or use [finduser]

[honeybee]

well, i cant use [finduser] cause i want to match *!@$uhost against all the hosts of particular flag let it be +f like [userlist f|f $chan] or something. and if that nick is a validuser [validuser $nick] and his/her *!@$uhost doesnt match with our particular flag's host { do soemthing }, thats what i want to do.

[honeybee]

any help please?

[De Kus]

hosts are not "user.domain.com" but "*!*@user.domain.com" therefore you need to at least match against "!$uhost". Without ! there will be no match. And if you want to completly ignore any possible entries in host for idents then split them off using [lindex [split $host @] 1].

[honeybee]

Ok fine, [lindex [split $uhost @] 1] will return with the host and then i match it with the

Code: Select all

set host "[lindex [split $uhost @] 1]"
foreach user [userlist o] {
foreach userhost [getuser $user hosts] {![string match -nocase $userhost $host]} { do something }

and i aslo want to ask foreach user [userlist o] { putlog "[getuser $user hosts]"} it returns hosts of the respective flags, is it a string or something or should i use it in "" here

![string match -nocase "$userhost" $host]

[De Kus]

your quoted line will most likely never be compiled because
a) foreach uses 3 arguments only
b) there is no function called 0 or 1 (you are missing some conditional structure)

PS: you still have a string match that will never be true, because the pattern contains string parts that $host can never ever have.

Edit: then you will get the split string match line as addionatl list elements @_o

[Sir_Fz]

a) foreach uses 3 arguments only

Not necessarily:

NAME

foreach - Iterate over all elements in one or more lists

SYNOPSIS

foreach varname list body
foreach varlist1 list1 ?varlist2 list2 ...? body

[honeybee]

Ok thanks i did it myself.