Mine

    $sock = @fsockopen("server", "port", &$num, &$error, 2);
    if ($sock) {
        $stat = "<span style=\"color: #0F0\">online</span>";
        fclose($sock);
        unset($sock);
    }else{
        $stat = "<span style=\"color: #F00\">offline</span>";
        unset($sock);
    }