14.02.2008, 14:50
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
там делов-то 5 строчек поправить.. )
как уже написали:
Код:
$socket = new IO::Socket::INET('login.icq.com:5190');
чтоб отрыть сокет, а затем
Код:
$socket->recv($answer_data, 16) or die "Cannot read from socket: $!\n";
заместо
Код:
sysread(SOCK,$answer_data,16) or die "Cannot read from socket: $!\n";
и
Код:
$socket->send($auth_request);
вместо
Код:
print SOCK $auth_request;
имхо удобнее и главное становится код читабельнее.. ) |
|
|