egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2010-04-01T13:50:04-04:00 https://forum.eggheads.org/app.php/feed/topic/17682 2010-04-01T13:50:04-04:00 2010-04-01T13:50:04-04:00 https://forum.eggheads.org/viewtopic.php?p=92667#p92667 <![CDATA[timer]]>
Also, you could easily replace all those for-loops and multiple lindex operations with a simple foreach-loop.

As for the logics, should a user be deauth'd if (s)he's idle on a single channel (even if (s)he's been active on any other), or does (s)he have to be idle on all channels?

Finally, how do you trigger the code? Timers/utimers, time binding, other event?

That said, here's a cleanup of your code sofar:

Code: 

proc auth_idle {} { global authflag foreach chan [channels] {  foreach nick [chanlist $chan $authflag] {   if {[getchanidle $nick $chan] > 60 && [hand2idx [nick2hand $nick]] == -1} {    putlog "$nick Idle over 60 minutes. Deauthenticated."    chattr $hand "-${authflag}"    putserv "NOTICE $nick :Idle over 60 minutes. Deauthenticated."   }  } }}

Statistics: Posted by nml375 — Thu Apr 01, 2010 1:50 pm

]]> 2010-03-31T22:59:04-04:00 2010-03-31T22:59:04-04:00 https://forum.eggheads.org/viewtopic.php?p=92663#p92663 <![CDATA[timer]]>

proc auth_idle {} {
global _auth authflag

set idletime 1
set chans [channels]
set chan_tot [llength $chans]
set chan_num 0
for {set loop 0} {$loop < $chan_tot} {incr loop} {
set nicks [chanlist [lindex $chans $loop] $authflag]
set nickidle 1
set nick_tot [llength $nicks]
for {set loop2 0} {$loop2 < $nick_tot} {incr loop2} {
set idletime [getchanidle [lindex $nicks $loop2] [lindex $chans $loop]]
if {$idletime >= $nickidle} {set nickidle $idletime}
if {($idletime > 60)} {
set nick [lindex $nicks $loop2]
set hand [nick2hand [lindex $nicks $loop2]]
if {[hand2idx $hand] == -1} {
putlog "$nick Idle over 60 minutes. Deauthenticated."
chattr $hand "-${authflag}"
putserv "NOTICE $nick :Idle over 60 minutes. Deauthenticated."
}
}
}
}

Statistics: Posted by dfxrick — Wed Mar 31, 2010 10:59 pm

]]>