Untitled

     <?     $host = "irc.geeknode.org";      $port = 6667;         $nick = "scanchan";        if ($nick) {     if ($sock = @fsockopen($host, $port)) {     fputs($sock, "USER geeknode_drop localhost localhost :register\r\n");     fputs($sock, "NICK $nick\r\n");     fputs($sock,"LIST\r\n");     while ($line = fgets($sock,1024)) {     $a = explode(" ", $line);     if ($a[0] == "PING") {     fputs($sock, "PONG $a[1]");     }     echo "$line";     if(strstr($line,"* End of /LIST")) { fputs($sock, "QUIT\r\n"); }     }        }   }  }?>