egghelp/eggheads community

Restrictor.tcl not working

2004-09-09T01:42:42-04:00

Well it doesnt ban because L is deopping as i gave L/Q as user account on my bot, but ill give the putlog's a try a see what its doing

Statistics: Posted by metroid — Thu Sep 09, 2004 1:42 am

Restrictor.tcl not working

2004-09-08T21:27:49-04:00

Try this.

Code:

bind mode - "-*o*" deop:prot proc deop:prot {nick uhost hand chan mode target} {global botnick if {(![channel get $chan paranoid]) || ([string equal -nocase $botnick $nick]) || ([string equal -nocase $target $nick]) || ([matchattr $hand o|o $chan]) || (![string match "*-o*" $mode])} { return 0 }  if {([string match "*-o*" $mode])} && ([string equal -nocase $botnick $target]) && (![string equal "L" $nick])} {  putquick "PRIVMSG [cserve $chan] :chanlev $chan $nick -aovgm"  putquick "PRIVMSG [cserve $chan] :deopall $chan"  putquick "MODE $chan -o+b $nick [maskhost [getchanhost $nick $chan]]" -next  putquick "KICK $chan $nick :Do not abuse your op!" -next; return 0  }}proc cserve {chan} { if {([onchan Q $chan])} { return "Q" }   elseif {([onchan L $chan])} { return "L" }   else { return "" }}

Also try using putlogs in each putquick line so you can check to see which line here is being called more than once, probobaly because -o has been triggered alot of times. It looks fine to me. Maybe another -o mode bind is being triggered or something of the type.

Statistics: Posted by awyeah — Wed Sep 08, 2004 9:27 pm

Restrictor.tcl not working

2004-09-08T16:57:21-04:00

I could use some help here, this is a bug and i have no clue where its coming from.

Code:

bind mode - "* -o" deop:prot proc deop:prot {nick uhost hand chan mode target} { global botnick if {(![channel get $chan paranoid]) || ([string equal -nocase $botnick $nick]) || ([string equal -nocase $target $nick]) || ([matchattr $hand o|o $chan])} { return 0 } if {([string match "*-o*" $mode]) && ($target == "$botnick")} { putquick "PRIVMSG [cserve $chan] :chanlev $chan $nick -aovgm"putquick "PRIVMSG [cserve $chan] :deopall $chan"putserv "MODE $chan +b [maskhost [getchanhost $nick $chan]]" -next putserv "KICK $chan $nick :Do not abuse your op!" -next; return 0 } elseif { ([string match "*-o*" $mode]) && ($target != "")} { putquick "MODE $chan -o+b+o $nick [maskhost [getchanhost $nick $chan]] $target" -next putquick "KICK $chan $nick :Do not abuse your op." -next; return 0 } } proc cserve {chan} {if {[onchan Q $chan]} {return "Q"} elseif {[onchan L $chan]} {return "L"} else {return ""}}

Now what happens when someone deops the bot is this.

Code:

