#!/bin/bash

# ========================================================
# Vultr 全球数据中心 TCP 80 端口延迟测试 (直连域名版)
# ========================================================

TCPING_EXE="tcping"

# ---------- 安装检测与全平台自动修复 ----------
if ! command -v tcping &>/dev/null && [ ! -f "./tcping" ]; then
    echo "未检测到系统 tcping，正在尝试智能安装..."
    if [ "$(uname -s)" = "Darwin" ]; then
        command -v brew &>/dev/null && brew install tcping
    else
        if command -v apt-get &>/dev/null; then
            sudo apt-get update -y && sudo apt-get install -y tcping 2>/dev/null
        elif command -v yum &>/dev/null; then
            sudo yum install -y tcping 2>/dev/null
        fi
        
        if ! command -v tcping &>/dev/null; then
            echo "提示: 官方软件源未找到 tcping，正在从 GitHub 下载独立二进制版..."
            ARCH=$(uname -m)
            URL="https://github.com/cloverstd/tcping/releases/download/v0.1.1/tcping-linux-amd64-v0.1.1.tar.gz"
            if [ "$ARCH" = "aarch64" ] || [ "$ARCH" = "arm64" ]; then
                URL="https://github.com/cloverstd/tcping/releases/download/v0.1.1/tcping-linux-arm64-v0.1.1.tar.gz"
            fi
            
            if command -v curl &>/dev/null; then
                curl -L "$URL" -o tcping.tar.gz
            elif command -v wget &>/dev/null; then
                wget -O tcping.tar.gz "$URL"
            fi
            
            if [ -f "tcping.tar.gz" ]; then
                tar -zxf tcping.tar.gz
                mv tcping-linux-* tcping 2>/dev/null
                chmod +x tcping
                rm -f tcping.tar.gz
                echo "独立版 tcping 下载并配置成功！"
            fi
        fi
    fi
fi

if command -v tcping &>/dev/null; then
    TCPING_EXE="tcping"
elif [ -f "./tcping" ]; then
    TCPING_EXE="./tcping"
fi

# ---------- 探测 tcping 支持的限次参数 ----------
TCPING_STYLE="unknown"
TCPING_CMD=""
_help=$( { "$TCPING_EXE" --help 2>&1; "$TCPING_EXE" -h 2>&1; } | head -60 )

if echo "$_help" | grep -qE '\-c[[:space:],]|--count'; then
    TCPING_CMD="$TCPING_EXE -c 3"
    TCPING_STYLE="linux"
elif echo "$_help" | grep -qE '\-n[[:space:],]|--number|-t[[:space:]]'; then
    TCPING_CMD="$TCPING_EXE -n 3"
    TCPING_STYLE="win"
else
    TCPING_CMD=""
    TCPING_STYLE="fallback"
fi

echo "检测到 tcping 风格: $TCPING_STYLE  命令: ${TCPING_CMD:-<使用nc兜底>}"

# ---------- 颜色 ----------
GREEN='\033[0;32m'; YELLOW='\033[0;33m'; PURPLE='\033[0;35m'; RED='\033[0;31m'; NC='\033[0m'

# ---------- Vultr 区域域名数据表 ----------
declare -A domains=(
    ["JP-Tokyo"]="hnd-jp-ping.vultr.com"
    ["NL-Amsterdam"]="ams-nl-ping.vultr.com"
    ["IN-Bangalore"]="blr-in-ping.vultr.com"
    ["IN-Mumbai"]="bom-in-ping.vultr.com"
    ["IN-Delhi"]="del-in-ping.vultr.com"
    ["US-Miami"]="fl-us-ping.vultr.com"
    ["DE-Frankfurt"]="fra-de-ping.vultr.com"
    ["US-Atlanta"]="ga-us-ping.vultr.com"
    ["US-Honolulu"]="hon-hi-us-ping.vultr.com"
    ["US-Chicago"]="il-us-ping.vultr.com"
    ["US-LosAngeles"]="lax-ca-us-ping.vultr.com"
    ["GB-London"]="lon-gb-ping.vultr.com"
    ["ES-Madrid"]="mad-es-ping.vultr.com"
    ["AU-Melbourne"]="mel-au-ping.vultr.com"
    ["MX-MexicoCity"]="mex-mx-ping.vultr.com"
    ["US-NewJersey"]="nj-us-ping.vultr.com"
    ["FR-Paris"]="par-fr-ping.vultr.com"
    ["BR-SaoPaulo"]="sao-br-ping.vultr.com"
    ["KR-Seoul"]="sel-kor-ping.vultr.com"
    ["SG-Singapore"]="sgp-ping.vultr.com"
    ["US-SiliconValley"]="sjo-ca-us-ping.vultr.com"
    ["SE-Stockholm"]="sto-se-ping.vultr.com"
    ["AU-Sydney"]="syd-au-ping.vultr.com"
    ["CA-Toronto"]="tor-ca-ping.vultr.com"
    ["US-Dallas"]="tx-us-ping.vultr.com"
    ["US-Seattle"]="wa-us-ping.vultr.com"
    ["PL-Warsaw"]="waw-pl-ping.vultr.com"
)

