Whois ban

Volume · Post by **Volume** » Sat Jun 07, 2003 6:23 am

caesar wrote:replace from:
Code: Select all
bind join - "$badr(chan) *" badrealname:join 
to:
Code: Select all
bind join - * badrealname:join

hello,

what must i do with the ban ?

Code: Select all

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

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

sorry for my bad english

Post by **caesar** » Sat Jun 07, 2003 11:20 am

Oups, sorry, forgot about it

.. replace from:

Code: Select all

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

to:

Code: Select all

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

Volume · Post by **Volume** » Sat Jun 07, 2003 11:13 pm

caesar wrote:Oups, sorry, forgot about it .. replace from:
Code: Select all
newchanban $::badr(chan) "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)
to:
Code: Select all
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: Select all

# 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:join
bind 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."

stdragon · Post by **stdragon** » Sun Jun 08, 2003 12:59 am

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

Post by **caesar** » Sun Jun 08, 2003 2:19 am

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

Code: Select all

# 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
  }
}

Volume · Post by **Volume** » Sun Jun 08, 2003 6:04 am

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.

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

Code: Select all

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

# 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:join
bind 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."

Post by **caesar** » Sun Jun 08, 2003 6:35 am

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.

Volume · Post by **Volume** » Sun Jun 08, 2003 6:55 am

caesar wrote: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

stdragon · Post by **stdragon** » Sun Jun 08, 2003 1:05 pm

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

Volume · Post by **Volume** » Sun Sep 07, 2003 3:05 pm

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

# 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:join
bind 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."

Post by **user** » Sun Sep 07, 2003 4:27 pm

use the -nocase option with 'string match'

Volume · Post by **Volume** » Sun Sep 14, 2003 6:15 am

user wrote:use the -nocase option with 'string match'

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

Post by **Sir_Fz** » Sun Sep 14, 2003 8:37 am

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

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

with

Code: Select all

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

egghelp/eggheads community

Whois ban

@caesar

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

@caesar

@caesar

@caesar