whois idle

Thread View: pl.comp.lang.tcl

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by Tomasz Motyliński Wed, 01 Aug 2007 11:26

#507

Author: Tomasz Motyliński
Date: Wed, 01 Aug 2007 11:26

10 lines
1291 bytes

Witam,

Potrzebuje funkcję zwracającą w minutach IDLE ircownika tą z WHOIS a nie ta
z getchanidle. Istnieje takowa w tcl egdropa?

-- 
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

Re: whois idle

#508

Author: Googie
Date: Wed, 01 Aug 2007 19:49

13 lines
1052 bytes

Tomasz Motyliński wrote:

> Witam,
> 
> Potrzebuje funkcję zwracającą w minutach IDLE ircownika tą z WHOIS a
> nie ta z getchanidle. Istnieje takowa w tcl egdropa?
> 

A orientujesz się w protokole IRC?

-- 
Pozdrawiam (Regards)!
Googie

Re: whois idle

#509

Author: Tomasz Motyliński
Date: Wed, 01 Aug 2007 22:04

14 lines
1440 bytes

 Witam,

 W poście <f8qo69$cd$1@nemesis.news.tpi.pl>
 Googie <googie@nospam.0rg> m.in. napisał(a)::

> A orientujesz się w protokole IRC?

Już tak. Sam sobie napisałem :) 

-- 
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

Re: whois idle - co tu mozna poprawic?

#510

Author: Tomasz Motyliński
Date: Thu, 02 Aug 2007 09:35

43 lines
2624 bytes

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads