getting user's host

[entrapmen]

hi i m writing a script for a kind of spammer which spam's by using away messages. there is a bot on my channel which messages all users. i make something like that:

Code: Select all

set kanal "#achan"

proc ctrl:filter {str} {
  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
  return $str
}

bind RAW * 301 away:gor
proc away:gor { from key msg } {
	global kanal
			set msg [ctrl:filter $msg]
	if {[regexp (www) $msg] || [regexp (.net) $msg] || [regexp (.com) $msg] || [regexp (http://) $msg]} {		
	putlog "RAW: $from | $key | $msg "
							}
					}

putlog "RAW: $from | $key | $msg" gives out something like that
RAW: soho-r.ix.us.dal.net | 301 | helebe aquil :www.
helebe is bots name. aquil is the spammer. www. is away message.
i want to get aquil's host name with in that script. and then ban it.
im not pro on tcl
i think i m gonna use hand2nick but how and with which commands?

if someone show me the way i ll be glad.

[Ofloo]

why don't u just use getchanhost..

getchanhost <nickname> [channel]

Returns: user@host of the specified nickname (the nickname is not included in the returned host). If a channel is not specified, bot will check all of its channels. If the nickname is not on the channel(s), "" is returned.

Module: irc

hand2nick = works only when its a known user..

[metroid]

you know how to use regsub and regexp but you dont know about getchanhost?

/me blinks

[awyeah]

Well yeah, you can use string match here, since you are doing basic matching with regexp and string match can do it faster.

And you don't need the ctrl:filter to filter out control codes anymore, because if you are using eggdrop1.6.17 it has a stripcodes function. See the "stripcodes" function in the tcl-commands.doc file.

[user]

you know how to use regsub and regexp

No, he doesn't.

[regexp (.net) $msg] || [regexp (.com) $msg]

I doubt they do what he expects.
And the ctrl:filter thing is not perfect and probably borrowed from ppslim