egghelp/eggheads community

add exceptions in idle tcl

2016-12-06T02:51:12-04:00

Strange, it has worked for me in the past. Alternatively, as the exemptlist is a list, you could lsearch to match.

Statistics: Posted by Get_A_Fix — Tue Dec 06, 2016 2:51 am

add exceptions in idle tcl

2016-12-05T20:20:31-04:00

tnx SpiKe^^ ill try that and test it

Statistics: Posted by simo — Mon Dec 05, 2016 8:20 pm

add exceptions in idle tcl

2016-12-05T18:08:18-04:00

That won't work, that's not how string match wants its stuff...

I might remove this entire line

Code:

if {[string match -nocase $exemptlist $nick] || [string match $exemptlist [getchanhost $nick $channel]]} {return}

and replace it with something more like

Code:

  set uhost [getchanhost $nick $channel]  foreach mask $exemptlist {    if {[string match -nocase $mask $nick!$uhost]} {  return  }  }

Then in the exempt list setting use fully qualified irc masks (nick!username@host)

so to exempt a nick: somenick!*
exempt a masked host: *@*.some.domain.com
etc..................

goodluck

Statistics: Posted by SpiKe^^ — Mon Dec 05, 2016 6:08 pm

add exceptions in idle tcl

2016-12-05T13:56:41-04:00

tested it it doesnt seem to exempt

this is what i have so far:

Code:

# Set nickname or host exemptionsset exemptlist {  "^__^"  "*.I.Am.Me."} # - Using -# Type in partyline:# .chanset #help maxidle # If set 0 channel's check will be ignored.# Punishing method (1 = Kick, 2 = Kick/Ban)set pmethod 2# Ban time in minutes.set bantime 1# Kick's reasonset aidlereason "14,1IPT Account help ONLY! state your user name and issue then wait patiently. Do NOT spam the channel. 4NO IDLING! 4DO NOT ASK FOR INVITES HERE! DO NOT PM ANYONE HERE!"# Exception's flagsset flags f|f# Kick op? (0 = Yes, 1 = No)set kickop 1# Kick voice? (0 = Yes, 1 = No)set kickvoice 1#Check for idling users every minutes.bind time - * aidle:checkidlesetudef int maxidleproc aidle:checkidle { min hour day month year } {global botnick flags kickop kickvoiceforeach chan [channels] {if {![channel get $chan "maxidle"]} {continue}foreach nick [chanlist $chan] {if {$nick == $botnick} {continue}if {([isop $nick $chan]) && ($kickop)} {continue}if {([isvoice $nick $chan]) && ($kickvoice)} {continue}if {[matchattr [nick2hand $nick] $flags] == 1} {continue}if {[getchanidle $nick $chan] > [channel get $chan "maxidle"]} {aidle:punish $chan $nick [channel get $chan "maxidle"]}}}}proc aidle:punish { channel nick idletime } {#global pmethod aidlereason bantimeglobal exemptlist pmethod aidlereason bantime if {[string match -nocase $exemptlist $nick] || [string match $exemptlist [getchanhost $nick $channel]]} {return} regsub -all "%idletime" $aidlereason $idletime aidlereasonswitch $pmethod {1 { putquick "MODE $channel -qaho $nick $nick $nick $nick"  -next }3 {  putserv "KICK $channel $nick :$aidlereason"  }2 {       #putserv "KICK $channel $nick :$aidlereason"                        # putquick "MODE $channel -qaho $nick $nick $nick $nick"        putquick "MODE $channel -qaho $nick $nick $nick $nick"  -next                        #utimer 300 "pushmode $channel -b *!*@[lindex [split [getchanhost $nick $channel] @] 1]"  }}}

Statistics: Posted by simo — Mon Dec 05, 2016 1:56 pm

add exceptions in idle tcl

2016-12-05T11:41:55-04:00

thnx Get_A_Fix edited it and testing will let you know about results

Statistics: Posted by simo — Mon Dec 05, 2016 11:41 am

add exceptions in idle tcl

2016-12-04T21:30:09-04:00

First, set the exempt list in the settings area.

Code:

# Set nickname or host exemptionsset exemptlist {  "bob"  "*.host.mask.etc"}

Then, you'd want to add the argument to your list of globals in the aidle:punish proc.

Code:

global exemptlist pmethod aidlereason bantime

And finally, a string match to the aidle:punish procedure.

Code:

if {[string match -nocase $exemptlist $nick] || [string match $exemptlist [getchanhost $nick $channel]]} {return}

Statistics: Posted by Get_A_Fix — Sun Dec 04, 2016 9:30 pm

add exceptions in idle tcl

2016-12-04T11:29:54-04:00

how to add exeptions for nicks/hosts in this anti idle tcl

Code:

# - Using -# Type in partyline:# .chanset #help maxidle # If set 0 channel's check will be ignored.# Punishing method (1 = Kick, 2 = Kick/Ban)set pmethod 2# Ban time in minutes.set bantime 1# Kick's reasonset aidlereason "4NO IDLING! "# Exception's flagsset flags f|f# Kick op? (0 = Yes, 1 = No)set kickop 1# Kick voice? (0 = Yes, 1 = No)set kickvoice 1#Check for idling users every minutes.bind time - * aidle:checkidlesetudef int maxidleproc aidle:checkidle { min hour day month year } {global botnick flags kickop kickvoiceforeach chan [channels] {if {![channel get $chan "maxidle"]} {continue}foreach nick [chanlist $chan] {if {$nick == $botnick} {continue}if {([isop $nick $chan]) && ($kickop)} {continue}if {([isvoice $nick $chan]) && ($kickvoice)} {continue}if {[matchattr [nick2hand $nick] $flags] == 1} {continue}if {[getchanidle $nick $chan] > [channel get $chan "maxidle"]} {aidle:punish $chan $nick [channel get $chan "maxidle"]}}}}proc aidle:punish { channel nick idletime } {global pmethod aidlereason bantimeregsub -all "%idletime" $aidlereason $idletime aidlereasonswitch $pmethod {1 { putquick "MODE $channel -qaho $nick $nick $nick $nick"  -next }3 {  putserv "KICK $channel $nick :$aidlereason"  }2 {       #putserv "KICK $channel $nick :$aidlereason"                        # putquick "MODE $channel -qaho $nick $nick $nick $nick"        putquick "MODE $channel -qaho $nick $nick $nick $nick"  -next                        #utimer 300 "pushmode $channel -b *!*@[lindex [split [getchanhost $nick $channel] @] 1]"  }}}

Statistics: Posted by simo — Sun Dec 04, 2016 11:29 am