<?php

namespace App\Services;

use Imagine\Gd\Imagine;
use Imagine\Image\Box;
use Imagine\Image\Point;

class UploaderService
{
    private $config; //配置信息
    private $fileField; //文件域名
    private $file; //文件上传对象
    private $base64; //文件上传对象

    private $oriName; //原始文件名
    private $fileName; //新文件名
    private $fullName; //完整文件名,即从当前配置目录开始的URL
    private $filePath; //完整文件名,即从当前配置目录开始的URL
    private $fileSize; //文件大小
    private $fileType; //文件类型
    public $thumbs = [];

    private $stateInfo; //上传状态信息,
    public $stateMap = [
        "SUCCESS",
        "文件大小超出 upload_max_filesize 限制",
        "文件大小超出 MAX_FILE_SIZE 限制",
        "文件未被完整上传",
        "没有文件被上传",
        "上传文件为空",
        "ERROR_TMP_FILE" => "临时文件错误",
        "ERROR_TMP_FILE_NOT_FOUND" => "找不到临时文件",
        "ERROR_SIZE_EXCEED" => "文件大小超出网站限制",
        "ERROR_TYPE_NOT_ALLOWED" => "文件类型不允许",
        "ERROR_CREATE_DIR" => "目录创建失败",
        "ERROR_DIR_NOT_WRITEABLE" => "目录没有写权限",
        "ERROR_FILE_MOVE" => "文件保存时出错",
        "ERROR_FILE_NOT_FOUND" => "找不到上传文件",
        "ERROR_WRITE_CONTENT" => "写入文件内容错误",
        "ERROR_UNKNOWN" => "未知错误",
        "ERROR_DEAD_LINK" => "链接不可用",
        "ERROR_HTTP_LINK" => "链接不是http链接",
        "ERROR_HTTP_CONTENTTYPE" => "链接contentType不正确",
        "INVALID_URL" => "非法 URL",
        "INVALID_IP" => "非法 IP"
    ];

    public function __construct($fileField, $config, $type = "upload")
    {
        $this->fileField = $fileField;
        $this->config = $config;
        $this->type = $type;

        if ($type == "remote") {
            return $this->saveRemote();
        } else if ($type == "base64") {
            return $this->upBase64();
        } else if ($type == 'crop') {
            return $this->createThumb();
        } else {
            return $this->upFile();
        }
    }

    /**
     * 上传文件的主处理方法
     *
     * @return mixed
     */
    private function upFile()
    {
        $file = $this->file = $_FILES[$this->fileField];
        if (!$file) {
            $this->stateInfo = $this->getStateInfo('ERROR_FILE_NOT_FOUND');
            return false;
        }

        if ($this->file['error']) {
            $this->stateInfo = $this->getStateInfo($file['error']);
            return false;
        } else if (!file_exists($file['tmp_name'])) {
            $this->stateInfo = $this->getStateInfo("ERROR_TMP_FILE_NOT_FOUND");
            return false;
        } else if (!is_uploaded_file($file['tmp_name'])) {
            $this->stateInfo = $this->getStateInfo("ERROR_TMPFILE");
            return false;
        }

        $this->oriName = $file['name'];
        $this->fileSize = $file['size'];
        $this->fileType = $this->getFileExt();
        $this->fullName = $this->getFullName();
        $this->filePath = $this->getFilePath();
        $this->fileName = $this->getFileName();

        $dirname = dirname($this->filePath);

        //检查文件大小是否超出限制
        if (!$this->checkSize()) {
            $this->stateInfo = $this->getStateInfo("ERROR_SIZE_EXCEED");
            return false;
        }

        //检查是否不允许的文件格式
        if (!$this->checkType()) {
            $this->stateInfo = $this->getStateInfo("ERROR_TYPE_NOT_ALLOWED");
            return false;
        }

        //创建目录失败
        if (!file_exists($dirname) && !mkdir($dirname, 0777, true)) {
            $this->stateInfo = $this->getStateInfo("ERROR_CREATE_DIR");
            return false;

        } else if (!is_writeable($dirname)) {
            $this->stateInfo = $this->getStateInfo("ERROR_DIR_NOT_WRITEABLE");
            return false;
        }

        //移动文件
        if (!(move_uploaded_file($file["tmp_name"], $this->filePath) && file_exists($this->filePath))) { //移动失败
            $this->stateInfo = $this->getStateInfo("ERROR_FILE_MOVE");
            return false;
        } else { //移动成功
            return true;
        }
    }

