IRC Bot

Hallo,

Ik ben bezig met een IRC Bot maar heb nog problemen met het pingen en misschien dat jullie me kunnen helpen ;)

Dit is de code:

<?
$verbinding = @fsockopen("irc.quakenet.org", 6667, $errno, $errstr);

set_time_limit(0);

if(!$verbinding)
{
print "Mislukt te verbinden met irc.quakenet.org:6667";
}
else
{
send("USER bot bot bot bot");
send("NICK bot");
send("JOIN #channel");

while(!feof($verbinding))
{
$buffer = fgets($verbinding, 4096);
print "$buffer \n";

if(substr($buffer, 0, 6) == "PING :")
{
send('PONG :'.$buffer);
}
}
}

function send($command)
{
fputs($verbinding, $command."\n\r");
}
?>

nu heb ik het probleem dat ik heletijd tijdens verbinden een ping time out krijg :S