NET :: MRIM

NET :: MRIM es una implementación de Perl de Protocolo de Agente de Mail.Ru.
Descargar ahora

NET :: MRIM Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • Alexandre Aufrere
  • Sitio web del editor:
  • http://search.cpan.org/~aau/Net-MRIM-1.08/MRIM.pm

NET :: MRIM Etiquetas


NET :: MRIM Descripción

NET :: MRIM es una implementación de PERL del protocolo de Agente de Mail.Ru. Net :: MRIM es una implementación de PERL de Mail.RU Agent Protocol.Esta es una implementación de Perl del protocolo de Agente de Mail.RU, que las especificaciones se pueden encontrar en http://agent.mail.ru/protocol.htmlsynopsisto Construir y conectar a los servidores de MRIM: My $ Mrim = Net :: Mrim-> Nuevo (depuración => 0, Pollfrequency => 5); $ mrim-> hola (); para iniciar sesión: si (! $ mrim-> Iniciar sesión ("login@mail.ru", "contraseña")) {imprimir "Iniciar sesión rechazado"; Salida; } else {impresión "Inn Logged"; } Para autorizar a un usuario: My $ RET = $ MRIM-> Authorize_USER ("friend@mail.ru"); Para agregar un usuario a la lista de contactos (envía automáticamente la solicitud de autenticación): $ ret = $ mrim-> add_contact ("amigo @ mail.ru "); Para eliminar a un usuario de la lista de contactos: $ ret = $ mrim-> remove_contact (" friend@mail.ru "); Para enviar un mensaje: $ ret = $ mrim-> send_message (" amigo @ mail.ru "," hola "); para cambiar el estado del usuario: $ RET = $ MRIM-> CAMBIO_STATUS (estado); donde estatus = 0 significa en línea y estado = 1 significa información para un contacto: $ ret = $ mrim- > contact_info ("friend@mail.ru"); Buscar usuarios: $ RET = $ MRIM-> Buscar_user (correo electrónico, sexo, país, en línea); donde se puede encontrar sex = (1 | 2), país se puede encontrar en http: //agent.mail.ru/region.txt o en net :: mrim :: data.pm y online = (0 | 1) Analice la devolución del mensaje: Si ($ RET-> is_Message ()) {Imprimir "De:". $ Ret-> get_from (). "Mensaje:". $ Ret-> get_message (). "N"; } ELSIF ($ RET-> IS_SERVER_MSG ()) {Imprimir $ ret-> get_message (). "n"; } Bucle para obtener mensajes: mientras (1) {Sleep (1); $ RET = $ MRIM-> Ping (); if ($ ret-> is_message ()) {imprimir "de:". $ ret-> get_from (). "Mensaje:". $ ret-> get_message (). "n"; }} Desconexión: $ MRIM-> Desconectar (); Requisitos: · Perl


NET :: MRIM Software relacionado

Sobre nosotros