egghelp/eggheads community

Whois ban

2003-09-14T08:37:52-04:00

set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]

that means the bot see all realnames as lower-case (even if they have capital letters)

so:

set badr(list) {
"*mahoo*"
"*blowjob*"
"*hot?dot*"
"*smile*"
"*tricky*"
"*bmw??ever*"
"*URENS*HN*"
"*I WILL CLEAN HOUSE*"
}

shoud be all in lower-case letters (it doesn't matter if someone puts capital letters)
=> "*URENS*HN*" and "*I WILL CLEAN HOUSE*" should be "*urens*hn*" and "*i will clean house*"

also what user meant is replace:

Code:

if {![string match $bah $realname]} {

with

Code:

if {![string match -nocase $bah $realname]} {

Statistics: Posted by Sir_Fz — Sun Sep 14, 2003 8:37 am

Whois ban

2003-09-14T06:15:11-04:00

use the -nocase option with 'string match'

sorry , but my tcl is not so good !
i cant change it.
can somebody help me ?

Statistics: Posted by Volume — Sun Sep 14, 2003 6:15 am

Whois ban

2003-09-07T16:27:52-04:00

use the -nocase option with 'string match'

Statistics: Posted by user — Sun Sep 07, 2003 4:27 pm

@caesar

2003-09-07T15:05:14-04:00

hello caesar,
in the script must be a little bug. capslock names (BIG WORDS) dont get a ban but the script have the badrealname into...

PCorn is -PC0rn@chello062178241113.1.14.vie.surfer.at * I WILL CLEAN HOUSE
PCorn on #schweiz #austria #windows #duesseldorf
PCorn using *.stealth.net [192.168.18.2] Stealth Communications - IPv6, Ne
PCorn End of WHOIS list.

This user dont get ban but the bad realname is in the script!

Problem with this user too:

Warner is -warner@p508C230F.dip.t-dialin.net * HURENSOHN
Warner using uni-karlsruhe.de University of Karlsruhe, Germany
Warner has been idle 4secs, signed on Sun Sep 07 21:04:21
warner End of WHOIS list.
-

i hope you can help me thank you very mutch

Code:

# What bad realnames should be banned?set badr(list) {"*mahoo*""*blowjob*""*hot?dot*""*smile*""*tricky*""*bmw??ever*""*URENS*HN*""*I WILL CLEAN HOUSE*"}# For how many minutes whould you like the ban?set badr(time) 60# What reason will be used when an person is found using an bad realname?set badr(reason) "Mag dich net ciao :)"# binds #bind join - * badrealname:joinbind raw - 311 badrealname:check# join #proc badrealname:join {nick host hand chan} {  if {![validuser $hand] || [strlwr $nick] != [strlwr $::botnick]} {    putserv "WHOIS $nick"  }}# check #proc badrealname:check {from key arg} {  set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]  foreach bah $::badr(list) {    if {![string match $bah $realname]} {      continue    }    foreach chan [channels] {      if {![onchan [lindex $arg 1]]} {        continue      }      newchanban $chan "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)    }    break  }}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}putlog "badrealname.tcl.. loaded."

Statistics: Posted by Volume — Sun Sep 07, 2003 3:05 pm

Whois ban

2003-06-08T13:05:30-04:00

I bet "not a bug advice on the partyline" meant that there isn't a tcl error shown on the partyline.

Statistics: Posted by stdragon — Sun Jun 08, 2003 1:05 pm

@caesar

2003-06-08T06:55:16-04:00

Actualy it dose work smoothly and bans corectly as far as I can see in my tests. Please explain what you mean by "The Bot scan not chans ore not ban the user. But its not a bug advice on the partyline." cos I haven't understood a thing.

Right ) this bot have me not baned, because the login have +fmno flag on the chan *G*

Sorry, i have vergotten to change the ident for testing

Statistics: Posted by Volume — Sun Jun 08, 2003 6:55 am

Whois ban

2003-06-08T06:35:55-04:00

Actualy it dose work smoothly and bans corectly as far as I can see in my tests. Please explain what you mean by "The Bot scan not chans ore not ban the user. But its not a bug advice on the partyline." cos I haven't understood a thing.

Statistics: Posted by caesar — Sun Jun 08, 2003 6:35 am

@caesar

2003-06-08T06:04:22-04:00

good morning

First you are not dumb ! You can so good coding.
I´m not a quarter as good.

Second:
The Bot scan not chans ore not ban the user. But its not a bug advice on the partyline.

I'm so dumb sometimes.. replace the check proc with this one:

Code:

# check #proc badrealname:check {from key arg} {   set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]  foreach bah $::badr(list) {    if {![string match $bah $realname]} {      continue    }    foreach chan [channels] {      if {![onchan [lindex $arg 1]]} {        continue      }      newchanban $chan "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)    }    break  }}

Code:

# What bad realnames should be banned? set badr(list) { "*mahoo*" "*blowjob*" "*hot?dot*"} # For how many minutes whould you like the ban? set badr(time) 60 # What reason will be used when an person is found using an bad realname? set badr(reason) "Ich hab dir doch gesagt: Kein Spam ! ;o" # binds # bind join - * badrealname:joinbind raw - 311 badrealname:check # join # proc badrealname:join {nick host hand chan} {   if {![validuser $hand] || [strlwr $nick] != [strlwr $::botnick]} {     putserv "WHOIS $nick"   } } # check # proc badrealname:check {from key arg} {   set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]   foreach bah $::badr(list) {     if {![string match $bah $realname]} {       continue     }     foreach chan [channels] {       if {![onchan [lindex $arg 1]]} {         continue       }       newchanban $chan "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)     }     break   } } 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 } putlog "badrealname.tcl.. loaded."

Statistics: Posted by Volume — Sun Jun 08, 2003 6:04 am

Whois ban

2003-06-08T02:19:56-04:00

I'm so dumb sometimes.. replace the check proc with this one:

Code:

# check #proc badrealname:check {from key arg} {   set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]  foreach bah $::badr(list) {    if {![string match $bah $realname]} {      continue    }    foreach chan [channels] {      if {![onchan [lindex $arg 1]]} {        continue      }      newchanban $chan "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)    }    break  }}

Statistics: Posted by caesar — Sun Jun 08, 2003 2:19 am

Whois ban

2003-06-08T00:59:34-04:00

Lol are you guys going for the "longest thread ever" award?

Statistics: Posted by stdragon — Sun Jun 08, 2003 12:59 am

@caesar sorry for the disruption but i have find yet a bug

2003-06-07T23:13:22-04:00

Oups, sorry, forgot about it .. replace from:

Code:

newchanban $::badr(chan) "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)

to:

Code:

newchanban $chan "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)

Tcl error [badrealname:check]: can't read "chan": no such variable

@caesar: where is the last bug ? thank you for your many helps !

Code:

# What bad realnames should be banned? set badr(list) { "*mahoo*" "*blowjobs*" "*hot?dot*"} # For how many minutes whould you like the ban? set badr(time) 60 # What reason will be used when an person is found using an bad realname? set badr(reason) "Ich hab dir doch gesagt: Kein Spam ! ;o" # binds # bind join - * badrealname:joinbind raw - 311 badrealname:check # join # proc badrealname:join {nick host hand chan} {   if {![validuser $hand] || [strlwr $nick] != [strlwr $::botnick]} {     putserv "WHOIS $nick"   } } # check # proc badrealname:check {from key arg} {   set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]   foreach bah $::badr(list) {     if {![string match $bah $realname]} {       continue     }     newchanban $chan "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)    break   } } 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 } putlog "badrealname.tcl.. loaded."

Statistics: Posted by Volume — Sat Jun 07, 2003 11:13 pm

Whois ban

2003-06-07T11:20:44-04:00

Oups, sorry, forgot about it .. replace from:

Code:

newchanban $::badr(chan) "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)

to:

Code:

newchanban $chan "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)

Statistics: Posted by caesar — Sat Jun 07, 2003 11:20 am

@caesar

2003-06-07T06:23:18-04:00

replace from:

Code:

bind join - "$badr(chan) *" badrealname:join

to:

Code:

bind join - * badrealname:join

hello,

what must i do with the ban ?

Code:

newchanban $::badr(chan) "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)

In this line is the ::badr(chan) too.
[12:13:34] [12:33] Tcl error [badrealname:check]: invalid channel: #channel
when i will this script in all chans work

sorry for my bad english

Statistics: Posted by Volume — Sat Jun 07, 2003 6:23 am

@stdragon

2003-06-07T05:48:34-04:00

Actually, "unmatched open quote" means you have a quote (like ") but no closing quote. If you look at the list, you can see that you have

"*hot-dot*
(note no " on the end)

how disconcerting

Thank you for your help

Statistics: Posted by Volume — Sat Jun 07, 2003 5:48 am

Whois ban

2003-06-06T19:05:16-04:00

Actually, "unmatched open quote" means you have a quote (like ") but no closing quote. If you look at the list, you can see that you have

"*hot-dot*
(note no " on the end)

Statistics: Posted by stdragon — Fri Jun 06, 2003 7:05 pm