Forum Webscript.Ru

Программирование => Perl => Тема начата: demond от 21 Февраля 2008, 00:05:25

Название: magent на perl (не могу искать пользователей)
Отправлено: demond от 21 Февраля 2008, 00:05:25
Доброго времени суток! Решил реализовать свой mail-agent на perl, но сталкнулся с неожиданной проблемой: если запустить "поиск пользователей(добавить контакт->поиск)", то вместо списков контактов получаю только один контакт, и тот support@corp.mail.ru.
для реализации использовал модуль Net::MRIM
(http://search.cpan.org/~aau/Net-MRIM-1.06/MRIM.pm)
читал и описание протокола
(http://forum.antichat.ru/threadnav38069-1-10.html
http://agent.mail.ru/developers/)
вот мой код:

use lib qw(.);
use MRIM;
$|=1;
my ($login,$passwd)=("super\\@mail.ru","pass");
my $mrim=Net::MRIM->new(
                        Debug=>0,
                        PollFrequency=>5
                        );
 $mrim->hello();

  if (!$mrim->login("$login","$passwd")) {
        print "LOGIN REJECTED\\n";
        exit;
 } else {
        print "LOGGED IN\\n";
 }


 #получение списка контактов с заданными данными (24 - Россия)
 my ($email, $sex, $country, $online)=(\'\',\'\',\'24\',\'\');

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

if ($ret->is_contact_list())
{
 $clist=$ret->get_contacts();
 while (($keys,$values)=each %$clist)
 {
   print $keys."->".$values->get_email()."\\n";#здесь на выходе получаю только support@corp.mail.ru->support@corp.mail.ru
 }
}
else
{
 print "[-] ";
}

 $mrim->disconnect();
 print "\\nDISCONNECT\\n"

пытался реализовать и без использования Net::MRIM, только сокеты, но результат тот же самый! Может кто-нибудь сталкивался с этим? Подскажите, пожалуйста,что может быть не так!
Название: magent на perl (не могу искать пользователей)
Отправлено: commander от 22 Февраля 2008, 14:43:02
demond
ну по моему очевидно... ) ребята из mail.ru - порезали эту возможность...

что правильно.. ибо майл агент и так ломиться от спамеров... и ещё одного хуя на нахуй не надо!
Название: magent на perl (не могу искать пользователей)
Отправлено: demond от 22 Февраля 2008, 18:22:19
Цитировать
commander:
и ещё одного хуя на нахуй не надо!

Спасибо. Грубо! Вот если бы кто-то включил мозг, то наверное решил что спамер не стал бы в открытую задавать такой вопрос! Кроме того там еще не работает получение информации о пользователе. Может кто-то пытался это реализовать на других языках? Вообще у меня сложилось впечатление, что скорее всего формат описанный на официальном сайте не правильный.
ЗЫ commander, если не нравится пост, его можно просто удалить! Оскорбления здесь не уместны!
Название: magent на perl (не могу искать пользователей)
Отправлено: vladsu от 23 Февраля 2008, 21:56:14
demond
А почему бы Вам не обратиться прям в маил.ру. Мне однажды из Африки нужно было отправлять по сотне писем нужным людям, я исползовал свой маил.ру акаут испльзуя их смтп. В начале это было мне не доступно, но я обратился с "нежным" письмом в сапорт и они мне открыли такую возможность. В принципе админы добрые и щедрые люди, глубоко внутри, главное умейте просить.

commander
Что-то ты стал очень агрессивным, помни, мы все люди даже если некоторые из нас заблудились.
Название: magent на perl (не могу искать пользователей)
Отправлено: commander от 26 Февраля 2008, 09:21:05
vladsu
да что-то я в последнее время брутален...
исправлюсь... ;)