regexp problem

z_one · Post by **z_one** » Sun Sep 15, 2002 4:11 am

Hi,

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

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

darko`` · Post by **darko``** » Sun Sep 15, 2002 9:51 am

% [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.

z_one · Post by **z_one** » Sun Sep 15, 2002 1:48 pm

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!

ppslim · Post by **ppslim** » Sun Sep 15, 2002 3:16 pm

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.

z_one · Post by **z_one** » Mon Sep 16, 2002 12:51 am

Code: Select all

bind join - * possiblespamnick

proc 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"
      }
    }
}

stdragon · Post by **stdragon** » Mon Sep 16, 2002 1:13 am

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".

z_one · Post by **z_one** » Mon Sep 16, 2002 2:23 am

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 ?

stdragon · Post by **stdragon** » Mon Sep 16, 2002 4:30 am

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.

ppslim · Post by **ppslim** » Mon Sep 16, 2002 4:32 am

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.

darko`` · Post by **darko``** » Tue Sep 17, 2002 2:42 pm

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.

z_one · Post by **z_one** » Wed Sep 18, 2002 1:25 am

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: Select all

bind join - * kickit
proc 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"
      }
}