🥇 Script curto irssi para todos os eventos do servidor

Levei muito tempo para entender a documentação do irssi sobre como escrever um script Perl e conectá-lo aos sinais (eventos) fornecidos pelos módulos do irssi.

Aqui está um script mínimo que explora o sinal mais básico, “evento do servidor”. Espero que forneça um começo de trabalho para experimentar a documentação de sinais brutos ( http://irssi.org/documentation/signals ).

sub server_event {
  my ($server, $data, $nick, $address) = @_;
  print "$nick, $address, $data"
}
Irssi::signal_add("server event", "server_event");

Coloque isso em ~ / .irssi / scripts / minimal.pl e carregue com “/ script run minimal”.

Related Posts