[22:57:07] * rd^ sets mode: -o Q13[22:57:07] * xs4all.nl.quakenet.org sets mode: -oooooo rd^ HauKKa` diabolikal v1per MeTroiD fishbot[22:57:07] * xs4all.nl.quakenet.org sets mode: -o L[22:57:07] * xs4all.nl.quakenet.org sets mode: +o L[22:57:07] * L sets mode: +o Q13[22:57:08] * Q13 sets mode: +b rd^!*@*[22:57:08] * Info: This rd^!*@* ban affects rd^[22:57:08] * L sets mode: +o MeTroiD[22:57:08] -L- Done.[22:57:11] * Q13 sets mode: +b L!*@*[22:57:11] * Info: This L!*@* ban affects @L[22:57:19] * Q13 sets mode: +b fishbot!*@*

It bans everyone that was previously opped

Statistics: Posted by metroid — Wed Sep 08, 2004 4:57 pm

Restrictor.tcl not working

2004-09-07T02:18:54-04:00

Yeah this is why i don't get why the other format didnt work :<

Statistics: Posted by metroid — Tue Sep 07, 2004 2:18 am

Restrictor.tcl not working

2004-09-07T02:00:40-04:00

Haha, okay actually I didn't change anything or do anything new if you look closer.
All I did was grouped all your conditions into one which made it easier to read and to implement.

Next time use putlogs to see the outputs and check them.
E.g. putlog "Banmask: $target"
#To see the banmask banned by the user (in your case)

Statistics: Posted by awyeah — Tue Sep 07, 2004 2:00 am

Restrictor.tcl not working

2004-09-07T01:56:03-04:00

Wow, thanks that actually worked exactly like i wanted it to work :]

Statistics: Posted by metroid — Tue Sep 07, 2004 1:56 am

Restrictor.tcl not working

2004-09-06T23:44:02-04:00

Okay, here try this.
I've reduced most lines into one and shortened it.

Code:

bind mode - "+*b*" ban:protproc ban:prot {nick uhost hand chan mode target} {   global botnickif {(![channel get $chan paranoid]) || ([channel get $chan +enforce]) || ([string equal -nocase $botnick $nick]) || ([matchattr $hand o|o $chan])} { return 0 } if {([string match "*+b*" $mode]) && ($target != "")} {   putquick "MODE $chan -o+b-b $nick [maskhost [getchanhost $nick $chan]] $target" -next   putquick "KICK $chan $nick :Do not ban that address!" -next; return 0   }}

Statistics: Posted by awyeah — Mon Sep 06, 2004 11:44 pm

Restrictor.tcl not working

2004-08-31T13:59:29-04:00

Tried it but it doesnt work.

Statistics: Posted by metroid — Tue Aug 31, 2004 1:59 pm

Restrictor.tcl not working

2004-08-31T10:00:18-04:00

Hopefully provided the modes are not +bb, +bbb or even more heh. (then there might be some adjustment required)

mode changes are broken down into their component parts before being sent here, so the will always be a single mode, such as "+m" or "-o".

Statistics: Posted by user — Tue Aug 31, 2004 10:00 am

Restrictor.tcl not working

2004-08-31T08:09:55-04:00

You can always do:

Code:

putserv "MODE $chan -b $vict"

As 'user' said, it will unban the last placed ban when you bind on +b. Hopefully provided the modes are not +bb, +bbb or even more heh. (then there might be some adjustment required)

Statistics: Posted by awyeah — Tue Aug 31, 2004 8:09 am

Restrictor.tcl not working

2004-08-31T01:24:17-04:00

I've tried something else, and this works but i've seen it get errors sometimes

Code:

bind mode -|-  "* +b" modes:savebanproc modes:saveban {nick host hand chan mode vict} { global lastban  if {($mode == "+b")} {    set lastban($chan) $vict  }}bind mode - "* +b" banprotproc banprot {nick host hand chan mode vict} {  global botnick protector lastbanif {![channel get $chan paranoid]} { return  } if {[channel get $chan enforce]} { return  }   if {![validuser $hand]} {    if {[string tolower $nick] == [string tolower $botnick]} { return }    if {![matchattr $hand o]} {putquick "MODE $chan -b $lastban($chan)"unset lastban($chan)       putquick "MODE $chan -o+b  $nick [maskhost [getchanhost $nick $chan]]"putquick "KICK $chan $nick :$protector(reason)"    }  } }

Statistics: Posted by metroid — Tue Aug 31, 2004 1:24 am

Re: Restrictor.tcl not working

2004-08-30T14:41:19-04:00

Code:

pushmode -b [lindex [expr [llength [chanbans $chan]] -1] 0]

how about

Code:

pushmode $chan -b $vict

Code:
bind mode - "* +b" do_on_ban...putserv "MODE $chan +b [maskhost [getchanhost $nick $chan]]"
seems like there shouldn't be a space in your bind to me...
Code:
bind mode - "*+b*" do_on_ban

The space in the bind is there for a reason. Your bind would match any mode on a channel with "+b" in its name

Statistics: Posted by user — Mon Aug 30, 2004 2:41 pm

Restrictor.tcl not working

2004-08-30T14:04:30-04:00

Yoohoo, The banning works just fine. Its the unbanning, read the post next time plz

Statistics: Posted by metroid — Mon Aug 30, 2004 2:04 pm

Re: Restrictor.tcl not working

2004-08-30T13:43:43-04:00

Code:

bind mode - "* +b" do_on_ban...putserv "MODE $chan +b [maskhost [getchanhost $nick $chan]]"

seems like there shouldn't be a space in your bind to me...

Code:

bind mode - "*+b*" do_on_ban

Also seems like you wouldn't use putserve "MODE $chan +b..., but rather the pushmode command.

Code:

pushmode $chan +b...

Statistics: Posted by YooHoo — Mon Aug 30, 2004 1:43 pm

Restrictor.tcl not working

2004-08-30T08:40:41-04:00

nope, nothing happens :\

Statistics: Posted by metroid — Mon Aug 30, 2004 8:40 am