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 =?ISO-885 Wed, 01 Aug 2007 13:26

#440

Author: Tomasz =?ISO-885
Date: Wed, 01 Aug 2007 13:26

12 lines
346 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

#441

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

12 lines
236 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

#442

Author: Tomasz =?ISO-885
Date: Thu, 02 Aug 2007 00:04

16 lines
388 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?

#444

Author: Tomasz =?ISO-885
Date: Thu, 02 Aug 2007 11:35

45 lines
1470 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