<?
set_time_limit(0);
$address = 'irc.devcollective.com';
$port = 6667;
$nick = 'darksbot-0';
$name = 'darksbot';
$chan = "#devcol";
$sock1 = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
$sock2 = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
$sock3 = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
$sock4 = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
$sock5 = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
socket_connect($sock1, $address, $port);
socket_connect($sock2, $address, $port);
socket_connect($sock3, $address, $port);
socket_connect($sock4, $address, $port);
socket_connect($sock5, $address, $port);
socket_write($sock1, "NICK ".$nick);
socket_write($sock1, "USER ".$name.' '.$name.' '.$address.' :'.$name);
socket_write($sock1, "JOIN ".$chan);
socket_write($sock2, "NICK ".$nick);
socket_write($sock2, "USER ".$name.' '.$name.' '.$address.' :'.$name);
socket_write($sock2, "JOIN ".$chan);
socket_write($sock3, "NICK ".$nick);
socket_write($sock3, "USER ".$name.' '.$name.' '.$address.' :'.$name);
socket_write($sock3, "JOIN ".$chan);
socket_write($sock4, "NICK ".$nick);
socket_write($sock4, "USER ".$name.' '.$name.' '.$address.' :'.$name);
socket_write($sock4, "JOIN ".$chan);
socket_write($sock5, "NICK ".$nick);
socket_write($sock5, "USER ".$name.' '.$name.' '.$address.' :'.$name);
socket_write($sock5, "JOIN ".$chan);
$sock1read = socket_read($sock1, 2048);
$sock2read = socket_read($sock2, 2048);
$sock3read = socket_read($sock3, 2048);
$sock4read = socket_read($sock4, 2048);
$sock5read = socket_read($sock5, 2048);
$read = array($sock1, $sock2, $sock3, $sock4, $sock5);
$write = array($sock1, $sock2, $sock3, $sock4, $sock5);
$exp = array($sock1, $sock2, $sock3, $sock4, $sock5);
$select = socket_select($read, $write, $exp, 0, 0);
if (false === $select) {
    echo "socket_select() failed, reason: " .
        socket_strerror(socket_last_error()) . "\n";
}
else if ($select > 0) {
  if (strstr($sock1read, "PING")) {
	$pong = explode(" ",$sock1read);
	$pong = $pong[1];
	echo $pong;
	socket_write($sock1, "PONG $pong\n\r");
}
}

?>