egghelp/eggheads community

CPU-draining Proc

2001-11-25T23:21:00-04:00

Try the following

bind time - "0 * * * *" si_logcheck
proc si_logcheck {min hour day month year} {
foreach user [userlist L] {
set m "LD"
if {[matchattr $user B]} { set m "D" }
foreach chan [channels] {
if {[handonchan $user $chan]} {
set m "D"
break
}
}
chattr $user "-${m}"
}
return 1
}

There should be no need to unset the variables used, as they are automaticaly destroyed upon leaving the proc.

Forum has a little bug slennox.

[ This Message was edited by: ppslim on 2001-11-25 20:25 ]

Statistics: Posted by ppslim — Sun Nov 25, 2001 11:21 pm

CPU-draining Proc

2001-11-25T22:21:00-04:00

Change

Code:

if {[handonchan $logged $channel]} { chattr $logged +L}

Code:

if {[handonchan $logged $channel]} { chattr $logged +L        break}

You don't need to continue the loop if that if is true. It won't save a whole lot of CPU, but it should help a little.

Statistics: Posted by Wcc — Sun Nov 25, 2001 10:21 pm

CPU-draining Proc

2001-11-25T22:07:00-04:00

I'm having a problem with a proc in my script. It's causing the bots to put a strain on the cpu, so I was wondering if there is a way I could phrase it better in order to be kinder to the shell. I have dozens of bots running the script and can't afford for them to be so crude with resources.

bind time - "*0 * * * *" si_logcheck

proc si_logcheck {min hour day month year} {
foreach logged [userlist L] {
chattr $logged -LD
if {[matchattr $logged B]} {
chattr $logged +L
}
foreach channel [channels] {
if {[handonchan $logged $channel]} {
chattr $logged +L
}
}
}
unset logged
return 1
}

Basically, I want to periodically (no less often than every 15 minutes) make sure that no user retains flag L unless they are online. This is a security flag, and should allow time for the user to quit and return. I'd appreciate any suggestions.

- Tom
http://www.botservice.net

Statistics: Posted by ClubCX — Sun Nov 25, 2001 10:07 pm