egghelp/eggheads community

check banlist for certain banmasks

2020-08-30T11:22:22-04:00

tried your last post CrazyCat and it seems to work fine tnx alot
i like to thank Caesar too

Statistics: Posted by simo — Sun Aug 30, 2020 11:22 am

check banlist for certain banmasks

2020-08-30T10:03:34-04:00

Ok, I think I understand the errors I made...

Try this:

Code:

bind mode - "#% +b" runbanbind mode - "#% -b" stopbanproc runban {nick uhost handle chan mode target} {if {[string match -nocase m:*!*@* $target]} {set ::btimer($chan) [list [timer 20 [list rmban $chan]]]}}proc stopban {nick uhost handle chan mode target} {if {[string match -nocase m:*!*@* $target]} {rmban $chan}}proc rmban {chan} {if { [array exists ::btimer] && [info exists ::btimer($chan)] } {if { [lsearch -index 2 [timers] $::btimer($chan)] != -1} {killtimer $::btimer($chan)}unset ::btimer($chan)}if { [ischanban m:*!*@* $chan] } {pushmode $chan -b m:*!*@*}}

Errors occured because when timer is ended, it's automaticaly unsetted, so we don't have to manualy kill it.

The 2 difficulties in the script:
- how to well launch the timer and keep its ID. list is the solution
- how to find if the timer exists using its ID. lsearch is the solution

Statistics: Posted by CrazyCat — Sun Aug 30, 2020 10:03 am

check banlist for certain banmasks

2020-08-29T17:03:40-04:00

tried that and got the same error caesar:

Tcl error in script for 'timer33938':
invalid timerID

Statistics: Posted by simo — Sat Aug 29, 2020 5:03 pm

check banlist for certain banmasks

2020-08-29T13:44:56-04:00

Shouldn't it be:

Code:

timer sec [list proc $arg1 $arg2 ...]

I mean shouldn't:

Code:

set ::btimer($chan) [list [timer 20 [rmban $chan]]]

be:

Code:

set ::btimer($chan) [timer 20 [list rmban $chan]]

Statistics: Posted by caesar — Sat Aug 29, 2020 1:44 pm

check banlist for certain banmasks

2020-08-28T13:46:01-04:00

i tried your latest post and the moment i the ban i get

Tcl error [stopban]: invalid timerID

and it unbans instantly

Statistics: Posted by simo — Fri Aug 28, 2020 1:46 pm

check banlist for certain banmasks

2020-08-28T05:17:35-04:00

I made tests and corrected the script, this one may work

Code:

bind mode - "#% +b" runbanbind mode - "#% -b" stopbanproc runban {nick uhost handle chan mode target} {   if {[string match -nocase m:*!*@* $target]} {      set ::btimer($chan) [list [timer 20 [rmban $chan]]]   }}proc stopban {nick uhost handle chan mode target} {   if {[string match -nocase m:*!*@* $target]} {      rmban $chan   }}proc rmban {chan} {   if { [info exists ::btimer($chan)] } {      killtimer $::btimer($chan)      unset ::btimer($chan)   }   if { [ischanban m:*!*@* $chan] } {      pushmode $chan -b m:*!*@*   }}

I've changed the timer creation (timer is now set in an array) and the call of rmban

Statistics: Posted by CrazyCat — Fri Aug 28, 2020 5:17 am

check banlist for certain banmasks

2020-08-27T18:26:02-04:00

When did you got the first error ?
Can you do .set errorInfo when it happens and paste here the result please ?

Statistics: Posted by CrazyCat — Thu Aug 27, 2020 6:26 pm

check banlist for certain banmasks

2020-08-27T15:32:37-04:00

getting these errors:

Tcl error in script for 'timer16203':
wrong # args: should be "rmban chan"

Tcl error in script for 'timer16220':
invalid timerID

Statistics: Posted by simo — Thu Aug 27, 2020 3:32 pm

check banlist for certain banmasks

2020-08-27T14:18:32-04:00

True, I focused on your trouble and forget to remove the ban

