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

[Twinker]

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

[rage]

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

 
#!/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);
 
Code: Perl

[Twinker]

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