\n"; } else { // write data through the socket to join the channel fwrite($fp, "NICK ".$nick."\r\n"); fwrite($fp, "USER ".$ident." ".$host." bla :".$realname."\r\n"); fwrite($fp, "JOIN :".$chan."\r\n"); // write data through the socket to print text to the channel fwrite($fp, "PRIVMSG ".$chan." :Hello There!\r\n"); fwrite($fp, "PRIVMSG ".$chan." :I am a bot\r\n"); // 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]."\r\n"); } flush(); } fclose($fp); } ?>