🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: pl.comp.lang.tcl
7 messages
7 total messages Started by Tomasz =?ISO-885 Sat, 17 Mar 2007 16:07
wykonanie poleceniecia konsoli bota ze skryptu
#403
Author: Tomasz =?ISO-885
Date: Sat, 17 Mar 2007 16:07
10 lines
348 bytes
Kto¶ wie, jak np. wykonaæ polecenie .say ze skryptu? Nie pytam co zrobiæ aby
bot przemówi³, pytam jak wykonaæ polecenie konsoli.

--
Tomasz Motyliñski
Linux jest dla leniwych, raz zainstalowany dzia³a wiecznie
... i do tego jaki ³adny :) http://artbhp.pl/~motto/screens/mydesktop.jpg
http://debian.linux.pl/ - Polskie Forum U¿ytkowników Debiana


Re: wykonanie poleceniecia konsoli bota ze skryptu
#404
Author: Googie
Date: Sun, 18 Mar 2007 21:00
20 lines
368 bytes
Tomasz Motyliñski wrote:

> Kto¶ wie, jak np. wykonaæ polecenie .say ze skryptu? Nie pytam co
> zrobiæ aby bot przemówi³, pytam jak wykonaæ polecenie konsoli.
>

putserv "PRIVMSG #kanal :jakas tresc"

albo napisac sobie do tego procedure:

proc {chan txt} {
        putserv "PRIVMSG $chan :$txt"
}

i wtedy:

say #kanal "jakas tresc"

--
Pozdrawiam (Regards)!
Googie
Re: wykonanie poleceniecia konsoli bota ze skryptu
#405
Author: Tomasz =?ISO-885
Date: Thu, 22 Mar 2007 12:12
30 lines
807 bytes
 Witam,

 W po¶cie <etk5kp$5rd$1@atlantis.news.tpi.pl>
 Googie <googie@nospam.0rg> m.in. napisa³(a)::

> putserv "PRIVMSG #kanal :jakas tresc"
putquick dziala szybiej. Nie o to jednak pyta³em, pyta³em jak wykonaæ
polecenie konsoli, say by³ przyk³adem nie konkretna potrzeb±.

> proc {chan txt} {
>         putserv "PRIVMSG $chan :$txt"
> }

I tak takow± napisaæ trzeba je¶li chce siê, aby say dzia³a³o na !chan tylko
¿e wygl±daæ ona powinna tak:

proc say {dest text} {
if {([string index $dest 0] == "!")} {set dest [chandname2name $dest]}
putquick "PRIVMSG $dest :$text"
}

Pozdrawiam

--
Tomasz Motyliñski
Linux jest dla leniwych, raz zainstalowany dzia³a wiecznie
... i do tego jaki ³adny :) http://artbhp.pl/~motto/screens/mydesktop.jpg
http://debian.linux.pl/ - Polskie Forum U¿ytkowników Debiana


Re: wykonanie poleceniecia konsoli bota ze skryptu
#406
Author: Googie
Date: Thu, 22 Mar 2007 13:21
17 lines
552 bytes
Tomasz Motyliñski wrote:
>> putserv "PRIVMSG #kanal :jakas tresc"
> putquick dziala szybiej.

O to nie pyta³e¶ :) Tak czy inaczej - putquick od putserv ró¿ni siê
tylko tym, ¿e wstawia wiadomo¶æ na pocz±tek kolejki, a putserv na
koniec. Przy du¿ym obci±¿eniu nie poczujesz ró¿nicy.

> Nie o to jednak pyta³em, pyta³em jak wykonaæ
> polecenie konsoli, say by³ przyk³adem nie konkretna potrzeb±.
>

Wywo³ywanie poleceñ konsolowych bota nie jest mo¿liwe w zwyczajny sposób
z poziomu skryptu. Ratuje jedynie modu³ w C.

--
Pozdrawiam! (Regards!)
Googie
Re: wykonanie poleceniecia konsoli bota ze skryptu
#408
Author: Krzysztof Grabow
Date: Sat, 24 Mar 2007 20:02
13 lines
515 bytes
Dnia Thu, 22 Mar 2007 13:21:59 +0100
Googie <no@spam.0rg> napisał(a):

> Wywoływanie poleceń konsolowych bota nie jest możliwe w zwyczajny
> sposób z poziomu skryptu. Ratuje jedynie moduł w C.

Hmm, jest możliwe, ale wymaga pewnych informacji jak handle
oraz idx. Dla say będzie to: *dcc:say handle idx arg

Polecam przejrzeć wynik komendy .tcl binds *dcc wywołanej z poziomu
bota, powinna ona wywalić listę dostępnych komend wpisanych konsoli.
Re: wykonanie poleceniecia konsoli bota ze skryptu
#413
Author: Neas
Date: Sun, 01 Apr 2007 03:17
19 lines
601 bytes
Tomasz Motyliński pisze:

>> putserv "PRIVMSG #kanal :jakas tresc"
> putquick dziala szybiej. Nie o to jednak pytałem, pytałem jak wykonać
> polecenie konsoli, say był przykładem nie konkretna potrzebą.

Używanie putquick do PRIVMSG to nonsens.

>> proc {chan txt} {
>>         putserv "PRIVMSG $chan :$txt"
>> }
>
> I tak takową napisać trzeba jeśli chce się, aby say działało na !chan tylko
> że wyglądać ona powinna tak:

Powyższe też będzie działało, wystarczy podać pełną nazwę kanału z
prefiksem.

--
http://www.insane.pl -- serwery wirtualne od 29 zł + VAT rocznie
Re: wykonanie poleceniecia konsoli bota ze skryptu
#415
Author: Tomasz =?ISO-885
Date: Tue, 03 Apr 2007 13:18
19 lines
500 bytes
 Witam,

 W po¶cie <460f081f$1@news.home.net.pl>
 Neas <neas@neas.invalid> m.in. napisa³(a)::

> Powy¿sze te¿ bêdzie dzia³a³o, wystarczy podaæ pe³n± nazwê kana³u z
> prefiksem.

if {([string index $dest 0] == "!")} {set dest [chandname2name $dest]}

A co to robi wed³ug ciebie? :)

--
Tomasz Motyliñski
Linux jest dla leniwych, raz zainstalowany dzia³a wiecznie
... i do tego jaki ³adny :) http://satfilm.net.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