Автор Тема: magent на perl (не могу искать пользователей)  (Прочитано 3875 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн demond

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 24
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Доброго времени суток! Решил реализовать свой 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, только сокеты, но результат тот же самый! Может кто-нибудь сталкивался с этим? Подскажите, пожалуйста,что может быть не так!

Оффлайн commander

  • Developer
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1298
  • +0/-0
  • 2
    • Просмотр профиля
    • http://www.webtips.ru
magent на perl (не могу искать пользователей)
« Ответ #1 : 22 Февраля 2008, 14:43:02 »
demond
ну по моему очевидно... ) ребята из mail.ru - порезали эту возможность...

что правильно.. ибо майл агент и так ломиться от спамеров... и ещё одного хуя на нахуй не надо!
And no religion too...

Оффлайн demond

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 24
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
magent на perl (не могу искать пользователей)
« Ответ #2 : 22 Февраля 2008, 18:22:19 »
Цитировать
commander:
и ещё одного хуя на нахуй не надо!

Спасибо. Грубо! Вот если бы кто-то включил мозг, то наверное решил что спамер не стал бы в открытую задавать такой вопрос! Кроме того там еще не работает получение информации о пользователе. Может кто-то пытался это реализовать на других языках? Вообще у меня сложилось впечатление, что скорее всего формат описанный на официальном сайте не правильный.
ЗЫ commander, если не нравится пост, его можно просто удалить! Оскорбления здесь не уместны!

Оффлайн vladsu

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 271
  • +0/-0
  • 0
    • Просмотр профиля
    • http://vladislavsurguchev.eu/
magent на perl (не могу искать пользователей)
« Ответ #3 : 23 Февраля 2008, 21:56:14 »
demond
А почему бы Вам не обратиться прям в маил.ру. Мне однажды из Африки нужно было отправлять по сотне писем нужным людям, я исползовал свой маил.ру акаут испльзуя их смтп. В начале это было мне не доступно, но я обратился с "нежным" письмом в сапорт и они мне открыли такую возможность. В принципе админы добрые и щедрые люди, глубоко внутри, главное умейте просить.

commander
Что-то ты стал очень агрессивным, помни, мы все люди даже если некоторые из нас заблудились.
----------------------------------------------
Мой сайт чёрно-белых фотографий из разных уголков мира тут

Оффлайн commander

  • Developer
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 1298
  • +0/-0
  • 2
    • Просмотр профиля
    • http://www.webtips.ru
magent на perl (не могу искать пользователей)
« Ответ #4 : 26 Февраля 2008, 09:21:05 »
vladsu
да что-то я в последнее время брутален...
исправлюсь... ;)
And no religion too...

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28