irc bot with php

<? 
// define your variables 
$host = "irc.choopa.net"; 
$port=6667; 
$nick="daveyboy"; 
$ident="dave"; 
$chan="#usa"; 
$readbuffer=""; 
$realname = "davey"; 
 
// open a socket connection to the IRC server 
$fp = fsockopen($host, $port, $erno, $errstr, 30); 
 
// print the error if ther eis no connection 
if (!$fp) { 
    echo $errstr." (".$errno.")<br />\n"; 
} else { 
    // write data through the socket to join the channel 
    fwrite($fp, "NICK ".$nick."
"); 
    fwrite($fp, "USER ".$ident." ".$host." bla :".$realname."
"); 
    fwrite($fp, "JOIN :".$chan."
"); 
 
    // write data through the socket to print text to the channel 
    fwrite($fp, "PRIVMSG ".$chan." :Hello!
"); 
    fwrite($fp, "PRIVMSG ".$chan." :I am not a bot
"); 
 
    // loop through each line to look for ping 
     while (!feof($fp)) { 
 
        $line =  fgets($fp, 128); 
        echo $line."\n"; 
 
        $line = explode(":ping ", $line); 
 
        echo $line[0]."\n"; 
 
        if ($line[1]) { 
 
            fwrite($fp, "PONG ".$line[1]."
");  
        } 
 
    } 
 
    fclose($fp); 
} 
?>