Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Помогите плз с модулем Net::ICQ 19.12.01 22:56
Автор: Serega[Linux] Статус: Незарегистрированный пользователь
|
Поставил модуль Net::ICQ, прочитал ман, посмотрел исходник vicq. Написал скрипт который должен выводить инфу, знаю UIN.
#!/usr/bin/perl
use Net::ICQ;
$uin = "449742";
$password="666";
$icq = Net::ICQ->new($uin, $password);
$icq->connect();
$icq->start();
$icq->add_handler('SRV_INFO_REPLY', \&on_msg);
$params = {
'uin' => 64432299
};
$icq->send_event('CMD_INFO_REQ', $params);
sub on_msg {
print @_;
}
Ну вот только не хочет он работать и все! Помогите плз! Уже неделю мучаюсь и ничего не могу сделать!
|
|
|
подробно о проекте
Анализ криптографических сетевых... 
