Help With Matching A Host To A Nickname

[CoMMy]

I need a script that will match a host given by a user to a nickname in a channel.

Can you help ?

[Aron]

Code: Select all

proc checkuser {nick host hand chan arg} {
  set check_host [lindex [split $arg] 0]
  foreach user [chanlist $chan] {
     if {[string match -nocase $check_host [getchanhost $user $chan]]} {
        putserv "NOTICE $nick :$check_host matches $user ([getchanhost $user $chan])"
        break
     }
  }
}

....or something like that. I hope that helps.

[CoMMy]

foreach user [userlist] {
if {[matchattr $user b]} {
if {[string match -nocase $who [getuser $user HOSTS]]} {
putnotc $nick "Will Never Ban A Bot."
return 0 }}}

This doesnt work. I input a bots host and it doesnt stop here.
It goes on.

[user]

foreach user [userlist] {
if {[matchattr $user b]} {
if {[string match -nocase $who [getuser $user HOSTS]]} {
putnotc $nick "Will Never Ban A Bot."
return 0 }}}

What are you trying to do? 'userlist b' would list all the bots. (no need for that matchattr) Is $who a host or a hostMASK? [getuser handle HOSTS] returns a list, so you probably want to loop through that list and do some matching with each element... OR would 'finduser' (tcl-commands.doc) get the job done?

[CoMMy]

Let me explain,

$who is the host given by the person activating the proc.
for example host *!*@something.com

I want the bot to scan and match that host with any bot having the flags +b and return 0 if it does. If it doesnt, scan all channels,all nicknames and look if anyone matches the host and if it does ban him/her.

This is basically what i want.

[CoMMy]

Anyone Can Help Please ???

[CoMMy]

string match -nocase "*$ban*" $userhost
doesn't work.

If a user gives a command like !banhost *!*@someone.com the bot searches the userlist and tries to match that ban. But if a user has
*!someone@someone.com the bot DOESN'T match it.

Any ideas on who to make this work ?

[CoMMy]

Ok, I found A Way After Many Many Tries !!!