<?php

// +----------------------------------------------------------------------
// | Think.Admin
// +----------------------------------------------------------------------
// | 版权所有 2014~2017 广州楚才信息科技有限公司 [ http://www.cuci.cc ]
// +----------------------------------------------------------------------
// | 官方网站: http://think.ctolog.com
// +----------------------------------------------------------------------
// | 开源协议 ( https://mit-license.org )
// +----------------------------------------------------------------------
// | github开源项目：https://github.com/zoujingli/Think.Admin
// +----------------------------------------------------------------------

namespace app\wechat\controller;

use Exception;
use think\Db;
use think\Log;
use think\response\View;
use controller\BasicAdmin;
use service\DataService;
use service\FileService;
use service\LogService;
use service\WechatService;

/**
 * 微信图文管理
 * Class News
 * @package app\wechat\controller
 * @author Anyon <zoujingli@qq.com>
 * @date 2017/03/27 14:43
 */
class News extends BasicAdmin {

    /**
     * 设置默认操作表
     * @var string
     */
    public $table = 'WechatNews';

    /**
     * 图文列表
     */
    public function index() {
        $this->assign('title', '图文列表');
        $db = Db::name($this->table)->order('id desc');
        parent::_list($db);
    }

    /**
     * 图文列表数据处理
     * @param $data
     */
    protected function _index_data_filter(&$data) {
        foreach ($data as &$vo) {
            $vo = WechatService::getNewsById($vo['id']);
        }
    }

    /**
     * 添加图文
     * @return View
     */
    public function add() {
        if ($this->request->isGet()) {
            return view('form', ['title' => '新建图文']);
        }
        if ($this->request->isPost()) {
            $data = $this->request->post();
            if (($ids = $this->_apply_news_article($data['data'])) && !empty($ids)) {
                $post = ['article_id' => $ids, 'create_by' => session('user.id')];
                if (DataService::save($this->table, $post, 'id') !== false) {
                    $this->success('图文添加成功！', '');
                }
            }
            $this->error('图文添加失败，请稍候再试！');
        }
    }

    /**
     * 编辑图文
     * @return View
     */
    public function edit() {
        $id = $this->request->get('id', '');
        if ($this->request->isGet()) {
            empty($id) && $this->error('参数错误，请稍候再试！');
            return view('form', ['title' => '编辑图文', 'vo' => WechatService::getNewsById($id)]);
        }
        $data = $this->request->post();
        $ids = $this->_apply_news_article($data['data']);
        if (!empty($ids)) {
            $post = ['id' => $id, 'article_id' => $ids, 'create_by' => session('user.id')];
            if (false !== DataService::save('wechat_news', $post, 'id')) {
                $this->success('图文更新成功!', '');
            }
        }
        $this->error('图文更新失败，请稍候再试！');
    }

    /**
     * 图文更新操作
     * @param array $data
     * @param array $ids
     * @return string
     */
    protected function _apply_news_article($data, $ids = []) {
        foreach ($data as &$vo) {
            $vo['create_by'] = session('user.id');
            $vo['create_at'] = date('Y-m-d H:i:s');
            $vo['digest'] = empty($vo['digest']) ? mb_substr(strip_tags(str_replace(["\s", '　'], '', $vo['content'])), 0, 120) : $vo['digest'];
            if (empty($vo['id'])) {
                $result = $id = Db::name('WechatNewsArticle')->insertGetId($vo);
            } else {
                $id = intval($vo['id']);
                $result = Db::name('WechatNewsArticle')->where('id', $id)->update($vo);
            }
            if ($result !== FALSE) {
                $ids[] = $id;
            }
        }
        return join(',', $ids);
    }

    /**
     * 删除图文
     */
    public function del() {
        $id = $this->request->post('id', '');
        empty($id) && $this->error('参数错误，请重新操作删除!');
        $info = Db::name('WechatNews')->where('id', $id)->find();
        empty($info) && $this->error('删除的记录不存在，请重新操作删除!');
        if (isset($info['article_id'])) {
            Db::startTrans();
            try {
                Db::name('WechatNewsArticle')->where('id', 'in', explode(',', $info['article_id']))->delete();
                Db::name('WechatNews')->where('id', $id)->delete();
                Db::commit();
                $isSuccess = true;
            } catch (Exception $e) {
                Db::rollback();
            }
            (isset($isSuccess) && $isSuccess) && $this->success('图文删除成功!');
        }
        $this->error('图文删除失败，请重新再试!');
    }

    /**
     * 图文选择器
     * @return string
     */
    public function select() {
        return '开发中';
    }

