Net :: Mrim.

Net :: MRM é uma implementação Perl do Protocolo de Agente Mail.ru.
Baixe Agora

Net :: Mrim. Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Alexandre Aufrere
  • Site do editor:
  • http://search.cpan.org/~aau/Net-MRIM-1.08/MRIM.pm

Net :: Mrim. Tag


Net :: Mrim. Descrição

Net :: MRM é uma implementação Perl do Protocolo de Agente Mail.ru. Net :: MRM é uma implementação Perl do Mail.ru Agent Protocol.Esta é uma implementação Perl do Protocolo do Agente Mail.ru, que as especificações podem ser encontradas em http://agent.mail.ru/protocol.htmlsynopsisto construir e conectar Para os servidores de MRM: Meu $ MRM = Net :: MRim-> Novo (Debug => 0, Pollfrequency => 5); $ mrim-> Olá (); para efetuar login: se (! $ mrim-> login ("login@mail.ru", "Senha")) {Imprimir "Login rejectedn"; saída; } else {Imprimir "Inn Logged"; } Para autorizar um usuário: Meu $ RET = $ MRM-> autorize_user ("friend@mail.ru"); para adicionar um usuário a lista de contatos (envia automaticamente solicitação de autenticação): $ RET = $ MRM-> Add_Contact ("amigo @ mail.ru "); para remover um usuário da lista de contatos: $ RET = $ MRM-> remove_contact (" friend@mail.ru "); para enviar uma mensagem: $ ret = $ mrim-> send_message (" amigo @ mail.ru "," Olá "); para alterar o status do usuário: $ RET = $ MRM-> Change_Status (status); onde o status = 0 significa on-line e status = 1 significa informações suspensas para um contato: $ RET = $ > Contact_info ("friend@mail.ru"); Pesquisar por usuários: $ RET = $ MRM-> Search_user (email, sexo, país, online); onde sexo = (1 | 2), país pode ser encontrado em http: //agent.mail.ru/region.txt ou no Net :: MRM :: Data.PM e Online = (0 | 1) Analise o retorno da mensagem: if ($ ret-> is_message ()) {Imprimir "De:". $ Ret-> get_from (). "Mensagem:". $ Ret-> get_message (). "N"; } Elsif ($ ret-> is_server_msg ()) {Imprimir $ ret-> get_message (). "N"; } Looping para obter mensagens: enquanto (1) {sono (1); $ ret = $ mRrim-> ping (); if ($ ret-> is_message ()) {imprimir "de:". $ ret-> get_from (). "MENSAGEM:". $ ret-> get_message (). "N"; }} Desconectar: $ MRM-> Desconectar (); Requisitos: · Perl.


Net :: Mrim. Software Relacionado

Sobre nós