    /**
     * [
     *     [
     *      type:0,  //默认为0 0 自动缩放 1 按照固定数据缩放 按照给定的宽高缩放 2 按照看缩放 3 按照高缩放
     *      width:200px;
     *      height:200px;
     *      ]，
     *      [
     *        x=>0,
     *        y=>0,
     *        width:200px;
     *        height:200px;
     *      ]
     * ]
     */
    public function createThumb()
    {
        $path = [];
        if (!isset($this->config['filePath'])) {
            die('图片不存在！');
        }
        $imgArr = parse_url($this->config['filePath']);
        $imgUrl = $imgArr['path'];
        $this->filePath = public_path($imgArr['path']);

        if ($arr = $this->getThumbArr()) {
            foreach ($arr as $value) {
                $imagine = new Imagine();
                $image = $imagine->open($this->filePath);
                $imageSize = $image->getSize();
                $imageW = $imageSize->getWidth();
                $imageH = $imageSize->getHeight();
                $aspectRatio = $imageW / $imageH;
                $metadata = $image->metadata()->toArray();

                if (isset($value['x']) || isset($value['y'])) {
                    $x = $value['x'] ?? 0;
                    $y = $value['y'] ?? 0;
                    $w = $value['width'];
                    $h = $value['height'];

                    $imgPath = $this->filePath . $x . $y . $w . $h . '.jpg';
                    $path[] = [
                        'path' => $imgUrl . $x . $y . $w . $h . '.jpg',
                        'realPath' => $imgPath,
                        'metadata' => $metadata,
                    ];

                    //图片先设置比例大小，然后再裁剪，宽度和高度最大值不能超过500px
                    if ($imageW >= $imageH) {
                        if ($imageW > 500) {
                            $imageW = 500;
                            $imageH = $imageW / $aspectRatio;
                        }
                    } else {
                        if ($imageH > 500) {
                            $imageH = 500;
                            $imageW = $imageH * $aspectRatio;
                        }
                    }

                    $point = new Point($x, $y);
                    $size = new Box($imageW, $imageH);
                    $box = new Box($value['width'], $value['height']);
                    $image->resize($size)->crop($point, $box)->save($imgPath);
                }
            }
        }

        $this->thumbs = $path;
    }

    private function getThumbArr()
    {
        return $this->config['thumb'] ?? [];
    }

    /**
     * 处理base64编码的图片上传
     *
     * @return mixed
     */
    private function upBase64()
    {
        $base64Data = $_POST[$this->fileField];
        //截取字符串
        $base64Data = preg_replace('/data:image\/png;base64,/is', '', $base64Data);
        $img = base64_decode($base64Data);

        $this->oriName = $this->config['oriName'];
        $this->fileSize = strlen($img);
        $this->fileType = $this->getFileExt();
        $this->fullName = $this->getFullName();
        $this->filePath = $this->getFilePath();
        $this->fileName = $this->getFileName();
        $dirname = dirname($this->filePath);

        //检查文件大小是否超出限制
        if (!$this->checkSize()) {
            $this->stateInfo = $this->getStateInfo("ERROR_SIZE_EXCEED");
            return false;
        }

        //创建目录失败
        if (!file_exists($dirname) && !mkdir($dirname, 0777, true)) {
            $this->stateInfo = $this->getStateInfo("ERROR_CREATE_DIR");
            return false;
        } else if (!is_writeable($dirname)) {
            $this->stateInfo = $this->getStateInfo("ERROR_DIR_NOT_WRITEABLE");
            return false;
        }

        //移动文件
        if (!(file_put_contents($this->filePath, $img) && file_exists($this->filePath))) { //移动失败
            $this->stateInfo = $this->getStateInfo("ERROR_WRITE_CONTENT");
            return false;
        } else { //移动成功
            return true;
        }
    }

