<?
$sock = fsockopen("tonybox.net", 6667, $errno, $errstr, 30);
if (!$sock) { die("Failed to open sock\n"); }
write($sock, "NICK PHPFoxen\r\n");
write($sock, "USER foxinabox \"\" \"\" :PHPFoxen\r\n");
while (1) { 
	$vartext = fgets($sock);
	$vartext = split("\r\n", $vartext);
	$vartext = $vartext[0];
	$var     = explode(' ', $vartext);
	$tmp     = split(":", $var[0]); 
	$ick     = split("!", $tmp[1]);
	$nick    = $ick[0];
	$text    = substr($vartext, strlen($var[0].$var[1].$var[2])+4);
	if ($var[0] == "PING") { write($sock, "PONG $var[1]\r\n"); }
	if ($var[1] == "005")  { write($sock, "JOIN #fun\r\n"); print "Connected!\n"; }
	if ($var[1] == "PRIVMSG") {
		print "<$nick> $text\n";
		if ($var[3] == ":VERSION") {
			print "Replying to CTCP VERSION request\n";
			write($sock, "NOTICE $nick :".chr(1)."VERSION PHP Foxen v0.0.1".chr(1)."\r\n");
		}
		if ($text == "hi phpfoxen") {
			write($sock, "PRIVMSG #fun :Hi $nick!\r\n");
		}
	}
}

function write($sock, $text) {
	//print $text;
	fputs($sock, $text);
}
?>