egghelp/eggheads community

Searching For the Script which can Ban Badnicks!!!!

2006-03-04T00:41:18-04:00

How is it my fault that your script can't handle [ as part of a banned channel name?

it's your fault that you think my script can't handle it, and it can; it's your fault than you are unable to escape correctly square brackets in a regexp; and unfortunately, you can't seem to comprehend what I'm saying to you

Really, if you all don't know the answer, why bother replying?

I know every answer of every question about xchannel.tcl; I wrote the thing, remember?

anyhow, it's commendable you bothered to help yourself and write a script that - albeit naive and buggy - works for you

Statistics: Posted by demond — Sat Mar 04, 2006 12:41 am

Searching For the Script which can Ban Badnicks!!!!

2006-03-03T19:45:57-04:00

Code:

set badnicks "\sex \s3x \\{ \\\ \\[ \\] \\}"

This is incorrect, badnicks is a string here and not a list. Use

Code:

set badnicks { "sex" "s3x" "\{" "\\"  "\["  "\]"  "\}"}

[ would've worked perfectly if [string equal] was used instead of [string match] since [] has special meaning in [string match] so using \[ will solve the problem.

PS: That wouldn't work if

was used instead of {}. If
- is used, then you'll have to add {\[} or \\\[ instead of just \[.

Statistics: Posted by Sir_Fz — Fri Mar 03, 2006 7:45 pm

Searching For the Script which can Ban Badnicks!!!!

2006-03-03T12:30:36-04:00

I found a solution. This bans { [ } ] \ and so forth in nicks.

Code:

set badnicks "\sex \s3x \\{ \\\ \\[ \\] \\}"set bnduration 1m ### Set Your Ban Reasonset badnickreason "Bad nick."bind join - * filter_bad_nicksbind nick - * filter_bad_nicksproc filter_bad_nicks {nick uhost hand channel {nn ""}} {        global badnicks badnickreason banmask botnick bnduration        if {$nn == ""} { set nn $nick }        set handle [nick2hand $nick]        set banmask "*$nick*!*@*"        if {![isbotnick $nick]} {        foreach badnick [string tolower [split $badnicks]] {                if {[string match -nocase *$badnick* $nn] == 1} {                        if {([matchattr $handle +f] == 1) || ([matchattr $handle +o] == 1)} {                               puthelp "PRIVMSG $channel :Ohh, aren't you so cool with that naughty nick, $nick.."                                return 0                                } else {                                        putquick "KICK $channel $nick :$badnickreason"                                        newchanban $channel $banmask $botnick $badnickreason $bnduration                                }                        }                }        }}

Statistics: Posted by rosc2112 — Fri Mar 03, 2006 12:30 pm

Searching For the Script which can Ban Badnicks!!!!

2006-03-03T06:19:50-04:00

How is it my fault that your script can't handle [ as part of a banned channel name?

Really, if you all don't know the answer, why bother replying?

Statistics: Posted by rosc2112 — Fri Mar 03, 2006 6:19 am

Searching For the Script which can Ban Badnicks!!!!

2006-03-03T05:18:32-04:00

that's not xchannel's fault, that's your fault

learn regexps

Statistics: Posted by demond — Fri Mar 03, 2006 5:18 am

Searching For the Script which can Ban Badnicks!!!!

2006-03-03T04:56:46-04:00

Same problem with that xchannels.tcl script, it does not handle "[" as an item to ban. It handled "{" but I've already fixed that. I have been unable to get any script to handle "[" as a char to ban on.

This is what xchannels.tcl says, when I tested it with [ in the badwhois.txt:

[03:48] Tcl error [::xchannel::gotwhois]: couldn't compile regular expression pattern: brackets [] not balanced

So, does anyone have a real solution to this?

Statistics: Posted by rosc2112 — Fri Mar 03, 2006 4:56 am

Searching For the Script which can Ban Badnicks!!!!

2006-03-03T00:40:23-04:00

Try examining xchannel.tcl by demond for inspiration.

actually it doesn't work on nicks, but on realnames, channels joined, and server name

there is absolutely no need of a script to ban "bad" nicks, you simply create +k user record and add *nick*!*@* masks to it

Statistics: Posted by demond — Fri Mar 03, 2006 12:40 am

Searching For the Script which can Ban Badnicks!!!!

2006-03-02T22:45:42-04:00

Try examining xchannel.tcl by demond for inspiration.

Statistics: Posted by Alchera — Thu Mar 02, 2006 10:45 pm

Searching For the Script which can Ban Badnicks!!!!

2006-03-02T22:34:56-04:00

Been there, don't know how to apply it in this case..Actually, I did apply it, and fixed the problem with handling "{" but it didn't help with handling "["

Anyone else have a clue?

Statistics: Posted by rosc2112 — Thu Mar 02, 2006 10:34 pm

Searching For the Script which can Ban Badnicks!!!!

2006-03-02T22:14:50-04:00

Code:

set badnicks { "sex" "s3x" "{" "["}

You may also wish to read the following page:

How to write eggdrop scripts that won't choke on special characters

Statistics: Posted by Alchera — Thu Mar 02, 2006 10:14 pm

Searching For the Script which can Ban Badnicks!!!!

2006-03-02T22:01:45-04:00

Did you mean to have "set set" or was that a typo? Using just "set badnicks { "this" "that" "{" } makes the bot crash..Thats why I made it use

but that still crashes on trying to use "[" in the banlist..

Statistics: Posted by rosc2112 — Thu Mar 02, 2006 10:01 pm

Searching For the Script which can Ban Badnicks!!!!

2006-03-03T19:40:40-04:00

Instead of using

, use {}. i.e.
Code:
```
set badnicks { "sex" "s3x" "{" "["}
```

Statistics: Posted by Sir_Fz — Thu Mar 02, 2006 9:44 pm

banning bad nicks with { and other special chars

2006-03-02T21:35:35-04:00

I've looked at bunches of badnick ban scripts, and they all seem to have this one problem in common, and that is, not handling { or [ special chars. I managed to fix this script to handle "{" but I'm at a loss as to how to make it handle "["

I've looked through the forums and documentation, but I can't figure out how to handle this.

This is what I have:

Code:

set badnicks [list \"sex" \"s3x" \"{" \"["]    set bnduration 1mset badnickreason "Don't use offensive words in your nick.."bind join - * filter_bad_nicksbind nick - * filter_bad_nicksproc filter_bad_nicks {nick uhost hand channel} { global badnicks badnickreason banmask botnick bnduration  set handle [nick2hand $nick]   set banmask "*$nick*!*@*"        foreach badnick [string tolower [split $badnicks]] {        if {[string match -nocase *$badnick* $nick]}  {       if {[matchattr $handle +f]} {           putlog "-Anti Bad Nick Script- $nick ($handle) with +f joined $channel"           puthelp "PRIVMSG $channel :Ohh, aren't you so cool with that naughty nick, $nick.."       } elseif {[matchattr $handle +o]} {           putlog "-Anti Bad Nick Script- $nick ($handle) with +o flags joined $channel"           puthelp "PRIVMSG $channel :Ohh, aren't you so cool with that naughty nick, $nick.."       } else {           putlog "-Anti Bad Nick Script- KICKED $nick on joining $channel"           putquick "KICK $channel $nick :$badnickreason"           newchanban $channel $banmask $botnick $badnickreason $bnduration       }    }     }}

How would I fix this? Any clues appreciated =)

Statistics: Posted by rosc2112 — Thu Mar 02, 2006 9:35 pm

Searching For the Script which can Ban Badnicks!!!!

2005-04-10T17:16:09-04:00

Its much better if Bot bans ONLY badnicks not the IP/host

Code:

set badnicks [list "*word1*" "*word2*" "*word3*"] bind join - * ban:bnick bind nick - * ban:bnick proc ban:bnick {nick uhost hand chan {nn ""}} { global badnicks set bbanmask "*$nick*!*@*" if {$nn == ""} { set nn $nick } if {![isbotnick $nick]} {   foreach badnick $badnicks {    if {[string match -nocase  $badnick $nn]} {     putserv "MODE $chan +b $bbanmask"     putserv "KICK $chan $nick :Bad nick detected."     break    }   }  } }

-REGARDS-

Statistics: Posted by Linux — Sun Apr 10, 2005 5:16 pm

Searching For the Script which can Ban Badnicks!!!!

2005-03-19T08:39:06-04:00

It Seems to work fine. Thankx for your reply. Have nice time..

Statistics: Posted by Bingooss — Sat Mar 19, 2005 8:39 am