Poe :: Componente :: IRC Poe :: Component :: O IRC é um módulo de cliente IRC dirigido por evento.
Baixe Agora

Poe :: Componente :: IRC Classificação e resumo

Poe :: Componente :: IRC Tag

Cliente do IRC. Módulo Perl. perl módulo IRC dirigido por eventos

Poe :: Componente :: IRC Descrição

PoE :: Componente :: O IRC é um módulo de cliente de IRC dirigido por evento. Poe :: Component :: O IRC é um módulo de cliente de IRC dirigido por evento.Synopsis # uma simples rot 43 'criptografia' bot rigoroso; use avisos; Use PoE QW (Componente :: IRC); meu apelido $ = 'fliblble'. $$; Meu $ IRCNAME = 'flibler o bot do marinheiro'; meu $ ircserver = 'irc.blahblahbla.irc'; minha US $ porto = 6667; minhas @channels = ('#blah', '#foo', '#bar'); # Criamos um novo objeto e componentes Poco-IRC. Meu $ IRC = PoE :: Componente :: IRC-> Spawn (nick => $ nickname, servidor => $ Ircserver, port => $ porta, ircname => $ ircname,) ou morrer "oh noooo! $!"; Poe :: Session-> Create (Package_States => ,], heap => {IRC => $ IRC},); $ poe_kernel-> correr (); saída 0; sub _start {my ($ kernel, $ heap) = @_ ; # Recebemos o ID da sessão do componente do objeto # e registre-se e conecte-se ao servidor especificado. Meu $ IRC_SESSION = $ heap -> {irc} -> session_id (); $ kernel-> post ($ irc_session => Register => 'tudo'); $ Kernel-> Post ($ IRC_SESSION => connect => {}); undef; } Sub IRC_001 {MY ($ Kernel, $ remetente) = @_ ; # Obtenha o objeto do componente a qualquer momento acessando o monte de # o remetente Meu $ Poco_Object = $ remetente-> get_heap (); Imprimir "conectado a", $ poco_object-> server_name (), "n"; # Em qualquer remetente de eventos IRC_ * será a sessão Poco-IRC $ kernel-> post ($ remetente => junção => $ _) para @channels; undef; } Sub IRC_Public {My ($ Kernel, $ remetente, $ OMS, $ where, $ o que) = @_ ; Meu $ Nick = (Split /! /, $ OMS) ; meu $ canal = $ onde -> ; Se (meu ($ ROT13) = $ o que = ~ / ^ ROT13 (. +) /) {$ ROT13 = ~ tr ; $ Kernel-> Post ($ Sender => PrivMsG => $ Canal => "$ Nick: $ ROT13"); } Redef; } # Registramos para todos os eventos, isso produzirá algumas informações de depuração. sub _default {my ($ event, $ args) = @_ ; meu @Output = ("$ Event:"); foreach my $ arg (@ $ args) {if ($ arg) eq 'array') {push (@Output, " O POE :: Componente :: Distribuição do IRC tem um documento / pasta com uma coleção de documentação saliente, incluindo O PERTINENT RFCS.POE :: componente :: IRC consiste em uma sessão PoE :: que gerencia a conexão do IRC e despache os eventos prefixados 'IRC_' para sessões interessadas e um objeto que pode ser usado para acessar informações adicionais usando os métodos. interesse em receber eventos 'IRC_' enviando 'Registrar' para o componente. Normalmente, isso faria isso no seu manipulador _start. Sua sessão continuará a receber eventos até que você "desreigasse". O componente continuará a ficar por perto até que você diga que não com 'Shutdown'. A sinopse demonstra um Bot Basic Bot.Requirements: · Requisitos de Perl: · Perl.

Poe :: Componente :: IRC Software Relacionado