IRC Bot

Well ny kode, denne her melder ingen fejl, men botten dukker aldrig op på irc
<? 
  set_time_limit(0);
 
  $chan = "#test.dk";
  $nick = "Bot";
  $realname = "Bot";
  $server = "irc.quakenet.org"; 
  $port = "6667"; 
  $forbind = fsockopen($server, $port);
 
  fputs($forbind, "USER $nick 0 0 :$realname"); 
  fputs($forbind, "NICK $nick");
 
  while (feof($forbind));  { 
  $new = fgets($forbind, 1024); 
  if(substr($new,0,4) == "PING");  { 
  $ping = explode(":", $new);
  $reply = $ping[1];
  fputs($forbind, "PONG $reply");
  } 
  echo $new . ""; 
  } 
  $quit = "BOT"; 
  fputs($forbind, "QUIT : $quit"); 
  fclose($forbind); 
?>

Okay endnu en ny kode..
<?
set_time_limit(0);
$nick = 'Botten';
$realname = 'Bot';
$chan = '#chantest';
$hostname = "domæne.dk";
$hostip = "80.XXX.XXX.XXX";
$server = 'irc.quakenet.org';
$forbind = fsockopen($server, 6667);
fputs($forbind, "USER $nick $hostname $hostip :$realname\r\n");
fputs($forbind, "NICK $nick\r\n");

fputs($forbind, "JOIN $chan\r\n");
while (!feof($forbind)) {
$new = fgets($forbind, 1024);
}
while (feof($forbind)) {
$new = fgets($forbind, 1024);

// Ping
if(substr($new,0,4) == "PING") {
$ping = explode(":", $new);
$reply = $ping[1];
fputs($forbind, "PONG $reply\r\n");
}

// Ping
echo $new . "\r\n";
}

// Quit
fclose($forbind);
?>
Denne gang virker den nsæten, kan nemt forbinde til Efnet, bare ikke quakenet, nogen der kan se hvad jeg har gjort galt?

Lukker fandt selv ud af det! ;)