🚀 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 Motyliński Sat, 17 Mar 2007 15:07
wykonanie poleceniecia konsoli bota ze skryptu
#476
Author: Tomasz Motyliński
Date: Sat, 17 Mar 2007 15:07
8 lines
1246 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
#477
Author: Googie
Date: Sun, 18 Mar 2007 20:00
21 lines
1270 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
#478
Author: Tomasz Motyliński
Date: Thu, 22 Mar 2007 11:12
28 lines
1835 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
#479
Author: Googie
Date: Thu, 22 Mar 2007 12:21
18 lines
1555 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
#480
Author: Krzysztof Grabowski
Date: Sat, 24 Mar 2007 19:02
11 lines
1386 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
#481
Author: Neas
Date: Sun, 01 Apr 2007 01:17
20 lines
1408 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
#482
Author: Tomasz Motyliński
Date: Tue, 03 Apr 2007 11:18
17 lines
1628 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