🚀 go-pugleaf

bind time - "?9 * * * *" time:whois

proc time:whois {min hour day month year} {
foreach chan [split [channels] " "] {
        if {[channel get $chan voicecommand] && [botisop $chan]} {
                foreach nick [split [chanlist $chan v|v] " "] {
                        if {([isbotnick $nick] == 0)} {
                                putserv "WHOIS $nick"
                                putlog "sending WHOIS $nick"
                                }
                        }
                }
        }
return 0
}

bind RAW - 317 tools:whois:idle
proc tools:whois:idle {from key arg} {
set nick [lindex [split $arg] 1]
set idle [lindex [split $arg] 2]
foreach chan [split [channels] " "] {
        if {[channel get $chan voicecommand] && [botisop $chan] &&
([isbotnick $nick] == 0)
} {
                putlog "$nick idle: $idle"
                if {[isvoice $nick $chan] && ($idle > 3600)} {
                        pushmode $chan -v $nick
                        putlog "mode $chan -v $nick"
                        }
                if {([isvoice $nick $chan] == 0) && ($idle <= 3600)} {
                        pushmode $chan +v $nick
                        putlog "mode $chan +v $nick"
                        }
                }
        }
}


-- 
Tomasz Motyliński
"Linux jest dla leniwych, raz zainstalowany działa wiecznie"
... i do tego jaki ładny :) http://satfilm.pl/~motto77/mydesktop.jpg
http://debian.linux.pl/ - Polskie Forum Użytkowników Debiana