script request!

Breno · Post by **Breno** » Thu Apr 14, 2005 3:39 pm

how does to ban automatically anybody what join with the identd with a letter and 2 or more varied numbers? ~a355, ~x12, ~y3343, ~o9293...

avilon · Post by **avilon** » Fri Apr 15, 2005 7:10 am

Code: Select all

bind join -|- * badident

proc badident {nick host hand chan} {
	if {[regexp -- {~[a-z]{1}\d{1,6}$} [lindex [split $host @] 0]]} {
		newchanban $chan *![lindex [split $host @] 0]@* $::botnick "bad ident"
	}
}

Breno · Post by **Breno** » Fri Apr 15, 2005 9:34 am

how would it be to ban host? ex:

* Joins: q390 (~p2544@200.168.38.160)
* botnick sets mode: +b *!*@200.168.38.160
* q390 was kicked by SuckMyDick (Banned: bad ident!)

avilon · Post by **avilon** » Fri Apr 15, 2005 10:59 am

change

Code: Select all

newchanban $chan *![lindex [split $host @] 0]@* $::botnick "bad ident"

to

Code: Select all

newchanban $chan *!*@[lindex [split $host @] 1] $::botnick "bad ident"

Breno · Post by **Breno** » Fri Apr 15, 2005 8:28 pm

how do I do for display in DCC the #channel, nick and host of user banned?
ex:
<botnick> [20:06] -> BadIdent detected in #Channel, Nick: blahh Host: *!*~a1343@919.911.919

De Kus · Post by **De Kus** » Sat Apr 16, 2005 3:32 am

I suggest opening TCL-Commands.doc and search for "putlog".

Breno · Post by **Breno** » Fri Apr 22, 2005 8:47 pm

<botnick> [21:34] *** bad ident in: #testchan, nick/host: testnick` ~x4@eave.that.nigga.be

** how does to ban automatically anybody what join with the identd with a letter and 2 or more varied numbers? ~a355, ~x12, ~y3343, ~o9293... **

No ban 1 number.
nick/host: a3425 ~x4@200-161-24-18.dsl.telesp.net.br

:/

tks avilon and De Kus..

awyeah · Post by **awyeah** » Sat Apr 23, 2005 1:49 am

Here use this:

Code: Select all

bind join - "*" badident

proc badident {nick host hand chan} {
   if {![isbotnick $nick] && [botisop $chan] && [string equal "~" [string index [lindex [split $uhost @] 0] 0]]} {
    if {[regexp {^[a-z]{1}[0-9]{2,4}$} [lindex [split $host @] 0]]} {
      newchanban $chan *!*@[lindex [split $host @] 1] $::botnick "bad ident"
      }
   }
}

Breno · Post by **Breno** » Sat Apr 23, 2005 1:40 pm

<botnick> [14:38] Tcl error [badident]: can't read "uhost": no such variable

Post by **Sir_Fz** » Sat Apr 23, 2005 2:18 pm

change $uhost to $host.

Stealthx · Post by **Stealthx** » Sat Apr 23, 2005 8:56 pm

I've some enquires about the coding.

1) Does it ban ONLY IP address? I mean, only those hostmask with number (etc, 100.100.100.10) and not the address (etc, abc.eggdrop120.222.com).

2) Can it be used for more then a letter and 2 varied numbers? (etc, axn65z6xn)

Thanks.

Post by **Sir_Fz** » Sat Apr 23, 2005 9:09 pm

1) No, it bans any ip.

2) No, you'll need to code another regexp.