declare -A names=(
    ["JP-Tokyo"]="日本东京"
    ["NL-Amsterdam"]="荷兰阿姆斯特丹"
    ["IN-Bangalore"]="印度班加罗尔"
    ["IN-Mumbai"]="印度孟买"
    ["IN-Delhi"]="印度德里"
    ["US-Miami"]="美国迈阿密"
    ["DE-Frankfurt"]="德国法兰克福"
    ["US-Atlanta"]="美国亚特兰大"
    ["US-Honolulu"]="美国檀香山 (夏威夷)"
    ["US-Chicago"]="美国芝加哥"
    ["US-LosAngeles"]="美国洛杉矶"
    ["GB-London"]="英国伦敦"
    ["ES-Madrid"]="西班牙马德里"
    ["AU-Melbourne"]="澳大利亚墨尔本"
    ["MX-MexicoCity"]="墨西哥墨西哥城"
    ["US-NewJersey"]="美国新泽西"
    ["FR-Paris"]="法国巴黎"
    ["BR-SaoPaulo"]="巴西圣保罗"
    ["KR-Seoul"]="韩国首尔"
    ["SG-Singapore"]="新加坡"
    ["US-SiliconValley"]="美国硅谷 (圣何塞)"
    ["SE-Stockholm"]="瑞典斯德哥尔摩"
    ["AU-Sydney"]="澳大利亚悉尼"
    ["CA-Toronto"]="加拿大多伦多"
    ["US-Dallas"]="美国达拉斯"
    ["US-Seattle"]="美国西雅图"
    ["PL-Warsaw"]="波兰华沙"
)

RESULT_FILE=$(mktemp 2>/dev/null || mktemp -t 'vultr_tcping')
PROBE_COUNT=3
NC_TIMEOUT=4      # nc 兜底时的超时秒数

# ========================================================
# 从 tcping 原始输出中提取平均延迟（ms，纯数字）
# ========================================================
_extract_avg() {
    local raw="$1"
    local avg=""

    avg=$(echo "$raw" | grep -iE 'min/avg/max' \
          | grep -oE '[0-9]+\.?[0-9]*/[0-9]+\.?[0-9]*/[0-9]+\.?[0-9]*' \
          | awk -F'/' '{print $2}' | head -n1)
    [ -n "$avg" ] && { echo "$avg"; return; }

    avg=$(echo "$raw" | grep -iE 'average\s*=\s*[0-9]|avg\s*=\s*[0-9]' \
          | grep -oE '(average|avg)\s*=\s*[0-9]+\.?[0-9]*' \
          | grep -oE '[0-9]+\.?[0-9]*$' | head -n1)
    [ -n "$avg" ] && { echo "$avg"; return; }

    local vals
    vals=$(echo "$raw" | grep -oE 'time=[0-9]+\.?[0-9]*' | grep -oE '[0-9]+\.?[0-9]*')
    if [ -n "$vals" ]; then
        avg=$(echo "$vals" | awk '{s+=$1; c++} END{if(c>0) printf "%.2f", s/c}')
        [ -n "$avg" ] && { echo "$avg"; return; }
    fi
    echo ""
}

