Получение онлайна в PHP без MySQL (Only socket's)

[Twinker]

Был скрипт такой, для получения онлайна сервера сокетом в PHP, а не коннектом к базе. Работало только с PTS или с серверами, у которых есть эмуляция PTS. Ни у кого не остался такой скрипт? Строк 20-30 было..

[rage]

Есть но на перле, переписать на пшп думаю не проблема:

[src=perl]
#!/usr/bin/perl -w
use Socket; # For constants like AF_INET and SOCK_STREAM

$proto = getprotobyname('tcp');
my($sock);
socket($sock, AF_INET, SOCK_STREAM, $proto) or die "could not create socket : $!";

$remote = 'localhost';
$port = 7777;

$iaddr = inet_aton($remote) or die "Unable to resolve hostname : $remote";
$paddr = sockaddr_in($port, $iaddr);

connect($sock , $paddr) or die "connect failed : $!";
print "Connected to $remote on port $port\n";

send($sock, pack('SCi',7,0x0e,-3), 0) or die "sendo failed : $!";

read($sock,$line,15);
($s,$id,$w,$mo,$o) = unpack('Sciii',$line);
print "worldId: $w - $o/$mo\n";

close($sock);
[/src]

[Twinker]

Спасибоньки, проблем не возникнет. Тему можно закрывать.