Poe :: Componente :: IRC PoE :: Componente :: IRC es un módulo de cliente IRC completamente impulsado por eventos.
Descargar ahora

Poe :: Componente :: IRC Clasificación y resumen

Poe :: Componente :: IRC Etiquetas

Cliente IRC Módulo perl perla módulo IRC impulsado por el evento

Poe :: Componente :: IRC Descripción

PoE :: Componente :: IRC es un módulo de cliente IRC completamente impulsado por eventos. PoE :: Componente :: IRC es un module de cliente IRC totalmente impulsado por eventos. HSYNOPSIS # A Simple Pod13 'Cifrado' Bot usa estricto; usar advertencias; Use Poe QW (Componente :: IRC); My $ NickName = 'BLATBLE'. $$; My $ IRCNAME = 'BRIBLE EL BOTOR DE SAILOR'; My $ IRCSERVER = 'IRC.BLAHBLAHBLAH.IRC'; mi $ puerto = 6667; Mis @Channels = ('#Blah', '#foo', '#bar'); # Creamos un nuevo objeto POCO-IRC y componente. MY $ IRC = POE :: Componente :: IRC-> Spawn (Nick => $ NickName, Server => $ IRCServer, Port => $ Puerto, IRCNAME => $ IRCNAME,) O DIE "OH NOOOOO! $!"; PoE :: Session-> Crear (Package_States => ,], montón => {IRC => $ IRC},); $ poe_kernel-> corre (); Salida 0; sub _start {my ($ kernel, $ $ montones) = @_ ; # Recibimos el ID de sesión del componente del objeto # y registre y conecte al servidor especificado. My $ IRC_SESION = $ Heap -> {IRC} -> session_id (); $ KERNEL-> POST ($ IRC_SESION => Registrarse => 'all'); $ kernel-> POST ($ IRC_SESSION => CONECT => {}); Undef; } sub irc_001 {my ($ kernel, $ sender) = @_ ; # Obtenga el objeto del componente en cualquier momento al acceder al montón de # el remitente MY $ POCO_OBJJECT = $ SENDER-> get_heap (); Imprimir "conectado a", $ POCO_OBJECT-> Server_name (), "N"; # En cualquier IRC_ * Eventos El remitente será la sesión POCO-IRC $ KERNEL-> POST ($ SENDER => Únase => $ _) para @Channels; Undef; } sub irc_public {my ($ kernel, $ sender, $ who, $ donde, $ cual) = @_ ; My $ Nick = (Split /! /, $ WHO) ; My $ Channel = $ Dónde -> ; Si (MIS ($ ROT13) = $, ¿qué = ~ / ^ rot13 (. +) /) {$ rot13 = ~ tr ; $ kernel-> Publicar ($ Sender => Privmsg => $ Channel => "$ Nick: $ ROT13"); } UNDEF; } # Nos registramos para todos los eventos, esto producirá una información de depuración. sub _default {my ($ evento, $ args) = @_ ; mi @output = ("Evento $:"); foreach My $ arg (@ $ args) {if (ref ($ arg) EQ 'Array') {Push (@output ""); } else {push (@output, "'$ arg'"); }} imprimir stdout unirse '', @output, "n"; retorno 0; } PoE :: Componente :: IRC es un componente POE (¿quién había adivinado?) Que actúa como un cliente IRC fácilmente controlable para sus otros componentes y sesiones de POE. Usted crea un componente IRC y le dice qué eventos se preocupa por su sesión y dónde conectarse, y envía eventos de IRC interesantes cuando suceden. Haces que el cliente haga las cosas enviándolos eventos. Eso es todo al respecto. Genial, ¿no? El POE :: Componente :: IRC Distribution tiene una carpeta Docs / con una colección de documentación saliente incluyendo The Pertinent RFCS.poe :: Componente :: IRC consiste en una PoE :: Sesión que gestiona la conexión IRC y envíe los eventos prefijados de IRC_ 'a las sesiones interesadas y un objeto que se puede usar para acceder a la información adicional utilizando métodos.Sessions Registre su Interés en la recepción de eventos 'IRC_' enviando 'Registro' al componente. Uno generalmente lo haría en tu manejador _start. Su sesión continuará recibiendo eventos hasta que usted 'no registrarse'. El componente continuará permaneciendo hasta que le dirá que no lo dirá con 'cierre'. La sinopsis demuestra un BOT bastante básico. Requisitos: · Requisitos de Perl: · Perl

Poe :: Componente :: IRC Software relacionado