# ========================================================
# nc 兜底测速
# ========================================================
_nc_avg_ms() {
    local host=$1 port=$2
    local sum=0 ok=0 i
    local nc_opts="-z -w $NC_TIMEOUT"

    local use_ns=0
    date +%s%N 2>/dev/null | grep -qE '^[0-9]{16,}$' && use_ns=1

    for (( i=0; i<PROBE_COUNT; i++ )); do
        local t0 t1 ms
        if [ $use_ns -eq 1 ]; then
            t0=$(date +%s%N)
            nc $nc_opts "$host" "$port" 2>/dev/null
            local rc=$?
            t1=$(date +%s%N)
            [ $rc -ne 0 ] && continue
            ms=$(( (t1 - t0) / 1000000 ))
        else
            t0=$(date +%s)
            nc $nc_opts "$host" "$port" 2>/dev/null
            local rc=$?
            t1=$(date +%s)
            [ $rc -ne 0 ] && continue
            ms=$(( (t1 - t0) * 1000 ))
        fi
        [ "$ms" -lt 1 ] && ms=1
        sum=$(( sum + ms )); ok=$(( ok + 1 ))
        [ $i -lt $(( PROBE_COUNT-1 )) ] && sleep 0.15
    done

    [ $ok -eq 0 ] && { echo ""; return; }
    echo $(( sum / ok ))
}

# ========================================================
# 探测单节点主函数
# ========================================================
tcping_node() {
    local id=$1 name=$2 domain=$3
    local port=80
    local avg=""

    if [ "$TCPING_STYLE" != "fallback" ] && [ -n "$TCPING_CMD" ]; then
        local raw
        raw=$( $TCPING_CMD "$domain" "$port" 2>&1 )
        avg=$(_extract_avg "$raw")
    fi

    if [ -z "$avg" ]; then
        avg=$(_nc_avg_ms "$domain" "$port")
    fi

    if echo "$avg" | grep -qE '^[0-9]+(\.[0-9]+)?$' && \
       awk -v v="$avg" 'BEGIN{exit !(v > 0 && v < 9000)}'; then
        local sort_key
        sort_key=$(printf "%07d" "$(echo "$avg" | awk '{printf "%d", int($1+0.5)}')")
        printf "%s | %-24s | %-28s | %s ms\n" "$sort_key" "$name" "$domain" "$avg" >> "$RESULT_FILE"
    else
        printf "9999999 | %-24s | %-28s | 端口关闭/连接超时\n" "$name" "$domain" >> "$RESULT_FILE"
    fi
}

# ---------- 主流程 ----------
echo "========================================================="
echo "   Vultr 全球数据中心 TCP 80 端口延迟测试中..."
echo "   每节点探测 ${PROBE_COUNT} 次 | 超时 ${NC_TIMEOUT}s | 直连域名探测"
echo "========================================================="

for id in "${!domains[@]}"; do
    tcping_node "$id" "${names[$id]}" "${domains[$id]}" &
done

total=${#domains[@]}
while true; do
    done_count=$(wc -l < "$RESULT_FILE" 2>/dev/null | tr -d ' ')
    printf "\r   进度: %d / %d ..." "${done_count:-0}" "$total"
    [ "${done_count:-0}" -ge "$total" ] && break
    sleep 0.5
done
wait
echo -e "\n"

echo "==================== TCP 80 测试结果 (按延迟低到高) ===================="
printf "%-26s | %-28s | %s\n" "机房名称" "测试域名" "TCP 80 平均延迟"
echo "-----------------------------------------------------------------------------------------/-----------"

sort -n "$RESULT_FILE" | while IFS="|" read -r _key r_name r_domain r_latency; do
    name=$(echo "$r_name"    | xargs)
    domain=$(echo "$r_domain"| xargs)
    lat=$(echo "$r_latency"  | xargs)
    num=$(echo "$lat" | grep -oE '^[0-9]+' | head -n1)

    if [ -z "$num" ] || [ "$num" -ge 9000 ] 2>/dev/null; then
        printf "${RED}%-26s | %-28s | %s${NC}\n" "$name" "$domain" "$lat"
    else
        if   [ "$num" -lt 80  ]; then COLOR=$GREEN
        elif [ "$num" -lt 180 ]; then COLOR=$YELLOW
        elif [ "$num" -lt 280 ]; then COLOR=$PURPLE
        else                          COLOR=$RED
        fi
        printf "${COLOR}%-26s | %-28s | %s${NC}\n" "$name" "$domain" "$lat"
    fi
done

rm -f "$RESULT_FILE"
echo "====================================================================================================="
echo -e "颜色: ${GREEN}绿<80ms${NC}  ${YELLOW}黄80-179ms${NC}  ${PURPLE}紫180-279ms${NC}  ${RED}红≥280ms/超时${NC}"