egghelp/eggheads community

[SOLVED] help with check for activity

2009-09-22T17:02:27-04:00

Thanks, I am actually looking for activity by users, not the channel in general. but I should be able to adapt this.

getchanidle

Returns: number of minutes that person has been idle; 0 if the specified user isn't on the channel

Module: irc

Statistics: Posted by speechles — Tue Sep 22, 2009 5:02 pm

[SOLVED] help with check for activity

2009-09-22T13:52:06-04:00

Thanks, I am actually looking for activity by users, not the channel in general. but I should be able to adapt this.

Statistics: Posted by asim — Tue Sep 22, 2009 1:52 pm

[SOLVED] help with check for activity

2009-09-22T07:46:47-04:00

Limited testing done, but seems OK

Code:

# logs a timestamp for the last channel event in all the bots channels# an event is normal channel chat, channel notice or onotice, channel action# calling 'pActivityReturn #channelname' will return 0 (inactive) or 1 (active)# according to the preconfigured time limit# example# if {[pActivityReturn #botchannel]} {#     code here# }# set here a time limit in seconds# if the last channel event occurred within this time limit, the channel is deemed activeset vActivityTime 3600bind CTCP - ACTION pActivityCtcpbind NOTC - * pActivityNotcbind PUBM - * pActivityPubmproc pActivityCtcp {nick uhost hand dest keyword text} {    global vActivityCurrent    set channel [string tolower $dest]    set vActivityCurrent($channel) [unixtime]    return 0}proc pActivityNotc {nick uhost hand text dest} {    global vActivityCurrent    if {[regexp -- {^#} [string trimleft $dest @]]} {        set channel [string tolower [string trimleft $dest @]]        set vActivityCurrent($channel) [unixtime]    }    return 0}proc pActivityPubm {nick uhost hand chan text} {    global vActivityCurrent    set channel [string tolower $chan]    set vActivityCurrent($channel) [unixtime]    return 0}proc pActivityReturn {chan} {    global vActivityCurrent vActivityTime    set channel [string tolower $chan]    if {[info exists vActivityCurrent($channel)]} {        set now [unixtime]        set elapsed [expr {$now - $vActivityCurrent($channel)}]        if {$elapsed <= $vActivityTime} {            return 1        }    }    return 0}# eof

Statistics: Posted by arfer — Tue Sep 22, 2009 7:46 am

[SOLVED] help with check for activity

2009-09-21T17:51:04-04:00

correct any message or action in the channel. just some sign of interaction, although if it makes it easier to just do activity based on chat text that is fine.

Statistics: Posted by asim — Mon Sep 21, 2009 5:51 pm

[SOLVED] help with check for activity

2009-09-21T17:46:28-04:00

What exactly do you mean by activity? messages in the channel?

Statistics: Posted by Sir_Fz — Mon Sep 21, 2009 5:46 pm

[SOLVED] help with check for activity

2009-09-22T13:52:33-04:00

Ok, i have a script and I would like to modify it to check for activity in the channel before giving credit.

Here is the code:

Code:

proc out_bonus { min hour day month year} {set sql [mysqlconnect -h HOST -u USERNAME -password PASSWD -db DBNAME ]foreach user [chanlist #TheStash] {if {$user != "velvet" && $user != "stash" && $user != "destiny"} {set clock [ clock format [clock seconds] -format {%b. %d, %Y %I:%M:%S %p}] set query [ mysqlquery $sql "UPDATE users SET seedbonus = seedbonus + 0.6 WHERE username=\'$user\'"]}}set user [chanlist #thestash]set clock [ exec sh -c { date  +'%Y-%m-%d %R:%S'} ]set query [ mysqlquery $sql "INSERT DELAYED INTO sitelog \(added, txt\) VALUES\(\'$clock\', \'Added 0.6 Point to $user for irc\'\)" ]mysqlclose $sql}bind time - "?0 * * * *" out_bonus

Velvet, Stash, Destiny are the name of bots in the channel. I am just not sure the best way to check for activity before awarding the bonus points.

Thanks in advance for the help.

Statistics: Posted by asim — Mon Sep 21, 2009 2:44 pm