    /**
     * 推荐图文
     * @return array|void
     */
    public function push() {
        # 获取将要推送的粉丝列表
        switch (strtolower($this->request->get('action', ''))) {
            case 'getuser':
                if ('' === ($params = $this->request->post('group', ''))) {
                    return ['code' => 'SUCCESS', 'data' => []];
                }
                $ids = explode(',', $params);
                $db = Db::name('WechatFans');
                !in_array('0', $ids) && $db->where("concat(',',tagid_list,',') REGEXP '," . join(',|,', $ids) . ",'");
                return ['code' => "SUCCESS", 'data' => $db->where('subscribe', '1')->limit(200)->column('nickname')];
            default :
                $news_id = $this->request->get('id', '');
                // 显示及图文
                $newsinfo = WechatService::getNewsById($news_id);
                // Get 请求，显示选择器界面
                if ($this->request->isGet()) {
                    $fans_tags = Db::name('WechatFansTags')->select();
                    array_unshift($fans_tags, [
                        'id'    => 0,
                        'name'  => '全部',
                        'count' => Db::name('WechatFans')->where('subscribe', '1')->count(),
                    ]);
                    return view('push', ['vo' => $newsinfo, 'fans_tags' => $fans_tags]);
                }
                // Post 请求，执行图文推送操作
                $post = $this->request->post();
                empty($post['fans_tags']) && $this->error('还没有选择要粉丝对象！');
                // 图文上传操作
                !$this->_uploadWechatNews($newsinfo) && $this->error('图文上传失败，请稍候再试！');
                // 数据拼装
                $data = [];
                if (in_array('0', $post['fans_tags'])) {
                    $data['msgtype'] = 'mpnews';
                    $data['filter'] = ['is_to_all' => true];
                    $data['mpnews'] = ['media_id' => $newsinfo['media_id']];
                } else {
                    $data['msgtype'] = 'mpnews';
                    $data['filter'] = ['is_to_all' => false, 'tag_id' => join(',', $post['fans_tags'])];
                    $data['mpnews'] = ['media_id' => $newsinfo['media_id']];
                }
                $wechat = &load_wechat('Receive');
                if (FALSE !== $wechat->sendGroupMassMessage($data)) {
                    LogService::write('微信管理', "图文[{$news_id}]推送成功");
                    $this->success('微信图文推送成功！', '');
                }
                $this->error("微信图文推送失败，{$wechat->errMsg} [{$wechat->errCode}]");
        }
    }

    /**
     * 上传永久图文
     * @param type $newsinfo
     * @return boolean
     */
    private function _uploadWechatNews(&$newsinfo) {
        $self = $this;
        foreach ($newsinfo['articles'] as &$article) {
            $article['thumb_media_id'] = WechatService::uploadForeverMedia($article['local_url']);
            $article['content'] = preg_replace_callback("/<img(.*?)src=['\"](.*?)['\"](.*?)\/?>/i", function ($matches) use ($self) {
                $src = $self->_filterWechatImage($matches[2]);
                return "<img{$matches[1]}src=\"{$src}\"{$matches[3]}/>";
            }, htmlspecialchars_decode($article['content']));
        }
        $wechat = & load_wechat('media');
        // 如果已经上传过，先删除之前的历史记录
        !empty($newsinfo['media_id']) && $wechat->delForeverMedia($newsinfo['media_id']);
        // 上传图文到微信服务器
        $result = $wechat->uploadForeverArticles(['articles' => $newsinfo['articles']]);
        if (isset($result['media_id'])) {
            $newsinfo['media_id'] = $result['media_id'];
            return Db::name('WechatNews')->where('id', $newsinfo['id'])->update(['media_id' => $result['media_id']]);
        }
        Log::error("上传永久图文失败, {$wechat->errMsg}[{$wechat->errCode}]");
        return false;
    }

    /**
     * 文章内容图片处理
     * @param string $local_url
     * @return string|null
     */
    private function _filterWechatImage($local_url = '') {
        # 检测图片是否已经上传过了
        $img = Db::name('WechatNewsImage')->where('local_url', $local_url)->find();
        if (!empty($img) && isset($img['media_url'])) {
            return $img['media_url'];
        }
        # 下载临时文件到本地
        $filename = 'wechat/image/' . join('/', str_split(md5($local_url), 16)) . '.' . strtolower(pathinfo($local_url, 4));
        $result = FileService::local($filename, file_get_contents($local_url));
        if ($result && isset($result['file'])) {
            # 上传图片到微信服务器
            $wechat = &load_wechat('media');
            $mediainfo = $wechat->uploadImg(['media' => "@{$result['file']}"]);
            if (!empty($mediainfo)) {
                $data = ['local_url' => $local_url, 'media_url' => $mediainfo['url'], 'md5' => md5($local_url)];
                Db::name('WechatNewsImage')->insert($data);
                return $mediainfo['url'];
            }
        }
        Log::error("图片上传失败，请稍后再试！{$wechat->errMsg}[{$wechat->errCode}]");
        return null;
    }

}