Whois ban

dax47988 · Post by **dax47988** » Sun May 18, 2003 12:31 pm

banmask *!*@*.host not !*!........

ppslim · Post by **ppslim** » Sun May 18, 2003 1:14 pm

Yes and no.

Using the ISON command, you can tell if he has come online.

Once the ISON replies that he is on, you can use USERHOST or WHO commands, to tell hist hostname, which you can ban.

Post by **caesar** » Mon May 19, 2003 3:37 am

Try with this:

Code: Select all

if {[string match *@*.undernet.org [strlwr [maskhost [lindex [split $arg] 3]]]} {

Post by **caesar** » Tue May 20, 2003 6:53 am

Also, for the first code (named badrealname.tcl) to make it see the bad realnames even if they hay bold, underline, colour, italic.. etc. replace from this:

Code: Select all

if {$realname != $bah} {

to this:

Code: Select all

if {[strlwr [ctrl:filter $realname]] != $bah} {

and for the second code (named clean.tcl) replace from:

Code: Select all

if {$nick == $realname} {

to this:

Code: Select all

if {[strlwr $nick] == [strlwr [ctrl:filter $realname]]} {

Also, add at the end of each file this proc:

Code: Select all

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}

Thanks to ppslim for it. after this changes it should be working fine..

nut · Post by **nut** » Sun May 25, 2003 5:18 pm

hi!
i get an error on my bot while this script is in use:
[23:18] Tcl error [badrealname:check]: invalid command name "strlwr"
could you help me?
thank you!
nut

spock · Post by **spock** » Sun May 25, 2003 5:59 pm

strlwr is a procedure in alltools.tcl (loaded by default) so make sure youve got it loaded.

or paste this in any script youve got loaded (and rehash it)

Code: Select all

proc strlwr {string} {
  return [string tolower $string]
}

Post by **caesar** » Mon May 26, 2003 2:06 am

Be shure that the default tcl scripts (compact.tcl and alltools.tcl) are loaded.

Papillon · Post by **Papillon** » Mon May 26, 2003 2:47 am

Code: Select all

if {[strlwr $nick] == [strlwr [ctrl:filter $realname]]} {

instead of using strlwr and == why don't you just use:

Code: Select all

if {[string equal -nocase $nick [ctrl:filter $realname]]} {

it's usually better to use string commands on strings, and if you want to make fast scripts it's usually faster aswell.... not much,but a littlebit.. :p

Post by **caesar** » Mon May 26, 2003 2:58 am

Humm, yes, nice sugestion.

Post by **caesar** » Mon May 26, 2003 3:16 am

Also, folowing Papillon's sugestion, replace from:

Code: Select all

if {[strlwr [ctrl:filter $realname]] != $bah} {

to this:

Code: Select all

if {[string equal -nocase $bah [ctrl:filter $realname]]} {

nut · Post by **nut** » Mon May 26, 2003 11:58 am

hi!
the script works very fine! thank you all for your help!
greetz nut

ReaLz · Post by **ReaLz** » Mon Jun 02, 2003 8:43 am

could somebody post again the full code of badrealname.tcl but with the wildcards in fullnames enabled.. so that if someone adds this fullname: "*[censored] off*" he gets banned.

Post by **caesar** » Mon Jun 02, 2003 12:12 pm

Get it from here..

ReaLz · Post by **ReaLz** » Mon Jun 02, 2003 12:17 pm

this one doesn't support wildcards in fullnames I think...

Volume · Post by **Volume** » Mon Jun 02, 2003 5:33 pm

Hello, the ban works but the bot set this to ban. all t-dialin.net user are kicket

[23:27:52] * Geist sets mode: +b *!*@*.t-dialin.net
[23:27:53] * dort was kicked by Sunstorm (gebannt: You norteh norteh boy!)

eft is simon@p508C34A5.dip.t-dialin.net * http://www.mahoo.de
eft using uni-karlsruhe.de University of Karlsruhe, Germany
eft has been idle 22mins 22secs, signed on Mon Jun 02 22:58:54
eft End of WHOIS list.

this is only 1 user with bad realname.
can i make the script bans *!*@p508C34A5.dip.t-dialin.net ?

this is better and not other users are banned.
thanks for help

egghelp/eggheads community

Whois ban

sorry....eating ice cream as i write

Ban Mask