Serwery perl

[Hardiel]

Wiem ze Ciagle Wam truje ze skryptami a raczej Ci (TQM), ale to juz na dzis ostatni :P
Problem jest nastepujacy:

Mam bota w irssi i podlaczam go do 2 serwerow np.

irc i ircnet i chcialbym zeby np. komenda wydana na irc byla wykonanana na ircnet
Czy jest to realne?
Probowalem na wiele sposobow zawsze zwraca wynik na serwerze na ktorym zostala wydana
Pozdrawiam

[TQM]

Powiem szczerze... nie pamietam
Ostatni raz pod irssi pisalem skrypty jakies hmmmm 5-6 lat temu prawie ale cos mi swita, ze gdzies widzialem gotowy taki skrypt... obraz za mgla i te sprawy hihi ale gdzies to juz widzialem - wykonywanie polecen na kilku serwerach jednoczesnie.

[Hardiel]

Próbowalem na 'hardcorowe' sposoby ze tak powiem typu win 2 (narzucanie okienka) i msg ale zawsze to samo moze by tak rozpisac jakos zmienna $server->command i narzucic gotowy serwer? :>

sub kom {
my ($server, $data, $nick, $rec) = @_;
my ($chan, $text)=split(/ :/, $data, 2);
return unless $nick eq 'Hardiel';
if ($text =~ m/!powitaj (.*)/i) {
$target = $1;
$server->command("msg #lol $target witaj!");
 }
 }
Irssi::signal_add("event privmsg", "kom");

Dodam kod dla przykladu tego $server

[TQM]

Tak jak widac z kodu, irssi przekazuje uchwyt wywolujac handler, tak wiec procedurka ktora napiszesz bedzie dzialac na konkretnym polaczeniu do konkretnego serwera - tego ktory irssi przekazalo jako parametr wywolania funkcji. Musialbys sprawdzic w dokumentacji irssi czy jest mozliwosc zmiany tego jakos z poziomu kodu - mozliwe, ze polaczenia do serwerow beda w jakiejs tablicy czy cos... ale jedyne co moge tutaj powiedziec to RTFM lub UTSL ('Use the source, Luke') bo najzwyczajniej nie mam pojecia. Nigdy tego nie robilem w swoim kodzie.

[Hardiel]

Wiele szukałem w dokumentacij zawsze sie tam odwoluja do [serwer] i wtedy trzeba zmienna $server zastosowac ale nigdzie nei uwzglednili jak ta zmienna sie rozbija I tu jest problem trudno odpuszcze sobie dzieki za proby
Pozdrawiam