egghelp/eggheads community

Delayed /whois queing of channel users

2007-08-06T17:19:34-04:00

You didn't really apply my idea, you created your own Also

Code:

set chanlist [split [string tolower $chanlist]]

$chanlist is a list, so don't apply a [string] command over it (use [join] to convert it to a string). Besides, it's already lowercase so there's no need to apply [string tolower] over it anyway.

Statistics: Posted by Sir_Fz — Mon Aug 06, 2007 5:19 pm

Delayed /whois queing of channel users

2007-08-05T22:56:38-04:00

Add the channels into a list as well and create a timer which will perform a whois on each channel every 2 minutes (you'll remove the channel from the list each time). Example
Code:
if {![info exists chanlist] || $chanlist == {}} { set chanlist [channels]}# whois array of channel at index 0 in $chanlist# remove the first element from $chanlistset chanlist [lreplace $chanlist 0 0]# timer to call proc again...

Okay I devised something like this, just to let you know:

Code:

proc check:ascii:time {m h d mo y} { #check the time interval to perform the scan if {([scan $m %d]+([scan $h %d]*60)) % 30 == 0} { #set list of channels to whois set chanlist [list "#awyeah #miri #urdu"] set chanlist [split [string tolower $chanlist]] #set whois timer set chanwhois 5 #whois each channel foreach chan $chanlist {  utimer $chanwhois [list whois:ascii:users $chan]  incr chanwhois 5  } }}proc whois:ascii:users {chan} { if {[botonchan $chan] && [botisop $chan]} {  foreach user [chanlist $chan] {    if {![isbotnick $user] && ![isop $user $chan] && ![isvoice $user $chan] && ![matchattr [nick2hand $user $chan] mn|mn $chan]} {      puthelp "WHOIS $user"      }    }  }}

Didn't find a need remove the channel names from the list though.

Statistics: Posted by awyeah — Sun Aug 05, 2007 10:56 pm

Delayed /whois queing of channel users

2007-07-24T11:01:23-04:00

Ah thanks Sir_Fz, I will try to implement that.

Statistics: Posted by awyeah — Tue Jul 24, 2007 11:01 am

Delayed /whois queing of channel users

2007-07-24T06:38:52-04:00

Add the channels into a list as well and create a timer which will perform a whois on each channel every 2 minutes (you'll remove the channel from the list each time). Example

Code:

if {![info exists chanlist] || $chanlist == {}} { set chanlist [channels]}# whois array of channel at index 0 in $chanlist# remove the first element from $chanlistset chanlist [lreplace $chanlist 0 0]# timer to call proc again...

Statistics: Posted by Sir_Fz — Tue Jul 24, 2007 6:38 am

Delayed /whois queing of channel users

2007-07-23T22:28:07-04:00

Suppose I want to perform a task of whois all channel users on all channels the bot is on. Some channels may have user counts 100+ as well.

This task might slow the bot, I can manually at utimers and check for each channel with a delay, but how to make this system automated? Any idea? to help for the delay queing. Suppose I want to delay 2mins between the /whois check for every channel. Can't seem to get anything in my head currently, maybe because its just 8:30am here, heh.

Code:

bind time - "*" check:ascii:timeproc check:ascii:time {m h d mo y} { #check the time interval to perform the scan if {([scan $m %d]+([scan $h %d]*60)) % 10 == 0} { #whois channel users foreach chan [split [string tolower [channels]]] {  foreach user [chanlist $chan] {    if {![isbotnick $user] && ![isop $user $chan] && ![isvoice $user chan]} {        puthelp "WHOIS $user"        }      }    }  }}

What I can do is add an array for each channel containing their user list:

Code:

set userlist [list] foreach chan [split [string tolower [channels]]] {  foreach user [chanlist $chan] {    if {![isbotnick $user] && ![isop $user $chan] && ![isvoice $user chan]} {     lappend userlist($chan) $user    }  }}

Now I got the channel user lists in an array, then how to whois every channels array with a specific delay of time in between? The reason is I don't want to whois every channels users at the one time, will heap the queue.

Statistics: Posted by awyeah — Mon Jul 23, 2007 10:28 pm