NET :: Chat :: Daemon NET :: Chat :: Daemon es un módulo Perl para ejecutar un demonio que se controla a través de la mensajería instantánea.
Descargar ahora

NET :: Chat :: Daemon Clasificación y resumen

NET :: Chat :: Daemon Etiquetas

instante Mensajería instantánea mensajería Módulo perl Demonio perl

NET :: Chat :: Daemon Descripción

NET :: Chat :: Daemon es un módulo Perl para ejecutar un demonio que se controla a través de mensajes instantáneos. Net :: Chat :: Daemon es un módulo Perl para ejecutar un demonio controlado a través de mensajes instantáneos. El paquete está diseñado para servir como una superclase para los objetos que desean comunicarse a través de mensajes de mensajería instantánea dentro de una red distribuida de nodos cliente y un coordinador. , sin lidiar con las complejidades o detalles de la implementación de obtener realmente los mensajes de un lugar a otro. Pretende ser neutral de protocolo, pero por ahora y el futuro concebible solo funcionará con un transporte Jabber. (Utiliza directamente los objetos de mensaje y las cosas que regresa Jabber.) Tenga en cuenta que este paquete no le ayudará a implementar un servidor de mensajería instantánea. Este paquete es para escribir servidores que se comunican con otras entidades a través de mensajes instantáneos: los servidores escritos usando este paquete son mensajes instantáneos * Clientes * .synopsis paquete mi :: servidor; Use Base 'Net :: Chat :: Daemon'; Sub Manudenhello {volver "Hola también a ti"; } Sub Handlesave {My ($ FileName, $ File) = @_; Devuelva "denegado" a menos que $ FILENAME = ~ /^ =.W◆ Abrir (MIS $ FH, "> / VAR / Repository / $ FileName") o devolver "Fallido: $!"; Imprimir $ FH $ FILO; Cerrar $ FH o devolver "Fallido: $!"; volver "OK"; } Sub Somemethod {My ($ Self, @Args) = @_; . . . } Sub New {My ($ clase, $ usuario,% opciones) = @_; Devolver $ Class-> Super :: New (% Opciones, Comandos => {'CallMethod' => 'Somemethod', 'Guardar' => Handlesave}); } Paquete principal; My $ Server = My :: Server-> Nuevo ('MyUserid@jabber.org '); $ servidor-> proceso (); # o para hacerlo todo en un solo paso, y volver a intentar conexiones durante 5 minutos # (300 segundos) antes de no haber sido debido a problemas que llegan al servidor: My :: Server-> Ejecute ('myuserid@jabber.org ', reintentar => 300 ); Cuando ejecuta esto, debería poder enviar un mensaje a userid@jabber.org que dice "Hola" y recupere una respuesta, o "CallTethod ABC" para llamar al método con los argumentos dados. Para usar el "Guardar "Comando, deberá usar un cliente de línea de comandos capaz de enviar archivos adjuntos en el formato esperado por este servidor (actualmente no usa ningún formato estándar de envío de archivos). El comando Jabber empaquetado con este módulo puede hacer esto a través de La opción de línea de comandos -A -UNA Nota en la implementación: cuando escribí por primera vez, realmente solo se pretendía que se usara con Jabber. El código no se ha reestructurado completamente para eliminar este supuesto. Requisitos: · Requisitos de Perl: · Perl

NET :: Chat :: Daemon Software relacionado