Cервер icq где про это можно почитать?

Вот возникла необходимость поставить свой сервер icq, а вот с материалами на эту тему не густо . Может знаете что и где можно почитать?

[Doctor013]

flush();

// поля надо заполнить
$from=\'Dmitry Borodin\';
$fromemail=\'ваше_мыло@php.spb.ru\';
$subject=\'сабж\';
$to=\'00000000\'; // <-- номер. (Уверен, что кто-нить не догадается :-)
$body=\'само сообщение\';

$submit=\'Send Message\'; // don\'t edit
$ref="http://wwp.icq.com/$to"; // don\'t edit


// формирование заголовка
$PostData=
"from=".urlencode($from)."&".
"fromemail=".urlencode($frommail)."&".
"subject=".urlencode($subject)."&".
"body=".urlencode($body)."&".
"to=".urlencode($to)."&".
"submit=".urlencode($submit);

$len=strlen($PostData);

$nn="\\r\\n";
$zapros=
"POST /scripts/WWPMsg.dll HTTP/1.0".$nn.
"Referer: $ref".$nn.
"Content-Type: application/x-www-form-urlencoded".$nn.
"Content-Length: $len".$nn.
"Host: wwp.icq.com".$nn.
"Accept: */*".$nn.
"Accept-Encoding: gzip, deflate".$nn.
"Connection: Keep-Alive".$nn.
"User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT)".$nn.
"".$nn.
"$PostData";

echo $zapros."\\n\\n-------------\\n\\n\\n";
flush();

// открываем сокет и шлем заголовок
$fp = fsockopen("wwp.icq.com", 80, &$errno, &$errstr, 30);
if(!$fp) { print "$errstr ($errno)
\\n"; exit; }


// для наглядности выводим заголовок ответа и страницу на экран
fputs($fp,$zapros);
print fgets($fp,20048);
fclose($fp);

?>