You can try the following code, but I've a small doubt about the ischanban usage and I can't test it right now. Tell me if it doesn't work, I'll look deeper.

Code:

bind mode - "#% +b" runbanbind mode - "#% -b" stopbanproc runban {nick uhost handle chan mode target} {   if {[string match -nocase m:*!*@* $target]} {      set ::btimer [list [timer 20 rmban $chan]]   }}proc stopban {nick uhost handle chan mode target} {   if {[string match -nocase m:*!*@* $target]} {      rmban $chan   }}proc rmban {chan} {   if { [info exists ::btimer] } {      killtimer $::btimer      unset ::btimer   }   if { [ischanban m:*!*@* $chan] } {      pushmode $chan -b m:*!*@*   }}

Another way is to have a variable to know if the ban is set or not, but it's the ugly way imho

Statistics: Posted by CrazyCat — Thu Aug 27, 2020 2:18 pm

check banlist for certain banmasks

2020-08-27T12:53:51-04:00

tnx for your reply CrazyCat ive tested it but it doesnt seem to remove the banmask after 20 min if nobody has removed it with -b m:*!*!@

Statistics: Posted by simo — Thu Aug 27, 2020 12:53 pm

check banlist for certain banmasks

2020-08-27T02:51:36-04:00

I'm trying to understand your problem...

An op can add a +b m:*!*@* to mute anyone on the channel, and you want the eggdrop to automaticaly remove it after 20 minutes.
BUT if someone removes the ban, you want to kill the timer.

Code:

bind mode - "#% +b" runbanbind mode - "#% -b" stopbanproc runban {nick uhost handle chan mode target} {   if {[string match -nocase m:*!*@* $target]} {      set ::btimer [list [timer 20 rmban]]   }}proc stopban {nick uhost handle chan mode target} {   if {[string match -nocase m:*!*@* $target]} {      rmban   }}proc rmban {} {   if { [info exists ::btimer] } {      killtimer $::btimer      unset ::btimer   }}

Explanations
The runban proc create the timer, and will run "rmban" at the end of the timer.
The stopban proc directly call the rmban proc
The rmban proc checks if the timer exists, and if it exists, it kills the timer and unset its id.

Statistics: Posted by CrazyCat — Thu Aug 27, 2020 2:51 am

check banlist for certain banmasks

2020-08-26T11:46:58-04:00

i tried various examples i got here: http://forum.egghelp.org/viewtopic.php?t=9941

but none seems to work for me im not sure if that should work for the kkind of timer i use here the: after

Statistics: Posted by simo — Wed Aug 26, 2020 11:46 am

check banlist for certain banmasks

2020-08-26T10:35:27-04:00

i tried using this but it didnt seem to work to stop the timer

Code:

bind mode - "#% -b" timedmutecheckerX2 proc timedmutecheckerX2 {nick uhost hand chan mc ban} {    if {[string match -nocase m:*!*@* $ban]} {   foreach thetimer [timers] {    if {[string equal -nocase timedmutechecker [lindex $thetimer 1]]} {        killtimer [lindex $thetimer 2]         break       }      }    }}

Statistics: Posted by simo — Wed Aug 26, 2020 10:35 am

check banlist for certain banmasks

2020-08-26T01:24:33-04:00

The idea is if anyone sets this ban:

+b m:*!*@*

to have a timer remove it but if some chan op manually removed it with -b m:*!*@* to stop the previous set timer as the ban mask is no longer there to be removed

Statistics: Posted by simo — Wed Aug 26, 2020 1:24 am

check banlist for certain banmasks

2020-08-26T10:36:31-04:00

i was wondering how this could be used to check if banmask m:*!*@* is still in the banlist of channel when the timer expires and triggers the check

because we dont want it to remove something wich is no longer there

Code:

bind mode - "#% +b" timedmutechecker proc timedmutechecker {nick uhost hand chan mc ban} {    if {[string match -nocase m:*!*@* $ban]} {  after [expr {20*1000*60}] [list pushmode $chan -b m:*!*@*] }}

Statistics: Posted by simo — Tue Aug 25, 2020 6:51 pm