<?php

use application\modules\user\utils\Login;

error_reporting( 0 );
$engine = isset( $_GET['engine'] ) ? strtolower( $_GET['engine'] ) : '';
if ( !in_array( $engine, array( 'local', 'sae' ) ) ) {
    $engine = 'local';
}
$type = $_GET['type'];
switch ( $type ) {
    case 'avatar':
    case 'bg':
        if ( $type == 'avatar' ) {
            $path = './data/avatar/';
            $ext = '.png';
        } else {
            $path = './data/home/';
            $ext = '.jpg';
        }
        $uid = isset( $_GET['uid'] ) ? $_GET['uid'] : 0;
        $size = isset( $_GET['size'] ) && in_array(
                        $_GET['size'], array( 'small', 'big', 'middle' ) ) ? $_GET['size'] : 'small';
        $random = isset( $_GET['random'] ) ? $_GET['random'] : '';
        showDataStatic( $uid, $size, $random );
        break;
    case 'checklogincode':
        $code = $_GET['code'];
        $filename = './data/temp/login_' . $code . '.txt';
        $notExists = !file_exists( $filename );
        $tmpi = 0;
        while ( $notExists ) {
            usleep( 50000 ); // 休息50毫秒，使CPU不致于负荷太高
            clearstatcache();
            $notExists = !file_exists( $filename );
            $tmpi++;
            if ( $tmpi > 400 ) { //设置尝试400次之后放弃，避免死循环。大概25秒多些。
                break;
            }
        }
        if ( !$notExists ) {
            echo json_encode( array( 'isSuccess' => true, 'code' => $code ) );
        } else {
            $random = substr( md5( time() ), 0, 11 );
            echo json_encode( array( 'isSuccess' => false, 'url' => 'static.php?type=qrcode&data=' . $random, 'code' => $random ) );
        }
        break;
    case 'checklogin':
        $code = $_GET['code'];
        $filename = './data/temp/login_' . $code . '.txt';
        $currentModif = filemtime( $filename );
        $tmpi = 0;
        while ( true ) {
            usleep( 50000 ); // 休息50毫秒，使CPU不致于负荷太高
            clearstatcache();
            if ( @filesize( $filename ) > 0 ) {
                $content = file_get_contents( $filename );
                $uid = authCode( $content, 'DECODE', $code );
                if ( $uid ) {
                    define( 'PATH_ROOT', dirname( __FILE__ ) );
                    $defines = PATH_ROOT . '/system/defines.php';
                    define( 'TIMESTAMP', time() );
                    define( 'YII_DEBUG', true );
                    $yii = PATH_ROOT . '/library/yii.php';
                    $mainConfig = require_once PATH_ROOT . '/system/config/common.php';
                    require_once ( $defines );
                    require_once ( $yii );
                    require_once './api/login.php';
                    Yii::setPathOfAlias( 'application', PATH_ROOT . DIRECTORY_SEPARATOR . 'system' );
                    Yii::createApplication( 'application\core\components\Application', $mainConfig );
                    dologin( $uid, 'web' );
                    unlink( $filename );
                    Login::getInstance()->sendWxLoginNotify( $uid );
                    echo json_encode( array( 'isSuccess' => true ) );
                    exit();
                }
            }
            $tmpi++;
            if ( $tmpi > 400 ) { //设置尝试400次之后放弃，避免死循环。大概25秒多些。
                break;
            }
        }
        echo json_encode( array( 'isSuccess' => false ) );
        break;
    default:
        break;
}

function showDataStatic( $uid, $size = 'small', $random = '' ) {
    global $engine, $path, $type, $ext;
    $staticFile = getDataStaticFile( $uid, $size, $type );
    if ( $engine == 'local' ) {
        $fileExists = file_exists( $path . $staticFile );
    } else {
        require_once './system/extensions/enginedriver/sae/SAEFile.php';
        $file = new SAEFile();
        $path = $file->fileName( trim( $path, './' ) );
        $fileExists = $file->fileExists( $path . $staticFile );
    }
    if ( $fileExists ) {
        $random = !empty( $random ) ? rand( 1000, 9999 ) : '';
        $staticUrl = empty( $random ) ? $path . $staticFile : $path . $staticFile . '?random=' . $random;
    } else {
        $size = in_array( $size, array( 'big', 'middle', 'small' ) ) ? $size : 'small';
        $staticUrl = $path . "no{$type}_" . $size . $ext;
    }
    if ( empty( $random ) ) {
        header( "HTTP/1.1 301 Moved Permanently" );
        header( "Last-Modified:" . date( 'r' ) );
        header( "Expires: " . date( 'r', time() + 86400 ) );
    }
    header( 'Location: ' . $staticUrl );
}

/**
 * 获取指定用户存放在data静态资源文件路径存放地址
 * @param integer $uid 用户ID
 * @param string $size 背景尺寸
 * @param string $type 静态资源类型
 * @return string
 */
function getDataStaticFile( $uid, $size = 'small', $type = 'avatar' ) {
    $uid = sprintf( "%09d", abs( intval( $uid ) ) );
    $level1 = substr( $uid, 0, 3 );
    $level2 = substr( $uid, 3, 2 );
    $level3 = substr( $uid, 5, 2 );
    return $level1 . '/' . $level2 . '/' . $level3 . '/' . substr( $uid, -2 ) . "_{$type}_{$size}.jpg";
}

function authCode( $string, $operation = 'DECODE', $key = '', $expiry = 0 ) {
    $ckeyLength = 4;
    $key = md5( $key );
    $keya = md5( substr( $key, 0, 16 ) );
    $keyb = md5( substr( $key, 16, 16 ) );
    $keyc = $ckeyLength ? ($operation == 'DECODE' ?
                    substr( $string, 0, $ckeyLength ) :
                    substr( md5( microtime() ), -$ckeyLength )) : '';

    $cryptkey = $keya . md5( $keya . $keyc );
    $keyLength = strlen( $cryptkey );

    $string = $operation == 'DECODE' ?
            base64_decode( substr( $string, $ckeyLength ) ) :
            sprintf( '%010d', $expiry ? $expiry + time() : 0  ) .
            substr( md5( $string . $keyb ), 0, 16 ) . $string;
    $stringLength = strlen( $string );

    $result = '';
    $box = range( 0, 255 );

    $rndkey = array();
    for ( $i = 0; $i <= 255; $i++ ) {
        $rndkey[$i] = ord( $cryptkey[$i % $keyLength] );
    }

    for ( $j = $i = 0; $i < 256; $i++ ) {
        $j = ($j + $box[$i] + $rndkey[$i]) % 256;
        $tmp = $box[$i];
        $box[$i] = $box[$j];
        $box[$j] = $tmp;
    }

    for ( $a = $j = $i = 0; $i < $stringLength; $i++ ) {
        $a = ($a + 1) % 256;
        $j = ($j + $box[$a]) % 256;
        $tmp = $box[$a];
        $box[$a] = $box[$j];
        $box[$j] = $tmp;
        $result .= chr( ord( $string[$i] ) ^ ($box[($box[$a] + $box[$j]) % 256]) );
    }

    if ( $operation == 'DECODE' ) {
        if ( (substr( $result, 0, 10 ) == 0 || substr( $result, 0, 10 ) - time() > 0) && substr( $result, 10, 16 ) == substr( md5( substr( $result, 26 ) . $keyb ), 0, 16 ) ) {
            return substr( $result, 26 );
        } else {
            return '';
        }
    } else {
        return $keyc . str_replace( '=', '', base64_encode( $result ) );
    }
}