Forum Webscript.Ru
Программирование => 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, только сокеты, но результат тот же самый! Может кто-нибудь сталкивался с этим? Подскажите, пожалуйста,что может быть не так!
-
demond
ну по моему очевидно... ) ребята из mail.ru - порезали эту возможность...
что правильно.. ибо майл агент и так ломиться от спамеров... и ещё одного хуя на нахуй не надо!
-
commander:
и ещё одного хуя на нахуй не надо!
Спасибо. Грубо! Вот если бы кто-то включил мозг, то наверное решил что спамер не стал бы в открытую задавать такой вопрос! Кроме того там еще не работает получение информации о пользователе. Может кто-то пытался это реализовать на других языках? Вообще у меня сложилось впечатление, что скорее всего формат описанный на официальном сайте не правильный.
ЗЫ commander, если не нравится пост, его можно просто удалить! Оскорбления здесь не уместны!
-
demond
А почему бы Вам не обратиться прям в маил.ру. Мне однажды из Африки нужно было отправлять по сотне писем нужным людям, я исползовал свой маил.ру акаут испльзуя их смтп. В начале это было мне не доступно, но я обратился с "нежным" письмом в сапорт и они мне открыли такую возможность. В принципе админы добрые и щедрые люди, глубоко внутри, главное умейте просить.
commander
Что-то ты стал очень агрессивным, помни, мы все люди даже если некоторые из нас заблудились.
-
vladsu
да что-то я в последнее время брутален...
исправлюсь... ;)