Miscellany

 <?php
 $mybot['server']='xxx';
 $mybot['port']=6667;
 $mybot['nick']='PHPBOT';
 $mybot['user']='PHPBOT';
 $mybot['channel']='#xxx';
 $mybot['perform']=1;
 if (!$mybot['sock']=fsockopen($mybot['server'],$mybot['port'],&$errnum,&$errstr,15)) {
   echo "Connection failed.\n";
 }
 else {
   fputs($mybot['sock'],"USER ".$mybot['user']." 0 0 0 0\r\n");
   fputs($mybot['sock'],"NICK ".$mybot['nick']."\r\n");
   for (;;) { 
     $data=fgets($mybot['sock'],1000);
     $data=trim("\r\n");
     echo "$data";
     $datatok=explode(" ",$data);
     if ($datatok[0] == "PING") { 
       fputs($mybot['link'],"PONG ".$datatok[1]);
       if ($mybot['perform'] == 1) { 
         fputs($mybot['link'],"JOIN ".$mybot['channel']."\r\n");
         $mybot['perform']=0;
       }
     }
     elseif (preg_match("/^:((.*)\!.*@(\S+)) PRIVMSG (.*) :(.*)/",$data,$regml)) {
       $site=$regml[1]; $nick=$regml[2]; $wildsite='*!*@'.$regml[3]; $target=$regml[4]; $text=$regml[5];
       if ($target == "#devcol") { 
         if ($text == "@ping") { 
           fputs($mybot['link'],"PRIVMSG $target :Pong!\r\n");
         }
       }
     }
   }
 } 
 ?>