Whois ban

[caesar]

My appologies for this problem. Locate in the tcl file this line:

Code: Select all

newchanban $::badr(chan) [maskhost [lindex [split $arg] 3]] $::botnick $::badr(reason) $::badr(time)

and replace it with:

Code: Select all

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

[Volume]

hello,
sorry but the script not ban

with * dont works

---cut---
set badr(list) {
"*mahoo*"
"*hotblowjobs4u*"
}
---cut---

oooooo is kkkkiizzz@p508C101C.dip.t-dialin.net * http://www.mahoo.de
oooooo on #testspam
oooooo using uni-karlsruhe.de University of Karlsruhe, Germany
oooooo has been idle 4secs, signed on Tue Jun 03 20:42:09
oooooo End of WHOIS list.

with the complete realname don´t works the ban.
what have i false ?
:// <-- is this (signs) dont go with the script and realnames ban ?
ore its a mistake in the script ?
thank you very much for your time !

script:

# badrealname.tcl
# original code by Papillon
# modified by caesar
# version 1.2

# Many thanks to ppslim for the ctrl:filter proc.

# What bad realnames should be banned?
set badr(list) {
"http://www.mahoo.de"
"http://www.hotblowjobs4u.com"
}

# The realname check should be done only in what channel?
set badr(chan) "#testspam"

# 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) "You norteh norteh boy!"

# binds #
bind join - "$badr(chan) *" 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 [lindex [lrange [split $arg ":"] 1 end] 0]
foreach bah $::badr(list) {
if {[strlwr [ctrl:filter $realname]] != $bah} {
continue
}
newchanban $::badr(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."

[Volume]

öl

[stdragon]

What did that last post mean? heh

[Volume]

öl

this is a mistake post. i cant delete this !

[Volume]

My appologies for this problem. Locate in the tcl file this line:

Code: Select all

newchanban $::badr(chan) [maskhost [lindex [split $arg] 3]] $::botnick $::badr(reason) $::badr(time)

and replace it with:

Code: Select all

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

Hello, this script bans normal names but not names with http://www.
the wildcards funktion not goes.

i have test:

# What bad realnames should be banned?
set badr(list) {
"http://www.mahoo.de"
"http://www.hotblowjobs4u.com"
"testspaming"
"mahoo"
"*supporter*"
}

no http realnames banned [is the filter filtering the // in the set badr(list) { } list ????]

testspaming and mahoo goes wenn the realname is right.

the bad realname with wildcards not goes by this whois:

oooooo is kkkkiizzz@p508C149D.dip.t-dialin.net * hellosupporterhello
oooooo using BelWue.DE [irc.belwue.de] BelWue, FRG
oooooo has been idle 1min 7secs
oooooo End of WHOIS list.
-

Script:
---------------------------

# badrealname.tcl
# original code by Papillon
# modified by caesar
# version 1.2

# Many thanks to ppslim for the ctrl:filter proc.

# What bad realnames should be banned?
set badr(list) {
"http://www.mahoo.de"
"http://www.hotblowjobs4u.com"
"testspaming"
"mahoo"
"*supporter*"
}

# The realname check should be done only in what channel?
set badr(chan) "#testspam"

# 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) "Keine Sex URL´s im Realnamen !!!"

# binds #
bind join - "$badr(chan) *" 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 [lindex [lrange [split $arg ":"] 1 end] 0]
foreach bah $::badr(list) {
if {[strlwr [ctrl:filter $realname]] != $bah} {
continue
}
newchanban $::badr(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."

---------------------------------

can you help me please ?

[caesar]

Ok, here is the final and working version of badrealname.tcl. My appologies for the previous version(s)..

Code: Select all

# What bad realnames should be banned?
set badr(list) {
"foo bar"
"bla bla"
"*moo*"
"???"
"*http://*"
"*www.*"
}

# The realname check should be done only in what channel?
set badr(chan) "#channel" 

# 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) "You norteh norteh boy!" 

# binds #
bind join - "$badr(chan) *" 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 $::badr(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."

[Volume]

works finely thank you very mutch for this good script
gives a funktion with the bot scan all chans ?

Code: Select all

set badr(chan) ""

for all chans not work...

[Papillon]

use

Code: Select all

set badr(chan) "*"

and it should work

[Volume]

use

Code: Select all

set badr(chan) "*"

and it should work

@Papillon, sorry but this change gives a tcl error on the partyline:

[15:45:45] <Geist> [16:04] Tcl error [badrealname:check]: invalid channel: *

[caesar]

replace from:

Code: Select all

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

to:

Code: Select all

bind join - * badrealname:join

[Volume]

replace from:

Code: Select all

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

to:

Code: Select all

bind join - * badrealname:join

this change dont works
sorry

[Volume]

I have found a new bug

[00:22:09] <Geist> [00:41] Tcl error [badrealname:check]: unmatched open quote in list

saskia is ~user12@p5080BDDD.dip.t-dialin.net * http://homepages.hot-dot.de/saskia.kramer
saskia on #dortmund #kiffer #muenchen #münchen #köln
saskia using fu-berlin.de Freie Universitaet Berlin, Germany
saskia has been idle 17hrs 6mins 14secs, signed on Fri Jun 06 07:03:13
saskia End of WHOIS list.

Code: Select all

set badr(list) { 
"*mahoo*" 
"*hotblowjobs*" 
"*CRANA?IRC*"
"*hot-dot*
"*saskia.kramer*"
} 

The Problem is the hyphen in the middle of hot-dot in the Realname !

I have testet :

Code: Select all

set badr(list) { 
"*hot?dot*
} 

The bug is in this Wildcards too !

[stdragon]

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)

[Volume]

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