egghelp/eggheads community

detecting this pattern with regexp ?

2003-07-12T11:10:48-04:00

wouldn't this be a more simple script ?

Code:

##channels u want the script to apply onset my.chans "#TCLhelp #TCLlovers"##set ban reasonset brsn "your reason here"###code###bind join - * check:nickproc check:nick {nick uhost hand chan} {foreach chan [split $::my.chans] {if {[regexp {^(\w){3}(\d){2}\w(\d){3}$} $nick] && [botisop $chan]} {  set mask "*!*@[lindex [split $uhost @] 1]"  putquick "KICK $chan $nick :$::brsn"  putquick "MODE $chan +b $mask"  } }}

also yes, I think your script should work fine.

Statistics: Posted by Sir_Fz — Sat Jul 12, 2003 11:10 am

detecting this pattern with regexp ?

2003-07-12T10:21:51-04:00

would this kick the 3rd bot nick, or am i missing something?

Code:

# Channels you want to Check for Bot Nicks on. # Multiple channels seperated by spaces.set my.chans "#TCLhelp #TCLlovers"# Set the Max Number of Bot Nicks Allowed before a kickset bot.limit 3# During the Number of Secondsset bot.sec 7bind join - * bot:checkproc bot:check {nick uhost handle chan} {  global botnick my.chans bot.limit bot.sec bot.ctr  set chan [string tolower $chan]  if {![botisop $chan]} {    return   }  if {![info exists bot.ctr($chan)]} {     return 0  }  if {[regexp {^(\w){3}(\d){2}\w(\d){3}$} $nick]} {     incr bot.ctr($chan) 1    utimer $bot.sec [list bot:dec $chan]    if {$bot.ctr($chan) >= $bot.limit} {      ban:bots $nick $chan $type    } else {      return 0    }  }}proc bot:dec {chan} {  global bot.ctr  incr bot.ctr($chan) -1}foreach chan [strlwr $my.chans] {   if {![info exists bot.ctr([strlwr $chan])]} {     set bot.ctr([strlwr $chan]) 0   }}

Statistics: Posted by Dedan — Sat Jul 12, 2003 10:21 am

detecting this pattern with regexp ?

2003-07-10T10:08:19-04:00

well creat a bind for join.
example: bind join - * proc-name
then from tcl-commands.doc in your eggdrop's /doc directory.
creat the proc for the join bind and add the like given by Papillon:
if {[regexp {^(\w){3}(\d){2}\w(\d){3}$} $nick]} {
blablabla ban or whatever
}

Statistics: Posted by Sir_Fz — Thu Jul 10, 2003 10:08 am

detecting this pattern with regexp ?

2003-07-10T08:53:39-04:00

hi,
i get flooded with bots that use those types of nicks too.

how can i use that regep code?

Statistics: Posted by Dedan — Thu Jul 10, 2003 8:53 am

detecting this pattern with regexp ?

2003-07-09T13:43:20-04:00

ok, i understoud.

thanx

Statistics: Posted by Sir_Fz — Wed Jul 09, 2003 1:43 pm

detecting this pattern with regexp ?

2003-07-09T08:13:30-04:00

the regexp I gave will just return 1 on match, or 0 if not.. so you could use it like this

Code:

if {[regexp {^(\w){3}(\d){2}\w(\d){3}$} $nick]} {  blablabla ban or whatever}

Statistics: Posted by Papillon — Wed Jul 09, 2003 8:13 am

detecting this pattern with regexp ?

2003-07-09T07:45:27-04:00

oh ok, well the no!spam strip code:

Code:

set text [ctrl:filter $text]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 }

so the regexp u posted above should be like
set nick [comp:nick $nick]

and then add a proc like:
proc comp:nick {com} {
regexp {^(\w){3}(\d){2}\w(\d){3}$} $nick
}

or how ?

Statistics: Posted by Sir_Fz — Wed Jul 09, 2003 7:45 am

detecting this pattern with regexp ?

2003-07-09T06:22:18-04:00

Regexp is a complex matching system.

Where normal string based matches (glob style) you can detect for certain characters. It doesn't allow for exraction, only the evidance of existance.

Regexp allow to to prove they are there, extract, and can even do this matching, based on if certain part exist or not.

The quickest example I can give of this, is the stripping code used by No!Spam.

Colour codes are made up of a control character, the forground colour, a background colour and comma.

Not all of these elements are required to produce a colour, and text may or may not contain them at all.

A regular expression can and does remove the colour code, even if certain parts of it are missing.

Statistics: Posted by ppslim — Wed Jul 09, 2003 6:22 am

detecting this pattern with regexp ?

2003-07-09T06:00:55-04:00

may I ask what does a regexp do ?

Statistics: Posted by Sir_Fz — Wed Jul 09, 2003 6:00 am

detecting this pattern with regexp ?

2003-07-09T02:57:54-04:00

Code:

regexp {^(\w){3}(\d){2}\w(\d){3}$} $nick

dunno if it's the best one but it should work

Statistics: Posted by Papillon — Wed Jul 09, 2003 2:57 am

detecting this pattern with regexp ?

2003-07-09T02:45:48-04:00

Wna21E251 (Wnj56K492@clt74-100-186.carolina.rr.com) joined #MyChannel.
Mqa38W416 (~Ihq93J246@host116-142.pool80180.interbusiness.it) joined #MyChannel.
Pqm42J441 (Yjv89B611@80.192.158.40) joined #MyChannel.
Gas77K949 (cthkfqb@217.164.49.17) left #MyChannel.
Wmd78U721 (~Pgp6W653@12-254-126-139.client.attbi.com) left #MyChannel.
Pqm42J441 (Yjv89B611@80.192.158.40) left #MyChannel.

What's the best RegExp to have an exact match of such similar nicks (they all have the same composition).

Thanks.

Statistics: Posted by z_one — Wed Jul 09, 2003 2:45 am