Forum Webscript.Ru

Программирование => Perl => Тема начата: Perlita от 21 Ноября 2002, 12:30:54

Название: Net::ICQ
Отправлено: Perlita от 21 Ноября 2002, 12:30:54

Помогите разобраться, скачал модуль ICQ.pm (Net-ICQ-0.16 by Jeremy Muhlich), написал код, как в документации написано:

#! /usr/bin/perl
use Net::ICQ;

  $uin=13733484;
  $password="xc3dkfsss";

  $icq = Net::ICQ->new($uin, $password);
  $icq->connect();

  $icq->add_handler(\'SRV_SYS_DELIVERED_MESS\', \\&on_msg);

  $params = {
    \'type\'         => 1,
    \'text\'         => \'Hello! You!\',
    \'receiver_uin\' => 128063466
  };

  $icq->send_event(\'CMD_SEND_MESSAGE\', $params);
  $icq->start();

-Не работает... точнее подсоединение к серверу проходит а сообщение не шлется. И сам скрипт "зависает" , т.е. не вываливается в командую строку
Что же делать? Может другой модуль надо установить?