egghelp/eggheads community

auto-ban

2008-06-18T02:39:02-04:00

Code:
setudef flag X 
Did you forget to .chanset #yourchan +X?

THX ... it work's now

Statistics: Posted by Danik — Wed Jun 18, 2008 2:39 am

auto-ban

2008-06-17T21:12:07-04:00

Code:

setudef flag X

Did you forget to .chanset #yourchan +X?

Statistics: Posted by speechles — Tue Jun 17, 2008 9:12 pm

auto-ban

2008-06-17T16:53:05-04:00

I'm sorry .. but can someone explain how to add bans to this list ?
I tried to ban through telnet ( .+ban <#chan> reason ) but it doesnt work

Statistics: Posted by Danik — Tue Jun 17, 2008 4:53 pm

auto-ban

2006-10-30T03:43:07-04:00

Pointless foreach but anyway you should add a 'break' statement when a match had been found as there is no need to continue matching internal bans with his host as he in theory got banned tough X.

Statistics: Posted by caesar — Mon Oct 30, 2006 3:43 am

auto-ban

2006-10-29T19:10:42-04:00

Thank you very much...

Statistics: Posted by mavericku — Sun Oct 29, 2006 7:10 pm

auto-ban

2006-10-29T17:25:28-04:00

Code:

setudef flag Xbind join - * edu:join:Xproc edu:join:X {nickname hostname handle channel} {if {![channel get $channel X]} { return }foreach ban [banlist $channel] {set ban_host [lindex $ban 0]set ban_reason [lindex $ban 1]set ban_by [lindex $ban 5]if {[string match -nocase $ban_host $nickname!$hostname]} {putquick "PRIVMSG X :ban $channel $ban_host 1 75 $ban_reason"}}}

Statistics: Posted by edu — Sun Oct 29, 2006 5:25 pm

auto-ban

2006-10-28T17:44:01-04:00

The set should be inside the proc and not outside it (logic).

Statistics: Posted by Sir_Fz — Sat Oct 28, 2006 5:44 pm

auto-ban

2006-10-28T12:32:21-04:00

I just figured out that i`m doing something wrong here .. our you guys missunderstood me.

If the bot has the ban *!*@host.com in his internal banlist for channel #foo
and a drone with that host enters #foo i would like it to be banned trough x (the exact ban the bot has in his internal banlist not a new one (there are bans like *monster*!*@* and i don't want it to ban the host..))

Advices ... ?
Thanks

Statistics: Posted by mavericku — Sat Oct 28, 2006 12:32 pm

auto-ban

2006-10-28T10:48:47-04:00

$host = ident@host. To split it:
Code:
set host *!*@[lindex [split $host @] 1]
Replacing 1 with 0 will return the ident.

Sir_Fz

at first i added your code like this

Code:

setudef flag joinreban set host *!*@[lindex [split $host @] 1] #with " " and without thembind join - * joinreban proc joinreban {nick host hand chan} {    if {![channel get $chan joinreban]} { return }    if {![isban $host $chan] } { return }    if {![isban $host } { return } {     putserv "PRIVMSG X :ban $chan $host 1 100 banned"   } }

but it gave me an error ...

Code:

[04:38:31] (r0b0t): [17:34] script: test -- ::errorInfo: can't read "host": no such variable[04:38:31] (r0b0t): while executing[04:38:31] (r0b0t): "split $host @"[04:38:31] (r0b0t): invoked from within[04:38:31] (r0b0t): "lindex [split $host @] 1"[04:38:31] (r0b0t): invoked from within[04:38:31] (r0b0t): "set host "*!*@[lindex [split $host @] 1]""[04:38:31] (r0b0t): (file "scripts/test.tcl" line 2)[04:38:31] (r0b0t): invoked from within[04:38:31] (r0b0t): "source scripts/test.tcl"

but then i've changed it like this

Code:

setudef flag joinreban bind join - * joinreban proc joinreban {nick host hand chan} {    if {![channel get $chan joinreban]} { return }    if {![isban $host $chan] } { return }    if {![isban $host } { return } {     putserv "PRIVMSG X :ban $chan *!*@[lindex [split $host @] 1] 1 100 banned"   } }

and it's still doesn't work ..
:-< ...damn

Statistics: Posted by mavericku — Sat Oct 28, 2006 10:48 am

auto-ban

2006-10-27T13:37:09-04:00

$host = ident@host. To split it:

Code:

set host *!*@[lindex [split $host @] 1]

Replacing 1 with 0 will return the ident.

Statistics: Posted by Sir_Fz — Fri Oct 27, 2006 1:37 pm

auto-ban

2006-10-27T12:38:41-04:00

(8) JOIN (stackable)
bind join
procname

Description: triggered by someone joining the channel. The mask in
the bind is matched against "#channel nick!user@host" and can
contain wildcards.
Module: irc

first i had $hostname instead of $host .. but it have me this error

Code:

[06:59:33] (r0b0t): [19:55] Tcl error [joinreban]: can't read "hostname": no such variable

after i have changed it in $host .... it doesn't give me nothing ..
pfff

Code:

setudef flag joinreban bind join - * joinreban proc joinreban {nick host hand chan} {    if {![channel get $chan joinreban]} { return }    if {![isban $host $chan] } { return }    if {![isban $host } { return } {     putserv "PRIVMSG X :ban $chan $host 1 100 banned"   } }

O_O

Statistics: Posted by mavericku — Fri Oct 27, 2006 12:38 pm

auto-ban

2006-10-27T11:49:34-04:00

(8) JOIN (stackable)
bind join
procname

Description: triggered by someone joining the channel. The mask in
the bind is matched against "#channel nick!user@host" and can
contain wildcards.
Module: irc

Statistics: Posted by Sir_Fz — Fri Oct 27, 2006 11:49 am

auto-ban

2006-10-26T21:15:17-04:00

if {[botisop $chan || ![channel get $chan joinreban]} { return }
you need to close the bracket after $chan in the [botisop] cmd. That means if the bot is oped in the chan, it won't msg x anything.

ok , fixed the bracket but it still doesn't work ... but i think i've got it wrong

I WANT it to ban the host IF it has it in the internal banlist, i don't think ifisop will be needed .. because the ban will be trough the service bot ..

so the code will be

Code:

setudef flag joinreban bind join -|- joinreban proc joinreban {chan hand nick uhost} {   globan botnick joinread    if {![channel get $chan joinreban]} { return }    if {![isban $hostname $chan] } { return }    if {![isban $hostname] } { return } {     putserv "PRIVMSG X :ban $chan $hostname 1 100 banned"   } }

but still nothing ... please help me understand this ...

Statistics: Posted by mavericku — Thu Oct 26, 2006 9:15 pm

auto-ban

2006-10-26T14:49:18-04:00

if {[botisop $chan || ![channel get $chan joinreban]} { return }

you need to close the bracket after $chan in the [botisop] cmd. That means if the bot is oped in the chan, it won't msg x anything.

Statistics: Posted by Sir_Fz — Thu Oct 26, 2006 2:49 pm

auto-ban

2006-10-26T10:33:52-04:00

You forgot a {

Change:
Code:
proc joinreban {chan hand nick uhost}
to
Code:
proc joinreban {chan hand nick uhost} {

Thank you Tosser^^ the script has loaded without any errors BUT .. it doesn't do nothing..

the script is

Code:

setudef flag joinreban bind join -|- joinreban proc joinreban {chan hand nick uhost} {  globan botnick joinread    if {[botisop $chan ||  ![channel get $chan joinreban]} { return }    if {![isban $hostname $chan] } { return }    if {![isban $hostname] } { return } {     putserv "PRIVMSG X :ban $chan $hostname 1 100 banned"   } }

Code:

[04:27:18] (r0b0t): [17:23] script: test -- loaded without error.[04:27:43] (Piglet`): .chanset #buc +joinreban[04:27:46] (r0b0t): Successfully set modes { +joinreban } on #buc.

Code:

[04:28:43] *** r0b0t sets mode: +b *!*@ACB2105C.ipt.aol.com[04:28:43] *** [#buc] Banned- piggy`[04:28:43] *** [#buc] You were banned by r0b0t[04:29:15] *** piggy` was kicked by r0b0t (Banned: (mavericku) tocmai te-ai ales de un ban idiãt :))[04:28:51] *** Piglet` sets mode: -o MApN[04:29:04] *** [#buc] Inviting piggy` to channel...[04:29:13] *** piggy` (~mave@ACB2105C.ipt.aol.com) has joined #[04:29:15] *** piggy` was kicked by r0b0t (Banned: (mavericku) tocmai te-ai ales de un ban idiãt :))[04:29:37] *** [#buc] Inviting piggy` to channel...[04:29:44] *** piggy` (~mave@ACB2105C.ipt.aol.com) has joined #[04:29:45] *** piggy` was kicked by r0b0t (Banned: (mavericku) tocmai te-ai ales de un ban idiãt :))

now it should privmsg X ban that host .. but on bot party it doesn't show the answer from X (added ban to *!*@host at level 100)
....

anymore advices ...?

Statistics: Posted by mavericku — Thu Oct 26, 2006 10:33 am