    /**
     * 拉取远程图片
     *
     * @return mixed
     */
    private function saveRemote()
    {
        $imgUrl = htmlspecialchars($this->fileField);
        $imgUrl = str_replace("&amp;", "&", $imgUrl);

        //http开头验证
        if (strpos($imgUrl, "http") !== 0) {
            $this->stateInfo = $this->getStateInfo("ERROR_HTTP_LINK");
            return false;
        }

        preg_match('/(^https*:\/\/[^:\/]+)/', $imgUrl, $matches);
        $host_with_protocol = count($matches) > 1 ? $matches[1] : '';

        // 判断是否是合法 url
        if (!filter_var($host_with_protocol, FILTER_VALIDATE_URL)) {
            $this->stateInfo = $this->getStateInfo("INVALID_URL");
            return false;
        }

        preg_match('/^https*:\/\/(.+)/', $host_with_protocol, $matches);
        $host_without_protocol = count($matches) > 1 ? $matches[1] : '';

        // 此时提取出来的可能是 ip 也有可能是域名，先获取 ip
        $ip = gethostbyname($host_without_protocol);
        // 判断是否是私有 ip
        if (!filter_var($ip, FILTER_VALIDATE_IP, FILTER_FLAG_NO_PRIV_RANGE)) {
            $this->stateInfo = $this->getStateInfo("INVALID_IP");
            return false;
        }

        //获取请求头并检测死链
        $heads = get_headers($imgUrl, 1);
        if (!(stristr($heads[0], "200") && stristr($heads[0], "OK"))) {
            $this->stateInfo = $this->getStateInfo("ERROR_DEAD_LINK");
            return false;
        }
        //格式验证(扩展名验证和Content-Type验证)
        $fileType = strtolower(strrchr($imgUrl, '.'));
        if (!in_array($fileType, $this->config['allowFiles']) || !isset($heads['Content-Type']) || !stristr($heads['Content-Type'], "image")) {
            $this->stateInfo = $this->getStateInfo("ERROR_HTTP_CONTENTTYPE");
            return false;
        }

        //打开输出缓冲区并获取远程图片
        ob_start();
        $context = stream_context_create(
            array('http' => array(
                'follow_location' => false // don't follow redirects
            ))
        );
        readfile($imgUrl, false, $context);
        $img = ob_get_contents();
        ob_end_clean();
        preg_match("/[\/]([^\/]*)[\.]?[^\.\/]*$/", $imgUrl, $m);

        $this->oriName = $m ? $m[1] : "";
        $this->fileSize = strlen($img);
        $this->fileType = $this->getFileExt();
        $this->fullName = $this->getFullName();
        $this->filePath = $this->getFilePath();
        $this->fileName = $this->getFileName();
        $dirname = dirname($this->filePath);

        //检查文件大小是否超出限制
        if (!$this->checkSize()) {
            $this->stateInfo = $this->getStateInfo("ERROR_SIZE_EXCEED");
            return false;
        }

        //创建目录失败
        if (!file_exists($dirname) && !mkdir($dirname, 0777, true)) {
            $this->stateInfo = $this->getStateInfo("ERROR_CREATE_DIR");
            return false;
        } else if (!is_writeable($dirname)) {
            $this->stateInfo = $this->getStateInfo("ERROR_DIR_NOT_WRITEABLE");
            return false;
        }

        //移动文件
        if (!(file_put_contents($this->filePath, $img) && file_exists($this->filePath))) { //移动失败
            $this->stateInfo = $this->getStateInfo("ERROR_WRITE_CONTENT");
            return false;
        } else { //移动成功
            return true;
        }

    }

    /**
     * 返回错误信息
     *
     * @return mixed
     */
    public function getErrorMsg()
    {
        return $this->stateInfo;
    }

    /**
     * 上传错误检查
     *
     * @param  $errCode
     * @return string
     */
    private function getStateInfo($errCode)
    {
        return !$this->stateMap[$errCode] ? $this->stateMap["ERROR_UNKNOWN"] : $this->stateMap[$errCode];
    }

    /**
     * 获取文件扩展名
     *
     * @return string
     */
    public function getFileExt()
    {
        return strtolower(strrchr($this->oriName, '.'));
    }

    /**
     * 重命名文件
     *
     * @return string
     */
    private function getFullName()
    {
        //替换日期事件
        $savePath = $this->config["savePath"];

        //文件名称随机
        if (isset($this->config['fileName']) && !empty($this->config['fileName'])) {
            $randNum = $this->config['fileName'];
        } else {
            $randNum = md5(microtime() . rand(1, 10000) . rand(1, 10000));
        }

        $ext = $this->getFileExt();
        return rtrim($savePath, '/') . '/' . $randNum . $ext;
    }

    /**
     * 获取文件名
     *
     * @return string
     */
    private function getFileName()
    {
        return substr($this->filePath, strrpos($this->filePath, '/') + 1);
    }

    /**
     * 获取文件完整路径
     *
     * @return string
     */
    private function getFilePath()
    {
        $fullname = $this->fullName;
        $rootPath = $_SERVER['DOCUMENT_ROOT'];

        if (substr($fullname, 0, 1) != '/') {
            $fullname = '/' . $fullname;
        }

        return $rootPath . $fullname;
    }

    /**
     * 文件类型检测
     *
     * @return bool
     */
    private function checkType()
    {
        return in_array($this->getFileExt(), $this->config["allowFiles"]);
    }

    /**
     * 文件大小检测
     *
     * @return bool
     */
    private function checkSize()
    {
        return $this->fileSize <= ($this->config["maxSize"]);
    }

    /**
     * 获取原上传文件的名称
     */
    public function getClientOriginalName()
    {
        return $this->oriName;
    }

    /**
     * 获取原上传文件的大小byte
     *
     * @return mixed
     */
    public function getClientSize()
    {
        return $this->fileSize;
    }

    /**
     * 获取文件的全路径
     */
    public function getFullPath()
    {
        return $this->fullName;
    }

    /**
     * 获取当前上传成功文件的各项信息
     *
     * @return array
     */
    public function getFileInfo()
    {
        return array(
            "state" => $this->stateInfo,
            "url" => $this->fullName,
            "title" => $this->fileName,
            "original" => $this->oriName,
            "type" => $this->fileType,
            "size" => $this->fileSize
        );
    }
}