NAME

Net::MRIM - Perl implementation of mail.ru agent protocol

DESCRIPTION

This is a Perl implementation of the mail.ru agent protocol, which specs can be found at http://agent.mail.ru/protocol.html

SYNOPSIS

To construct and connect to MRIM's servers:

 my $mrim=Net::MRIM->new(
                        Debug=>0,
                        PollFrequency=>5
                        );
 $mrim->hello();

To log in:

 if (!$mrim->login("login\@mail.ru","password")) {
        print "LOGIN REJECTED\n";
        exit;
 } else {
        print "LOGGED IN\n";
 }

To authorize a user:

 my $ret=$mrim->authorize_user("friend\@mail.ru");

To add a user to contact list (sends automatically auth request):

 $ret=$mrim->add_contact("friend\@mail.ru");

To remove a user from contact list:

 $ret=$mrim->remove_contact("friend\@mail.ru");

To send a message:

 $ret=$mrim->send_message("friend\@mail.ru","hello");

To change user status:

 $ret=$mrim->change_status(status);

Where status=0 means online and status=1 means away

Get information for a contact:

 $ret=$mrim->contact_info("friend\@mail.ru");
 

Search for users:

 $ret=$mrim->search_user(email, sex, country, online);

Where sex=(1|2), country can be found at http://agent.mail.ru/region.txt or in Net::MRIM::Data.pm, and online=(0|1)

Analyze the return of the message:

 if ($ret->is_message()) {
        print "From: ".$ret->get_from()." Message: ".$ret->get_message()." \n";
 } elsif ($ret->is_server_msg()) {
        print $ret->get_message()." \n";
 }

Looping to get messages:

 while (1) {
        sleep(1);
        $ret=$mrim->ping();
        if ($ret->is_message()) {
                print "From: ".$ret->get_from()." Message: ".$ret->get_message()." \n";
        }
 }

Disconnecting:

 $mrim->disconnect();

AUTHOR

Alexandre Aufrere <aau@cpan.org>

COPYRIGHT

Copyright (c) 2007-2008 Alexandre Aufrere. This code may be used under the terms of the GPL version 2 (see at http://www.gnu.org/licenses/old-licenses/gpl-2.0.html). The protocol remains the property of Mail.Ru (see at http://www.mail.ru).

cpanm Net::MRIM::Message

perl -MCPAN -e shell
install Net::MRIM::Message