egghelp/eggheads community

regexp problem

2002-09-18T01:25:27-04:00

What I need this code to do is
1- detect nicks having 5 or more successive consonants (i.e. agubnftrd)
2- the successive consonants should be different (i.e. it should not react on nicks such as "afojjjjjj")
3- the nick should only contain letters (i.e. it should not react on nicks such as "drummer21")

Thanks in advance.

here is the code

Code:

bind join - * kickitproc kickit {nick host hand chan} {    global botnick    if {$nick == $botnick} { return 0 }      if {[regexp -nocase {[^a,e,i,o,u,y]{5,}} $nick]} {        newchanban $chan "*!$host" $botnick "Out" 10        putkick $chan $nick "Out! 10 mins ban"      }}

Statistics: Posted by z_one — Wed Sep 18, 2002 1:25 am

regexp problem

2002-09-17T14:42:06-04:00

And why did you take out the ban code from your posting? You should post, and i cannot stress this enough, *THE FULL ORIGINAL* version of the script. Some tiny details often cause problems but easily get overloked.

Statistics: Posted by darko`` — Tue Sep 17, 2002 2:42 pm

regexp problem

2002-09-16T04:32:04-04:00

I realy can't see any way of this happening, other than the proc being renamed after originaly starting the script.

IE. You start the script, change stuff around, including the name of the proc, and then do a rehash.

This would cause the original script, to remain in memory, and is possibly where to problems arise. Try a .restart to test it.

Another thing to try, is placing -- after the -nocase switch.

Statistics: Posted by ppslim — Mon Sep 16, 2002 4:32 am

regexp problem

2002-09-16T04:30:19-04:00

Maybe you have some weird version of tcl and it does regexp differently than on our computers.

Test the regexp by itself with the .tcl command:

.tcl regexp -nocase {[^a,e,i,o,u,y]{5,}} "A---NoSpam"

If that returns 0, then you're having some other error. Have you done .restart lately? Maybe you have an old version of the script still loaded hehe.

If it returns 1, then reinstall Tcl or use a different method of detecting bad nicks.

Statistics: Posted by stdragon — Mon Sep 16, 2002 4:30 am

regexp problem

2002-09-16T02:23:59-04:00

There is a ban code but I took it out.
Anyway, it's the same. With the code I posted the bot kicks the nick
A---NoSpam eventhough I unloaded all other tcl files and only kept this one
Could it be that the character "-" denotes some sort of special meaning ?

Statistics: Posted by z_one — Mon Sep 16, 2002 2:23 am

regexp problem

2002-09-16T01:13:16-04:00

Well considering that there is no banning code in what you posted, it is limpossible for this to be causing the bans heh.

Maybe you're using some other script. Search for "newchanban" or "+b".

Statistics: Posted by stdragon — Mon Sep 16, 2002 1:13 am

regexp problem

2002-09-16T00:51:20-04:00

Code:

bind join - * possiblespamnickproc possiblespamnick {nick host hand chan} {    global botnick    if {$nick == $botnick} { return 0 }    if {[matchattr $hand "n"] || [matchattr $hand "m"] || [matchattr $hand "b"]} { return 0 } {      if {[regexp -nocase {[^a,e,i,o,u,y]{5,}} $nick]} {        putkick $chan $nick "Possible spammer detected"      }    }}

Statistics: Posted by z_one — Mon Sep 16, 2002 12:51 am

regexp problem

2002-09-15T15:16:59-04:00

As said in most situation like this, we would need to see the rest of the script, to so if there any other issues at hand affecting this.

Statistics: Posted by ppslim — Sun Sep 15, 2002 3:16 pm

regexp problem

2002-09-15T13:48:45-04:00

Thx for debugging that ... however the bot was banning the ip of the nick A---NoSpam as soon as it joined.
When I removed the code I showed you from my eggy, it stopped banning the nick.
That's what puzzles me!

Statistics: Posted by z_one — Sun Sep 15, 2002 1:48 pm

regexp problem

2002-09-15T09:51:08-04:00

% [darko@blah darko]$ tclsh
% set nick A---NoSpam
A---NoSpam
% regexp -nocase {[^a,e,i,o,u,y]{5,}} $nick
0
%

Guess that explains it. There is no problem with your regexp.

Statistics: Posted by darko`` — Sun Sep 15, 2002 9:51 am

regexp problem

2002-09-15T04:11:15-04:00

Hi,

I'm using the following condition to detect nicks who have 5 or more consecutive consonants (possible spammers)

Code:

if {[regexp -nocase {[^a,e,i,o,u,y]{5,}} $nick]} {  ban and kick here...}

However when the nick A---NoSpam joined my channel ... he got kicked. What's wrong ?

Thanks

Statistics: Posted by z_one — Sun Sep 15, 2002 4:11 am